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

[benoitxi]

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

 

[patricktoulon]

bonjour

Sub test()
    Dim dossier As Object,chemin$
    Set dossier = Application.FileDialog(msoFileDialogFolderPicker)
    If dossier.Show = -1 Then
        chemin = dossier.SelectedItems(1)
        MsgBox chemin
    End If
End Sub

 

[benoitxi]

Je ne suis pas sur de tout comprendre. Avec cette application je dois sectionner un fichier dans mon dossier.
Mon objectif est de juste sélectionner le dossier et récupérer le chemin
Pouvez vous m'éclairer un peu plus ?
Merci

 

[patricktoulon]

re
test et tu verra 😉

 

[benoitxi]

Oui je teste mais c'est le même résultat que ce que j’avais fait dans mon code initial.
J’arrive bien à sélectionner mon chemin mais ensuite la macro ne continu pas. De plus il n'y pas de message d'erreur...

 

[Staple1600]

Bonsoir le fil

benoitxi
[Pour infos]
Je confirme que le code de patricktoulon récupère bien le path du dossier sélectionné une fois qu'on a cliqué sur OK
[/Pour infos]

 

[patricktoulon]

re
ben oui bien Evidemment le clic sur bouton ok ou annuler est requis ,j'ai cru un moment qu'il n’était pas utile de le dire 😉

 

[benoitxi]

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]

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

 

[benoitxi]

Oui en effet j'utilise Dir par la suite.
Merci