Discussion :

[Godzestla]

Bonjour,

je souhaiterais avec le code suivant que le système soit positionné sur un folder déterminé, celui correspondant à l'ancien choix stocké dans ma feuille excel.

Est-ce possible et si oui comment ?

Code :

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

1
2
3
4
5
6
7
8
9
10
 
With Application.FileDialog(msoFileDialogFolderPicker)
        .AllowMultiSelect = False
        .Title = "Sélectionnez le répertoire"
        .Show
If .SelectedItems.Count > 0 Then
    Me.Folder_Mxattach = .SelectedItems(1)
End If
 
End With

merci.

[ouskel'n'or]

Connais pas avec Folder mais avec Dialogs, on peut faire des choses

Code :

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

1
2
3
4
5
6
7
8
Sub UseFileDialogOpen()
Dim chemin As String
    chemin = "H:\xls\"
    ChDrive "H"
    ChDir chemin
    Application.Dialogs(xlDialogOpen).Show
 
End Sub

[Godzestla]

re,

ton code marche, alors que

Code :

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

Application.FileDialog(msoFileDialogFolderPicker)

ne tient pas compte de CHdrive et du Chdir, contrairement à

Code :

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

Application.Dialogs

mais je cherche un folder et pas un fichier.

tant pis. Je reste sur ma fenêtre qui s'ouvre au dernier endroit utilisé.
Con mais je peux vivre avec.

merci quand-même.

je ferme le post/

[yorgh1234]

voilà ce que j'ai trouvé et qui fonctionne très bien :

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
17
18
19
20
21
22
23
24
25
26
27
28
29
 
Function BrowseFolder(Title As String, _
        Optional InitialFolder As String = vbNullString, _
        Optional InitialView As Office.MsoFileDialogView = _
            msoFileDialogViewList) As String
    Dim V As Variant
    Dim InitFolder As String
    With Application.FileDialog(msoFileDialogFolderPicker)
        .Title = Title
        .InitialView = InitialView
        If Len(InitialFolder) > 0 Then
            If Dir(InitialFolder, vbDirectory) <> vbNullString Then
                InitFolder = InitialFolder
                If Right(InitFolder, 1) <> "\" Then
                    InitFolder = InitFolder & "\"
                End If
                .InitialFileName = InitFolder
            End If
        End If
        .Show
        On Error Resume Next
        Err.Clear
        V = .SelectedItems(1)
        If Err.Number <> 0 Then
            V = vbNullString
        End If
    End With
    BrowseFolder = CStr(V)
End Function

lien : http://www.cpearson.com/excel/browsefolder.aspx

Pour ceux qui tombent dessus ...

[Slight50]

Merci !

[jpm094]

Bonjour,

je souhaiterais avec le code suivant que le système soit positionné sur un folder déterminé, celui correspondant à l'ancien choix stocké dans ma feuille excel.

Est-ce possible et si oui comment ?

Code :

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

1
2
3
4
5
6
7
8
9
10
 
With Application.FileDialog(msoFileDialogFolderPicker)
        .AllowMultiSelect = False
        .Title = "Sélectionnez le répertoire"
        .Show
If .SelectedItems.Count > 0 Then
    Me.Folder_Mxattach = .SelectedItems(1)
End If
 
End With

merci.

Code :

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

Application.FileDialog(msoFileDialogOpen).InitialFileName = "D:\votre dossier\"