choisir un fichier dans une boite de dialogue

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