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

patricktoulon

XLDnaute Barbatruc

• 7 Octobre 2019

• #2

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

 

Dernière édition: 7 Octobre 2019

Vote positif 0 Vote négatif

B

benoitxi

XLDnaute Nouveau

• 7 Octobre 2019

• #3

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

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 7 Octobre 2019

• #4

re
test et tu verra 😉

 

Vote positif 0 Vote négatif

B

benoitxi

XLDnaute Nouveau

• 7 Octobre 2019

• #5

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...

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 7 Octobre 2019

• #6

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]

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 7 Octobre 2019

• #7

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 😉

 

Vote positif 0 Vote négatif

B

benoitxi

XLDnaute Nouveau

• 8 Octobre 2019

• #8

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

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 8 Octobre 2019

• #9

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

B

benoitxi

XLDnaute Nouveau

• 8 Octobre 2019

• #10

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

 

Vote positif 0 Vote négatif