Discussion :

[cbredeche]

bonjour j'ai mis en place dans useform 1 un commandbutton pour qui affiche une image
mon code ci dessous

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub CommandButton3_Click()
Dim a
a = Application.GetOpenFilename("Fichier jpg;gif;bmp;tif,*.jpg ;*.tif;*.gif;*.jpg")
If a <> False Then Imag.Picture = LoadPicture(a): photo = a
End Sub
 
Private Sub CommandButton4_Click()
Imag.Picture = LoadPicture(""): photo = ""
End Sub

fichier tableau ger - Copie.xlsm



mais cela n'affiche pas l'image dans mon bouton et le chemin ne s’enregistre pas dans ma feuill "00-recap en colonne aw
ci joints mon fichier
merci de votre aide