Bonjour
Je cherche à ouvrir un fichier excel dans n'importe quel dossier sur l'ordinateur à partir d'une boîte de dialogue.
Je vous met les lignes de programme déjà réalisé, ainsi que les lignes qui me paraissai normal pour réaliser cela.

Actuellement c est la ligne du programme qui fonctionne :
xlApp.Workbooks.Open "D:\Mes documents\Envoie GED\Fichier envoie\fichier_liste"

Mais je voudrai ouvrir une boîte de dialogue pour choisir le dossier.

10 Dialogs(wdDialogFileOpen).Show
20 NonFichierImport1 = ActiveDocument.Name ' fichier excel
30 vChemin = ActiveDocument.Path '& Application.PathSeparator
40 xlApp.Workbooks.Open vChemin & NonFichierImport1