Spécifier dossier par défaut avec l'instruction Application.GetOpenFileName

[Sly le globe trotter]

Bonjour,

je cherche à pouvoir spécifier un répertoire par défaut à l'ouverture de la fenêtre qui permet de choisir un fichier à ouvrir avec l'instruction Application.GetOpenFileName.

J'ai cherché des topics du même genre sur le net,

Const Dossier As String = "C:\Transfert"
 
ChDrive Dossier
ChDir Dossier

mais je n'ai pas réussi à l'adapter à mon cas... Le répertoire par défaut que je cherche à spécifier est un dossier partagé sur un PC de mon réseau...

J'ai bien tenté

Const Dossier As String = "\\Ordi220\"
 
ChDrive Dossier
ChDir Dossier

mais le code plante sur la ligne ChDrive.

Pouvez-svp m'aider ?

Merci

 

[Pierrot93]

Re : Spécifier dossier par défaut avec l'instruction Application.GetOpenFileName

Bonjour,

tu dois indiquer la lettre d'un lecteur existant sur l'ordi...

ChDrive "D"

ci-dessous extrait de l'aide vba :

L'argument drive est une expression de chaîne désignant un lecteur existant. Si vous indiquez une chaîne de longueur nulle (""), le lecteur courant reste le même. Si l'argument drive est une chaîne à plusieurs caractères, l'instruction ChDrive n'utilise que la première lettre.

bon après midi
@+

 

[Sly le globe trotter]

Re : Spécifier dossier par défaut avec l'instruction Application.GetOpenFileName

Bonjour Pierrot93,

Merci de ta réponse mais je ne suis pas sûr de comprendre. Le dossier qui m'intéresse se trouvant être un dossier partagé sur un autre PC que celui duquel je lance la macro, il n'a pas de lettre de lecteur...
Si je me positionne dans ce dossier, dans l'explorateur, l'adresse est la suivante : \\Ordi220\Save.

Sly

 

[Kiseki]

Re : Spécifier dossier par défaut avec l'instruction Application.GetOpenFileName

Bonjour,

Tu doit juste adapter ton code car tu ne peux pas prélever une lettre de lecteur s'il n'existe pas.

 

[Sly le globe trotter]

Re : Spécifier dossier par défaut avec l'instruction Application.GetOpenFileName

Salut Kiseki,

Et tu saurais comment faire ? Parce que je coince justement

Merci

 

[Pierrot93]

Re : Spécifier dossier par défaut avec l'instruction Application.GetOpenFileName

Re, bonjour kiseki

regarde le code ci-dessous, fonctionne chez moi :

Dim fichier As String
With Application.FileDialog(msoFileDialogFilePicker)
    .InitialFileName = "\\NomServeu\Dosier1\SousDosier1\"
    .Filters.Clear
    .Filters.Add "ma descrip", "*.xls"
    .Show
    If .SelectedItems.Count > 0 Then Workbooks.Open .SelectedItems(1)
End With

 

[Sly le globe trotter]

Re : Spécifier dossier par défaut avec l'instruction Application.GetOpenFileName

Pierro93,

ta solution fonctionne à merveille, merci !
Juste une précision. Je cherche à récupérer le nom du fichier sélectionné par l'utilisateur.

Avec la commande

Dim FileToOpen As String
FileToOpen = Application.GetOpenFilename("Text Files (*.txt), *.txt")

pas de problème mais avec ta solution, comment faut-il procéder ?

Merci encore
Sly

 

[Sly le globe trotter]

Re : Spécifier dossier par défaut avec l'instruction Application.GetOpenFileName

Trouvé !

Application.FileDialog(msoFileDialogFilePicker).SelectedItems(1)

Merci pour votre aide