Chemin d'image

re didier09, le forum

C'est l'endroit ou le placé que je trouvé pas, c'est toi qui ma donné l'astuce , Merci.

Par contre sait tu pourquoi l'image ne s'affiche pas instantanément dans le cadre, il faut que je déplace l'usf pour quelle s'affiche ?

Merci
@+

Il faut le placer dans le code de l'userform2:


Private Sub Image1_Click()
Dim UserDir As String
Dim li As Integer

li = ActiveCell.Row

UserDir = CurDir
TheFile = Application.GetOpenFilename('image(*.jpg),*.jpg')
If TheFile = False Then ChDir UserDir: Exit Sub
With Me.Image1
.Picture = LoadPicture(TheFile)
End With

ChDir UserDir

Cells(li, 26)= TheFile

End Sub

J'ai remarquer que l'image se change que lorsque l'on ouvre à nouveau l'usf. Là je ne sais te répondre.
Didier

merci beaucoup didier09,
je ne comprends pas pourquoi non plus???

@+