Sub AutreVoie()
Dim Chemin$, NomFichier$, Mess$
With Application.FileDialog(msoFileDialogFilePicker)
.Title = "Sélectionner votre fichier, svp": .AllowMultiSelect = False
.Filters.Clear: .Filters.Add "Classeurs Excel", "*.xls; *.xlsx; *.xlsm"
.Filters.Add "Fichiers PDF", "*.pdf", 1: .FilterIndex = 1
.InitialView = msoFileDialogViewProperties
If .Show = -1 Then
Chemin = .SelectedItems(1)
NomFichier = Dir(.SelectedItems(1))
Mess = "Path: " & Chemin & Chr(13) & "Nom Fichier: " & NomFichier
MsgBox Mess, vbInformation, "Résultat Test"
Else
MsgBox "Vous n'avez pas sélectionné de fichier!" & Chr(13) & "(J'en suis fort chagriné, que diantre!)", vbCritical, "ERREUR"
End If
End With
End Sub