Récupérer le chemin d'un dossier par boite de dialogue

benoitxi

XLDnaute Nouveau
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
 

benoitxi

XLDnaute Nouveau
Hello,
En fait cela ne venait pas du bouton OK.
Cela venait qu'il manquait un \ pour accéder au dossier. Peut être que ça peut se gérer différemment mais en tout cas ça fonctionne maintenant.

Set dossier = Application.FileDialog(msoFileDialogFolderPicker)
If dossier.Show = -1 Then
chemin = dossier.SelectedItems(1) & "\"
MsgBox chemin, vbOKCancel, "Demande de confirmation du dossier"
End If
 

patricktoulon

XLDnaute Barbatruc
Hello,
En fait cela ne venait pas du bouton OK.
Cela venait qu'il manquait un \ pour accéder au dossier. Peut être que ça peut se gérer différemment mais en tout cas ça fonctionne maintenant.

Set dossier = Application.FileDialog(msoFileDialogFolderPicker)
If dossier.Show = -1 Then
chemin = dossier.SelectedItems(1) & "\"
MsgBox chemin, vbOKCancel, "Demande de confirmation du dossier"
End If

c'est n'importe quoi :rolleyes:
le dialog te renvoie le nom du dossier point barre c'est par parce que tu lui met un "\" que le msgbox va mieux fonctionner
le "\" a la fin ne serait utile que pour son exploitation avec DIR par exemple
 

Discussions similaires

Réponses
4
Affichages
491

Statistiques des forums

Discussions
311 730
Messages
2 081 978
Membres
101 854
dernier inscrit
micmag26