Rechercher un fichier à partir d'Excel VBA

Question

Comment puis-je créer une boîte de dialogue «Ouvrir un fichier» à partir de VBA s'exécutant dans Excel?

J'utilise Excel 2003.

Answer 1

Vous voulez que la fonction Application.GetOpenFilename. Copie à partir du navigateur VBA de l'objet:

Fonction GetOpenFilename ([FileFilter], [FilterIndex], [Titre], [ButtonText], [MultiSelect])
Membre Excel.Application

Answer 2

Ajouter une référence à Comdlg32.ocx puis quelque chose comme ...

Sub PromptForFile() 
Dim d As New MSComDlg.CommonDialog 

d.Filter = "xls" 
d.Filename = "*.xls" 
d.ShowOpen 

Excel.Workbooks.Open d.Filename 

Set d = Nothing 
End Sub