[Résolu][Base] Formulaire et image liée à contrôle Picto

[Platon1]

https://forum.openoffice.org/fr/forum/v ... 877Bonjour,

j'espère que j'arrive à la dernière étape.

dans ma base j'ai une Table et un Formulaire comprenant un contrôle Image.
le document .odb et le dossier "Reproductions" contenant les fichiers images sont dans un même dossier.
Le Catalogue des œuvres est en formation, il n'y a pas une image pour chaque œuvre, et chaque œuvre n'a pas encore un code,
Les images sont nommées par le code (contenu dans le champ du même nom) suivi de son extension.
La macro actuelle AfficherImage obtient le nom du fichier image correspondant à l'enregistrement vu dans le formulaire.
Je veux ensuite mettre l'image dans le contrôle image du formulaire en utilisant l'Url du fichier image mais sans enregistrer cette Url comme il est fait dans un post récent sur le sujet
https://forum.openoffice.org/fr/forum/v ... 66#p338877
et je voudrais que l'Url soit relative pour pouvoir déplacer l'ensemble du catalogue sur un autre ordinateur.
La macro est la suivante :

77

Sub AfficherImage()
78 Dim TemponCode as String, ImagePath as String, nomFichier as String
79 Dim monDoc as Object, unForm as Object, ctrlCode as Object
80 Dim DocCrl as Object, DrawPage as Object, nomDossier as String
81
82
83 monDoc = thisComponent
84 DocCrl = monDoc.getCurrentController()

85 unForm = monDoc.DrawPage.Forms.getByName("F_CatalogueOeuvres")
86 ctrlCode = unForm.getByName("Code")
87 TemponCode = ctrlCode.CurrentValue
88 nomFichier = TemponCode & "." & "jpg"
89 MsgBox (nomFichier)
90
91 nomDossier = "Reproductions"
92 'ImagePath = nomDossier\nomFichier
93 unForm.getByName("ControleImage").ImageURL= convertToUrl(nomDossier\nomFichier)

End Sub

Tout va bien jusqu'à la ligne 89, j'ai le nom du fichier de l'image dans la MsgBox.
La ligne 93 devrait être du n'importe quoi (Erreur 13 type de données incohérent)
j'ai essayé de m'inspirer du code du post cité plus haut mais il y a des choses que je ne comprends pas et je ne veux pas faire pareil, si possible.

Merci pour votre aide.

[DLE]

Bonjour,

Remplacer la ligne 93 par

