Quel code vba pour inserer image dans userform

bonjour

mon probleme est que je n arrive pas a formuler le code pour afficher image suivant la valeur du textbox 4

le chemin d acces au photo se trouve a C:\Users\utilisateur\Documents\A.L.D\facturation\photos matos

si quelqu un pouvais m aider svp.

cordialement

ci joint le fichier

Bonjour,
au plus simple

Code:

---

1 2 3

Private Sub TextBox4_Change() UserForm3.Image1.Picture = LoadPicture("D:\A CAP EVASION\Photos directeurs\Astrid Binse Nicolai - Valmeinier A.jpg") End Sub

---

Il faudra bien entendu remplacer tous ce qui est entre parenthese par une variable.

bonjour

voila ce que j ai fait mais ca bloque

Code:

---

1 2 3 4

Private Sub TextBox4_Change()   UserForm3.Image1.Picture = LoadPicture("C:\Users\utilisateur\Documents\A.L.D\facturation\photos matos.jpg") End Sub

---

je ne comprends pas vu que je suis novice en la matiere

cordialement

Bonsoir
reprenons. Donc tu fais une photo de bougies que tu appelle Bougies et que tu place dans le repertoire
C:\Users\utilisateur\Documents\A.L.D\facturation\photos matos
donc le chemin d'accés a ce fichier sera
C:\Users\utilisateur\Documents\A.L.D\facturation\photos matos\bougies.jpg

Avec notre code( un peu agrementer)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Private Sub TextBox4_Change() dim chemin as string on error goto absent 'on definie une variable en taille, le dim au dessus, et sa valeur, la ligne en dessous chemin = textbox4.value 'donc chemin = bougies 'pour afficher l'image, nous avons la ligne suivante UserForm3.Image1.Picture = LoadPicture("C:\Users\utilisateur\Documents\A.L.D\facturation\photos matos\" & bougies & ".JPG") 'ou nous retrouvons le repertoire par defaut des images et notre variable   une petite gestion d'erreur au cas ou l'image n'est pas trouvé absent : msgbox "la photo demandé n'est pas disponible" End Sub

---

et c'est tout.
la msgbox apparaitra a chaque fois que le chemin demandé n'est pas disponible.
donc attention au fautes d'ortographe ou meme d'accent dans textbox4.

bonjour

merci pour ton aide
ca marche tres bien mais il faut que nomme la photo dans le code
le probleme c est que j ai a peu pres 500 photos differentes
comment dois je ecrire le code en consequence

cordialement

Non pas dans le code, ecris juste le nom de la photo soit "bougies" dans la textbox en dessous de la photo

bonjour

merci pour ton aide

le fichier fonctionne tres bien

parfois il me faut du temps pour comprendre

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Private Sub TextBox4_Change()   Dim chemin As String On Error GoTo absent 'on definie une variable en taille, le dim au dessus, et sa valeur, la ligne en dessous chemin = TextBox4.Value 'donc chemin = bougies 'pour afficher l'image, nous avons la ligne suivante UserForm3.Image1.Picture = LoadPicture("C:\Users\utilisateur\Documents\A.L.D\facturation\photos matos\" & chemin & ".JPG") 'ou nous retrouvons le repertoire par defaut des images et notre variable   'une petite gestion d'erreur au cas ou l'image n'est pas trouvé absent: MsgBox "la photo demandé n'est pas disponible" End Sub

---

merci encore

cordialement keygen08

Bonjour,
Voici un petit fichier dans lequel un simple formulaire devrait faire l'affaire.
Cordialement
JB