MJ13
XLDnaute Barbatruc
Bonjour à tous
Je cherche en VBA à extraire le nom d'un fichier, sachant que j'ai dans une variable le nom du dossier et du fichier.
Voici mon début de code pour insérer dans une feuille une image avec 'Nomfichier = ????????? qui est ce que je cherche qui est représenté par QuelFichier(Ctr).
Merci d'avance.
Je cherche en VBA à extraire le nom d'un fichier, sachant que j'ai dans une variable le nom du dossier et du fichier.
Voici mon début de code pour insérer dans une feuille une image avec 'Nomfichier = ????????? qui est ce que je cherche qui est représenté par QuelFichier(Ctr).
Merci d'avance.
VB:
Sub Ouvre_Img()
Dossier = Cells(1, 13)
[A1].Select
ChDrive (Left(Dossier, 1))
ChDir (Dossier)
Dim QuelFichier()
QuelFichier = Application.GetOpenFilename(, , , , True)
For Ctr = 1 To UBound(QuelFichier)
ActiveSheet.Pictures.Insert(QuelFichier(Ctr)).Select
'Nomfichier = ?????????
Selection.ShapeRange.ZOrder msoSendToBack
Selection.Name = "Image"
Next
End Sub