Choisir un répertoire par défaut dans un GetOpenFileName [Résolu]

[Alqualonde]

Bonjour,

je cherche à pouvoir mettre 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, il y en a plusieurs mais soit la réponse me paraît horriblement compliqué pour un problème qui semble simple, soit je n'ai pas réussi à la faire marcher (comme par exemple en mettant un simple chdir ("C:/...")

Bref, si quelqu'un a une idée, merci d'avance !
Bonne soirée

[tirex28]

Bonjour,

Code :

1
2
3
4
5
6
7
8
9
10
11
Sub test()
 
'Selectionne un disque
ChDrive "C:"
'Selectionne un repertoire sur ce disque
ChDir "C:\Documents and Settings\Default User\Mes documents"
 
'La boite de dialogue s'affiche avec le repertoire selectionne
Msgbox Application.GetOpenFilename
 
End sub

Bonne soirée,

Tirex28/

[kiki29]

Re, une variante

Code :

1
2
3
4
5
6
7
8
9
10
11
12
Option Explicit
Sub Tst()
Dim Fichier As Variant
Const Dossier As String = "C:\Transfert"
 
    ChDrive Dossier
    ChDir Dossier
    Fichier = Application.GetOpenFilename("Text Files (*.txt), *.txt")
 
    If Fichier = False Then Exit Sub
'    ....
End Sub

[Alqualonde]

Merci beaucoup à tous les deux, ça marche parfaitement !