Comment ouvrir une boîte de dialogue et sélectionner un dossier complet?

Pierrot93

XLDnaute Barbatruc

• 21 Mai 2011

• #2

Re : Comment ouvrir une boîte de dialogue et sélectionner un dossier complet?

Bonjour Papou

si j'ai bien compris :

Code:

Dim chemin As String
With Application.FileDialog(msoFileDialogFolderPicker)
    '.InitialFileName = ActiveWorkbook.Path & "\"
    .Show
    If .SelectedItems.Count > 0 Then chemin = .SelectedItems(1)
End With

bonne journée
@+

 

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 21 Mai 2011

• #3

Re : Comment ouvrir une boîte de dialogue et sélectionner un dossier complet?

Bonjour Pierrot,
je vais essayer de suite
a+
papou

 

Vote positif 0 Vote négatif

CBernardT

XLDnaute Barbatruc

• 21 Mai 2011

• #4

Re : Comment ouvrir une boîte de dialogue et sélectionner un dossier complet?

Bonjour Paritec,

Bonjour Pierrot,

Une autre syntaxe avec boite de dialogue pour définir le chemin d'un répertoire, si c'est cela que tu veux ?

Private Sub CommandButton1_Click()
Dim objShell, objFolder, Chemin As String
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.BrowseForFolder(&H0&, "Choisissez un répertoire", &H1&)
On Error Resume Next
Chemin = objFolder.ParentFolder.ParseName(objFolder.Title).Path & ""
On Error GoTo 0
If Chemin = "" Then Exit Sub
Range("A1") = Chemin ' Pour vérification
''''' Suite de la macro
End Sub

 

Dernière édition: 21 Mai 2011

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 21 Mai 2011

• #5

Re : Comment ouvrir une boîte de dialogue et sélectionner un dossier complet?

Re Pierrot,
Comme dab avec toi c'est tout bon, cela faisait juste 2 heures que je cherchais !!!!!!!!!
bref des fois il vaut mieux poster une demande
merci encore Pierrot
et bon WE
a+
papou

 

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 21 Mai 2011

• #6

Re : Comment ouvrir une boîte de dialogue et sélectionner un dossier complet?

Re Bernard,
je vais aussi essayer ta macro dans une poignée de seconde et merci a toi aussi Bernard
a+
papou

 

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 21 Mai 2011

• #7

Re : Comment ouvrir une boîte de dialogue et sélectionner un dossier complet?

Re Pierrot, Bernard,
Les deux versions me plaisent bien en tout cas elle sont maintenant enregistrée
merci encore à vous deux
a+
papou

 

Vote positif 0 Vote négatif