Discussion :

[arkorrigan]

bonjour à tous !

Alors, je voudrais pouvoir avoir acces sous forme de fenetre explorer au dossier dans lequel sont enregistrées des archives.
Je voudrais pouvoir le faire à partir d'un bouton de commande donc cela nécessite une macro !
Probleme je ne connais pas leS formules pour afficher la fenetre du dossier !

Est ce que quelqu'un peut m'aider ?????????????

Merci d'avance...

[kiki29]

Salut,as-tu cherché dans la FAQ ?
http://excel.developpez.com/faq/?pag...reExploWindows
sinon

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Sub Test2()
Dim objShell As Object, objFolder As Object, oFolderItem As Object
Dim Chemin As String
 
    Set objShell = CreateObject("Shell.Application")
    Set objFolder = objShell.BrowseForFolder(&H0&, "Choisir un répertoire", &H1&)
 
    On Error Resume Next
    Set oFolderItem = objFolder.Items.Item
    Chemin = oFolderItem.Path
 
    If Len(Chemin) > 0 Then MsgBox Chemin
End Sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Sub Test4()
Dim sChemin As String
    sChemin = ThisWorkbook.Path & "\"
    With Application.FileDialog(msoFileDialogFolderPicker)
        .InitialFileName = sChemin
        .Title = "Sélectionner un Dossier"
        .AllowMultiSelect = False
        .InitialView = msoFileDialogViewDetails
        .ButtonName = "Sélection Dossier"
        .Show
        If .SelectedItems.Count > 0 Then
            MsgBox .SelectedItems(1)
        End If
    End With
End Sub

msoFileDialogFolderPicker dispo à partir de Windows XP ,Windows Server 2003 et Windows 2000
Pour la partie personnalisation de SHBrowseForFolder voir http://j-walk.com/ss/excel/tips/tip29.htm

[arkorrigan]

Merci beaucoup kiki 29,

soluce impec !

[Simon777pb]

Salut,

je suggère fortement de regarder ce lien la aussi pour ceux qui on le même genre de problèmes !!!

http://vb.developpez.com/faq/?page=F...#AffBoitDialog

Ciao