boite de dialogue open

[sarrsouraa]

Bonjour tout le monde

dans ce petit code j'affiche la boite de dialogue open afin que l'utilisateur me selectionne un fichier:

Sub test()
Dim MonFichier
QuelFichier = Application.GetOpenFilename()
MsgBox QuelFichier
End Sub

ya t'il un moyen de mettre un chemein par défaut

merciiiiiiiiiiiiiiiiiiii

 

[kjin]

Re : boite de dialogue open

bonjour,
Il faut changer de rep par défaut auparavant

Dim MonFichier
ChDir "E:\xxx\xxx..."
QuelFichier = Application.GetOpenFilename()
MsgBox QuelFichier

A+
kjin

 

[sarrsouraa]

Re : boite de dialogue open

Merci beaucoup pour ta reponse Kjin

mon chemin par defaut est un lien web alors je recois path incorrect

ChDir "http://spi.cim.local/review/"
quelFichier = Application.GetOpenFilename()

merci pour ton aide

 

[kjin]

Re : boite de dialogue open

Re,
alors va falloir être plus clair sur tes intentions...
A+
kjin

 

[sarrsouraa]

Re : boite de dialogue open

ce que je veux faire c definir comme chemin \\server\folder\ et afficher la boite de dialogue open