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

benoitxi · 7 Octobre 2019

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 · 7 Octobre 2019

bonjour

VB:

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 · 7 Octobre 2019

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 · 7 Octobre 2019

re
test et tu verra

benoitxi · 7 Octobre 2019

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 · 7 Octobre 2019

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 · 7 Octobre 2019

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 · 8 Octobre 2019

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 · 8 Octobre 2019

benoitxi à dit:
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 · 8 Octobre 2019

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

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

benoitxi

XLDnaute Nouveau

patricktoulon

XLDnaute Barbatruc

benoitxi

XLDnaute Nouveau

patricktoulon

XLDnaute Barbatruc

benoitxi

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

benoitxi

XLDnaute Nouveau

patricktoulon

XLDnaute Barbatruc

benoitxi

XLDnaute Nouveau

Discussions similaires