Comment ouvrir un fichier à l'aide de la boîte de dialogue Ouvrir un fichier

Question

J'ai recherché sur le Web la solution pour ouvrir un fichier à l'aide de la boîte de dialogue Ouvrir un fichier dans VBScript. Quelqu'un peut-il me diriger sur la bonne voie?

Mon code ci-dessous ouvre le fichier Excel mais je voulais qu'il soit plus dynamique en termes que le nom du fichier d'entrée puisse être modifié et non codé en dur.

Set objExcel = CreateObject("Excel.Application") 
objExcel.DisplayAlerts = 0 
Set objShell = WScript.CreateObject("WScript.Shell") 
path = objShell.CurrentDirectory 
inFileName = "InputFile.xlsx" 
inFilePath = path + "\" + inFileName 

'Open target workbook 
Set objWorkbook1 = objExcel.Workbooks.Open(inFilePath, False, True) 
MsgBox "Reading Data from " & inFileName & vbNewLine, vbOkOnly + vbInformation, _ 
     "Reading Data" 

Answer 1

En cas de doute, lisez le documentation.

Set dialog = objExcel.FileDialog(3) 
dialog.AllowMultiSelect = True 
dialog.Show 

For Each f In dialog.SelectedItems 
    Set objWorkbook = objExcel.Workbooks.Open(f) 
    '... do stuff ... 
    objWorkbook.Close 
Next