[OL-2007] Ouvrir explorateur windows

[Ludovic50]

Bonjour à tous,

J'essai d'ouvrir l'explorateur windows pour selectionner un fichier et mettre le chemin dans un textbox mais celui ne veut pas ouvrir l'explorateur !

Faut-il une référence spécifique ?

Avez vous une idée ?

Mon code :

Code :

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
Userform.Hide
 
    Dim fd As FileDialog
 
    ChDir V:\
 
    Set fd = Application.FileDialog(msoFileDialogFilePicker)
 
 
    dossierclient = "V:\"   
    ChDir (dossierclient)
 
    With fd
        .InitialFileName = dossierclient
 
        .AllowMultiSelect = False
 
        If .Show = -1 Then
            Userform.insert.Value = .SelectedItems(1)
        Else
            'Action sur Annuler
        End If
    End With
 
    Set fd = Nothing
 
Userform.Show

Merci d'avance