Dim Fichier As Variant
Dim chemin As Variant
'Affiche la boîte de dialogue "Ouvrir"
Fichier = ThisWorkbook.Path & "/"
ChDir Fichier
MsgBox Fichier
Fichier = Application.GetOpenFilename(" (*.jpg),*.jpg")
'On sort si aucun fichier n'a été sélectionné ou si l'utilisateur
'a cliqué sur le bouton "Annuler", ou sur la croix de fermeture.
If Fichier = False Then Exit Sub
'Affiche le chemin et le nom du fichier sélectionné.
MsgBox Fichier