Discussion :

[tibogaet]

Bonjour à Tous

Je suis en train de bloquer sur quelquechose dont je n'ai aucune idée vers où me diriger. C'est embettant...

Dans un formulaire je voudrais insérer des images. Jusque là pas de soucis, j'ai inséré un cadre image indépendant (Image1), un champ texte (CheminImage1) et un bouton (BtnOuvrirImage1). Sur le clic du bouton, j'ai le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub BtnOuvrirImage1_Click()
Me.Image1.Picture = CheminImage1.Value
End Sub

J'ai bien la photo qui s'affiche dans mon cadre Image. Mon soucis est que c'est long de copier le chemin et le nom de la photo dans un explorateur windows et de le coller dans mon champs "CheminImage1" sachant que j'ai plusieurs photos à insérer.
Ma question, et je ne sais pas si c'est possible de le faire, je voudrais cliquer sur mon bouton et que ça ouvre une fenètre pour aller selectionner ma photo (un peu comme dans excel quand on veut insérer une photo).

Merci d'avance pour votre aide.

Tibogaet.

[Domi2]

Bonjour,

Une réponse à ton problème dans la FAQ :
Afficher la boîte de dialogue ouvrir afin de récupérer le nom et le chemin du fichier sélectionné

Bon dév !

Domi2

[tibogaet]

Bonjour Domi2

Merci pour ta réponse si rapide.
J'ai lu la FAQ, copié le code proposé et modifié suivant les critères que je voulait (Chemin par défaut, extention fichier,...)
Maintenant qu'est-ce que je dois rajouter et supprimer pour qu'au lieu de me mettre le chemin de mon fichier dans un MsgBox, qu'il apparaisse dans une zone de texte.

Merci pour ton aide.

Tibogaet

[jaffael]

au lieu de

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MsgBox OuvrirUnFichier(Me.Hwnd, "Parcourir", 1, "Fichier Word", "doc")

tu peux écrire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

CheminImage1.Value = OuvrirUnFichier(Me.Hwnd, "Parcourir", 1, "Fichier Word", "doc")

[tibogaet]

Bonsoir jaffael

Merci pour ta réponse. C'est exactement ce que je cherchais à faire.