Bonjour à tous,
J'ai le code ci-dessous mais j’aimerais remplacer mon chemin par une boite de dialogue ou l'utilisateur peut choisir le dossier ou il y a les fichiers à consolider.
Dim chemin As String
Dim fichier As String
Dim Dernlg As Integer
chemin = "A:\Budgets\Budget 2020\Fichiers reçus\"
fichier = Dir(chemin & "*.xlsx")
Do While fichier <> ""
J’ai essayé avec une boite de dialogue comme ci-dessous, j'arrive bien à ouvrir à sectionner le chemin mais ensuite la macro ne continue pas et il n'y a pas message d'erreur.
Dim chemin As String
Dim fichier As String
Dim Dernlg As Integer
Dim dossier As FileDialog
Set dossier = Application.FileDialog(msoFileDialogFolderPicker)
dossier.Show
chemin = dossier
fichier = Dir(chemin & "*.xlsx")
Do While fichier <> ""
Merci pour votre aide
J'ai le code ci-dessous mais j’aimerais remplacer mon chemin par une boite de dialogue ou l'utilisateur peut choisir le dossier ou il y a les fichiers à consolider.
Dim chemin As String
Dim fichier As String
Dim Dernlg As Integer
chemin = "A:\Budgets\Budget 2020\Fichiers reçus\"
fichier = Dir(chemin & "*.xlsx")
Do While fichier <> ""
J’ai essayé avec une boite de dialogue comme ci-dessous, j'arrive bien à ouvrir à sectionner le chemin mais ensuite la macro ne continue pas et il n'y a pas message d'erreur.
Dim chemin As String
Dim fichier As String
Dim Dernlg As Integer
Dim dossier As FileDialog
Set dossier = Application.FileDialog(msoFileDialogFolderPicker)
dossier.Show
chemin = dossier
fichier = Dir(chemin & "*.xlsx")
Do While fichier <> ""
Merci pour votre aide