[I]Voici deux exemples :
Cet exemple montre comment afficher la boîte de dialogue Open, dont le filtre de fichier est défini en fichiers texte. Si l'utilisateur choisit un nom de fichier, le code affiche ce nom de fichier dans une boîte de message.
fileToOpen = Application.GetOpenFilename("Text Files (*.txt), *.txt")
If fileToOpen <> False Then
MsgBox "Open " & fileToOpen
End If
L'exemple est identique dans le cas de Microsoft Excel pour Macintosh.
fileToOpen = Application.GetOpenFilename("TEXT")
If fileToOpen <> False Then
MsgBox "Open " & fileToOpen
End If [/I]