Voici une fonction qui lance une boite de dialogue et récupère le fichier sélectionné
Function SelectionFichier()
Dim fd As Office.FileDialog
' Créer un objet FileDialog
Set fd = Application.FileDialog(msoFileDialogOpen)
' Titre de la boîte de dialogue
fd.Title = "Sélectionnez un fichier..."
' Texte du bouton
fd.ButtonName = "Choisir"
fd.InitialFileName = ""
' Ne pas autoriser la sélection multiple
' (donc 1 seul fichier est sélectionnable à la fois)
fd.AllowMultiSelect = False
' Afficher la boîte de dialogue
If fd.Show() Then
SelectionFichier = ExtractFileName(fd.SelectedItems(1))
Else
SelectionFichier = ""
End If
Set fd = Nothing
End Function
ici la fonction qui va extraire uniquement le nom du fichier
Public Function ExtractFileName(ByVal sFullPath As String) As String If InStr(sFullPath, "\") = 0 Or Right(sFullPath, 1) = "\" Then ExtractFileName = "" Exit Function End If ExtractFileName = Mid(sFullPath, InStrRev(sFullPath, "\") + 1)End Function