Code : Tout sélectionner

	url = ConvertToURL( nomDossier & "\" & NomFichier )
	Print URL
	unForm.getByName("ControleImage").ImageURL= url 

Ne pas oublier : Dim URL As String

Cdlt.

[Bidouille]

Mauvais titre : [Basic] Images liées dans formulaire Base

Relisez les règles du bandeau rouge en haut de la page.
La balise [Basic] ne doit être utilisée que lorsqu'on ne fait référence à aucun module.
Ce qui n'est pas votre cas.

Modification faite à votre place.
Un titre clair n'est pas pour vous mais pour tous ceux effectuant des recherches sur ce forum.

Merci d'en tenir compte pour vos prochaines questions.

[Platon1]

Bonjour et merci DLE.

J'ai bien fait la modification mais je reçois le message

Avertissement
file:///Reproductions/17-01.jpg

cela serait-il le chemin??

pour la remarque de Bidouille, je vais revoir le sujet


Bonne soirée

[Dude]

Salut,

Avertissement
file:///Reproductions/17-01.jpg

cela serait-il le chemin??

Tu es sous Windows et je ne vois pas la lettre du disque qui caractérise un chemin.
Pour t'assurer qu'un fichier existe, il y a la fonction FileExists.
https://wiki.openoffice.org/wiki/FR/Doc ... e_Library)

[Platon1]

Bonsoir,
merci Dude

je ne sais pas interprété l"avertissement.
le fichier noté existe bien et correspond à l'image qui devrait être dans le contrôle.
j'avais souhaité avoir une Url relative.
Faudrait-il modifier l'écriture du code proposé par DLE ?

Cdlt

[Dude]

le fichier noté existe bien et correspond à l'image qui devrait être dans le contrôle

Et donc ? As-tu consulté la page du Wiki que je t'ai donnée ?
Que retourne FileExists en lui passant le chemin que tu crois correct ?

j'avais souhaité avoir une Url relative.

Si tu veux avoir cette notation, il faut utiliser le point.
Suivant son nombre, il permet de se positionner au répertoire courant ou faire référence à un parent.
Tu trouveras mout explications sur le net.

[Platon1]

Bonjour Dude , DLE et les autres

J'ai mis le FileExists en mettant le nom du fichier (avec et sans extension) ou le chemin de l'url, mais je n'obtiens rien dans la MsgBox.
et j'obtiens toujours le même avertissement.
J'ai fait plein d'essais de chemins mais sans résultats.
je ne sais plus quoi faire.
Voici le dernier code de la macro :

Code : Tout sélectionner

 Sub AfficherImage()
   Dim TemponCode as String, ImagePath as String,  nomFichier as String
   Dim monDoc as Object, unForm as Object, ctrlCode as Object
   Dim DocCrl as Object, DrawPage as Object, nomDossier as String, URL as String
   
  
   monDoc = thisComponent
   DocCrl = monDoc.getCurrentController()
   
   unForm = monDoc.DrawPage.Forms.getByName("F_CatalogueOeuvres")
   ctrlCode = unForm.getByName("Code")
   TemponCode = ctrlCode.CurrentValue
   nomFichier = TemponCode & "." & "jpg"
        MsgBox (nomFichier)
        
   nomDossier = "Reproductions"
  
   url = ConvertToURL(nomDossier & "\" & NomFichier )
   If FileExists(url) Then
   MsgBox ("File Exists.")
   End If
   Print URL
   unForm.getByName("ControleImage").ImageURL= url 
  
       'unForm.getByName("ControleImage").ImageURL= convertToUrl(nomDossier\nomFichier)
End Sub 

Merci pour toute aide

[Dude]

J'ai fait plein d'essais de chemins mais sans résultats.

Je ne vois pas ce que tu cherches à récupérer :

Code : Tout sélectionner

nomDossier = "Reproductions"

Ce n'est pas un chemin. Comment veux-tu que cela fonctionne ?

Fais nous deux copies écran de l'explorateur Windows avec la localisation de l'ODB et de l'image.

[Platon1]

Captures d'écrans.docx

Voilà les 2 captures d'écran sur le même Docx.

[Dude]

Pourquoi fournir un DOCX de Microsoft ?
Mets tes copies écran directement au format PNG ou JPG.

[Platon1]

Capture.PNG2.PNG

Capture.PNG1.PNG

voilà les 2 PNG

[DLE]

Bonjour,

La configuration :
Disque F deux dossiers :

• "Reproductions_à_faire" contenant deux photos "Auto1.png" et "Auto2.png"
  "Telechargement" contenant la photo "Bugatti.png" et la base.

Pour afficher la Bugatti

Code : Tout sélectionner

	URL = "file:./Reproduction/Bugatti.png"

Pour afficher Auto1

Code : Tout sélectionner

	URL = "file:../Reproductions_à_faire/auto2.png"

Cela en adressage relatif.
La fonction "FileExists" demande le nom complet du fichier

Code : Tout sélectionner

	if fileExists("F:/Telechargements/Reproduction/Bugatti.png") Then
		msgbox "trouvé"
	End if

Cdlt.

[Dude]

Pour afficher la Bugatti

Code : Tout sélectionner

	URL = "file:./Reproduction/Bugatti.png"

Pour afficher Auto1

Code : Tout sélectionner

	URL = "file:../Reproductions_à_faire/auto2.png"

La notation URL n'est pas tout à fait correcte :

Capture.PNG

Dans cet exemple, on part de l'URL de l'ODB lui-même.
La bibliothèque Tools et sa fonction DirectoryNameoutofPath permet d'extraire le fichier du chemin.

[Platon1]

Bonjour,

j'ai toujours autant de mal.

dans la macro j'ai fait la conversion en URL
à partir du Dossier "OeuvresRepertoriees" qui contient la base .odb et le dossier "Reproductions"
et j'obtiens url = file:///OeuvresRepertoriees/Reproductions/17-01.jpg

puis à partir du Dossier "Reproductions" qui est au même niveau que la base
et j'obtiens url = file:///Reproductions/17-01.jpg
cela parait logique, mais la commande d'affichage dans le contrôle "ControleImage " ne fonctionne pas.

Ci-après la totalité de la macro avec des lignes neutralisées.

Encore Merci pour votre aide.

Code : Tout sélectionner

 Sub AfficherImage()
   Dim TemponCode as String, ImagePath as String,  nomFichier as String
   Dim monDoc as Object, unForm as Object, ctrlCode as Object
   Dim DocCrl as Object, DrawPage as Object, nomDossier as String, URL as String,nomChemin as String
   
   
   monDoc = thisComponent
   DocCrl = monDoc.getCurrentController()
   
   unForm = monDoc.DrawPage.Forms.getByName("F_CatalogueOeuvres")
   ctrlCode = unForm.getByName("Code")
   TemponCode = ctrlCode.CurrentValue
   nomFichier = TemponCode & "." & "jpg"
        MsgBox (nomFichier)
        
        Dim Dir as String
    GlobalScope.BasicLibraries.loadLibrary("Tools")
   ' ThisComponent.Parent.getURL
    'Dir = Tools.Strings.DirectoryNameoutofPath(ThisComponent.url, "/")
        
        Dir=ThisComponent.getURl()
        'MsgBox  (Dir)
        
      
       
        
   nomDossier = "Reproductions"
  ' nomChemin = getDirectory(ThisComponent.Parent)
   'MsgBox (nomChemin)
  
   url = ConvertToURL(nomDossier & "\" & nomFichier )
   If FileExists(17-01) Then
   'MsgBox ("File Exists.")
   End If
   MsgBox(url)
   
   unForm.getByName("ControleImage").ImageURL= url 
   
   url = ConvertToURL("OeuvresRepertoriees" & "\" & nomDossier & "\" & nomFichier)
   MsgBox(url)
   unForm.getByName("ControleImage").ImageURL= url 
  
       'unForm.getByName("ControleImage").ImageURL= convertToUrl(nomDossier\nomFichier)
End Sub 

[jeanmimi]

Bonjour,
Je n'ai toujours pas vu (ou compris) dans quel champ de la Table est enregistré l'adresse de l'image.
Lorsque j'affiche les propriétés du contrôle Picto, la source de données est vide; comment pourrait-il afficher l'image ?

[Platon1]

Bonjour,

L'adresse de l'image n'est pas dans la table, il y a seulement le champ "Code" qui donne le nom du fichier image dans le dossier "Reproductions".
Pour l'instant toutes les œuvres n'ont pas de code et peuvent ne pas avoir d'image.
J'essaye de reproduire avec BASE ce que j'ai déjà fait avec ACCESS, qui fonctionne : lorsque je clique sur les boutons de navigation dans le formulaire j'exécute la macro "AfficherImage" qui lit le code, compose l'adresse et affiche l'image dans le contrôle Image.
Pour l'instant j'essaye d'afficher l'image en cliquant sur le bouton en bas du formulaire avec l"enregistrement affiché à l'ouverture du formulaire. Après il faudra lier les 2 opérations en appelant la macro lors de la navigation.
Dans le contrôle Image du formulaire ACCESS il n'y a pas de référence de donnée, c'est le code qui attribue le fichier Image au contrôle. C'est peut-être pas possible avec BASE???
Est-ce que la dernière ligne du code

Code : Tout sélectionner

unForm.getByName("ControleImage").ImageURL= url
 

peut faire cela ?

[jeanmimi]

Je ne sais plus si tu avais une recherche des Macros AfficherImage dans le forum, mais la Macro initiale enregistrait le nom de l'image (avec le chemin si l'image n'est pas dans le même répertoire que la Base) dans une Table et affichait cette image dans le Contrôle Picto.
Je ne sais pas comment fait Access mais je suppose que les fonctionnements sont différents et non reproductibles.

[Platon1]

Oui dans un sujet de Borovich il y avait une référence à une base de toi et l'enregistrement du chemin dans la base. Mais le chemin est absolu.

Il me semble que l'enregistrement du chemin ou de l'url dans la table ou sa reconstitution à chaque fois à partir d"un Code dans la table devrait pouvoir faire la même chose.
Le problème devrait être dans l'expression de l'url ou du chemin qui pour moi devrait être relatif et ce n'est pas clair pour moi.

[Dude]

Comme d'habitude, nous ne sommes pas derrière ton PC.
Fais-nous la même copie écran que celle que j'ai envoyée le 9.

[Platon1]

Bonjour,

je ne vois pas comment refaire la même présentation que toi.
Je peux remettre le code dans ce message et copier la dernière MsgBox qui apparait sur le formulaire à l'ouverture en 3e MsgBox avant la dernière ligne de commande.
je ne peux pas faire apparaitre la MsgBox sur le code que je ne peux exécuter pas à pas.

Code : Tout sélectionner

 Sub AfficherImage()
   Dim TemponCode as String, ImagePath as String,  nomFichier as String
   Dim monDoc as Object, unForm as Object, ctrlCode as Object
   Dim DocCrl as Object, DrawPage as Object, nomDossier as String, URL1 as String,nomChemin as String, url2 as String
   
   
   monDoc = thisComponent
   DocCrl = monDoc.getCurrentController()
   
   unForm = monDoc.DrawPage.Forms.getByName("F_CatalogueOeuvres")
   ctrlCode = unForm.getByName("Code")
   TemponCode = ctrlCode.CurrentValue
   nomFichier = TemponCode & "." & "jpg"
        MsgBox (nomFichier)
        
        'Dim Dir as String
    'GlobalScope.BasicLibraries.loadLibrary("Tools")
   ' ThisComponent.Parent.getURL
    'Dir = Tools.Strings.DirectoryNameoutofPath(ThisComponent.url, "/")
        
        'Dir=ThisComponent.getURl()
        'MsgBox  (Dir)
        
      
       
        
   nomDossier = "Reproductions"
  ' nomChemin = getDirectory(ThisComponent.Parent)
   'MsgBox (nomChemin)
  
   url1 = ConvertToURL(nomDossier & "\" & nomFichier )
   'If FileExists(17-01) Then
   'MsgBox ("File Exists.")
   'End If
   MsgBox(url1)
   
   unForm.getByName("ControleImage").ImageURL= url1 
   
   url2 = ConvertToURL("OeuvresRepertoriees" & "\" & nomDossier & "\" & nomFichier)
   MsgBox "url1 = " & url1 &Chr(13)&Chr(10)& "url2 =" & url2
   unForm.getByName("ControleImage").ImageURL= url2 
  
       'unForm.getByName("ControleImage").ImageURL= convertToUrl(nomDossier\nomFichier)
End Sub 

La capture d'écran de la MsgBox sur le formulaire est en pièce jointe.
Je ne sais pas quoi faire d'autre.

[Dude]

je ne vois pas comment refaire la même présentation que toi.

Tu retapes les 6 lignes de code.
Tu lances la Sub et tu fais une copie écran.
Tu joins cette dernière à ton prochain message.

[Platon1]

Bonsoir,


je ne peux pas lancer la Sub lorsque je suis dans l'éditeur car elle s’arrête à la ligne 86 avec une erreur 423 à cause de drawpage, ce qui ne se produit pas lorsque j’exécute la Sub à partir du formulaire.
j'ignore la cause de cette erreur.

[Dude]

Il n'y a aucun appel à la propriété DrawPage dans ma routine
Et explique moi comment ça pourrait planter à la ligne 86 alors qu'il y a 6 lignes de code.

[Platon1]

Bonjour,

Voilà j'ai reproduit ta macro et je pense ne pas avoir fait d'erreur :

CaptureMain.PNG

[Dude]

Sur Débogage d'un programme Basic, tu vas trouver la liste des erreurs :

12 Variable non définie

Tu dois avoir un Option Explicit en début de programme qui oblige à déclarer les variables correctement.

Donc soit tu l'enlèves, soit tu déclares chaque variable.

[Platon1]

Cette fois on a les chemins absolus.

CaptureMain.PNG

[Dude]

Conclusion : sers toi de ce code pour récupérer ces chemins.

[Platon1]

Bonjour et merci
je vais faire des essais pour voir si j'obtiens l'image
mais je voudrais avoir le chemin relatif à partir du répertoire de la base pour pouvoir transporter l'ensemble.

[Dude]

mais je voudrais avoir le chemin relatif à partir du répertoire de la base pour pouvoir transporter l'ensemble.

Franchement avant de poser ta question, as-tu fait l'essai ?
Déplace ton ODB et ton répertoire Reproductions ailleurs et tu verras que le chemin est toujours correct.