Lien image

bonjour

voila j'ouvre la boite de dialogue pour selectionner une image

je souhaite recuperer que le nom de l'image.jpg;gif;bmp;tif

Private Sub Commphoto_Click()
Dim a, photo
ChDrive Left(ThisWorkbook.Path, 1)
ChDir (ThisWorkbook.Path & "\photo")  ''je place mon repertoire par defaut
a = Application.GetOpenFilename("Fichier jpg;gif;bmp;tif,*.jpg ;*.tif;*.gif;*.jpg")
If a <> False Then Image1.Picture = LoadPicture(a): photo = a
MsgBox a
txtlien.Value = a
End Sub

merci d'avance

Bonjour,

Utilise la fonction Dir() pour extraire le nom de l'image du chemin complet :

MsgBox Dir(a)

et si tu ne veux pas non plus l'extension :

MsgBox Split(Dir(a), ".")(0)