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

  • Initiateur de la discussion Initiateur de la discussion benoitxi
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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
 
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
 
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 🙄
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
3
Affichages
672
  • Question Question
Microsoft 365 Erreur de macro
Réponses
4
Affichages
742
Retour