Discussion :

[qvn83]

Code :

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

1
2
3
4
5
6
7
8
 
Dim xxx As FileDialog
 
Set xxx = Application.FileDialog(msoFileDialogFolderPicker)
    With xxx
            .InitialFileName = "\\***\***\03_CLIENTS RA_Offres de prix_Contrats\01- DEVIS CLIENTS"
            .Title = "Sélectionner un dossier"
End with

Bonjour, j'ai mis ce code pour ouvrir une boite de dialogue avec le chemin du répertoire voulu, sauf que comme .InitialFileName ne sélectionne que le nom du dossier, la boite de dialogue ne s'ouvre pas avec le répertoire que je veux.

Quelqu'un sait-il comment faire si c'est possible svp ?