Optimisation de GetOpenFilename

[BremyHH]

Bonjour a tous, voila, j'aimerais essayer de perfectionner un peu mon programme, et particulièrement au niveau du Application.GetOpenFilename.

Voici mon programme:
MonFichier = Application.GetOpenFilename(FileFilter:="Text Files (*.txt), *.txt", Title:="Choose File")

Je voudrais savoir si il y a moyen de faire en sorte que la fenetre s'ouvre directement dans un dossier défini.. Par exemple dans le dossier "d:\new folder" ?

J'ai essayé avec les differents parametres, dont FilterIndex.. donc je ne comprends pas l'utilité, mais rien a faire. Je ne trouve pas. Bref, peut on réaliser cela avec la commande Application.OpenFilename, ou dois je m'y prendre autrement ?

Merci d'avance !

 

[ERIC S]

Re : Optimisation de GetOpenFilename

Bonjour
peut-être en faisant un chdir juste avant

 

[Pierrot93]

Re : Optimisation de GetOpenFilename

Bonjour,

essaye avec ceci :

ChDrive "D"
ChDir "D:\new folder"
MonFichier = Application.GetOpenFilename(FileFilter:="Text Files (*.txt), *.txt", Title:="Choose File")

le dossier spécifié doit exister..

bon après midi
@+

Edition : bonjour Eric🙂

 

[Papou-net]

Re : Optimisation de GetOpenFilename

Bonjour BemyHH, ERIC S,

Une autre solution, en écrivant le chemin dans la ligne de code :

MonFichier = Application.GetOpenFilename(FileFilter:="Text Files (*.txt), C:\*.txt", Title:="Choose File")

Dans cet exemple, la fenêtre affiche les fichiers du répertoire C:\, mais il suffit bien sûr d'adapter ce chemin.

Cordialement.

Edit : bonjour Pierrot, j'arrive encore après toi !

 

[BremyHH]

Re : Optimisation de GetOpenFilename

Désolé pour la réponse tardive, mais merci bien, ca marché trés bien avec ta solution Pierrot !

Cordialement Rémy.