Discussion :

[mohcultiv]

salut,

je veux que l'utilisateur sélectionne un fichiers et j'utilise la fonction getopenfilename, le souci c'est que j'ai une cellule qui contient le chemin du dossier qui contient le fichier à selectionner et il faudrait que lorsque je fassse mon GetOpenFileName, la fenetre parcourir s'ouvre directement sur le dossier spécifié dans ma célulle.

je sais pas si j'ai été clair...

[ouskel'n'or]

Code :

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

1
2
3
4
ChDir "D:\TonRep" 'te place dans le répertoire "TonRep"
          'Affiche la boîte de dialogue Ouvrir
    NomFich = Application.GetOpenFilename(FileFilter:="Fichier texte(*.txt),*.txt" _
            , Title:="Sélectionnez le fichier à ouvrir")

A+

[mohcultiv]

j'ai testé mais ça ne marche pas.

merci quand même.

[ouskel'n'or]

Ton répertoire est-il sur un volume différent ?

Edit
Comme je voudrais bien passer à autre chose : Si ton volume est différent de celui de ton classeur, tu dois le préciser

Code :

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

1
2
ChDrive "Z"
MonRep = "Z:\LeRep"

[LeForestier]

Si la solution de ouskel'n'or ne fonctionne pas essaye avec le control CommonDialog, là tu peu initialiser le rép d'ouverture
A+

[ouskel'n'or]

Si la solution de ouskel'n'or ne fonctionne pas

Pourquoi voudrais-tu qu'elle ne fonctionne pas ? Parce que c'est moi qui l'ai mise ?
Je blague !
Par contre, Commondialog mérite une explication, explication d'AlainTech que j'ai bien sûr récupérée (tu penses !) il y a une éternité sur le forum. Alors la voici, tu verras que c'est beaucoup plus simple que chdir et chdrive. Je cite :

'Si L 'application n'en possède pas, je crée un Form.
'Il ne sera pas affiché, il sert seulement de support au contrôle CommonDialog.
'Dans les références, j'ajoute "Microsoft Common Dialog Control 6.0".
'S 'il n'est pas présent dans la liste, Parcourir et sélectionner comdlg32.ocx.
'j 'ajoute ce contrôle à la boîte à outils.
'Je colle le contrôle dans le form (il est réduit à une forme de bouton)

'Pour L 'utiliser:

Code :

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

1
2
3
4
5
Sub CommonDialog()
    NomDuForm.CommonDialog1.ShowOpen
    MsgBox (NomDuForm.CommonDialog1.Filename)
    MsgBox (NomDuForm.CommonDialog1.FileTitle)
End Sub

'Il y a aussi moyen d'utiliser la dll et pas l'ocx mais je ne l'ai jamais fait et il faudrait que je cherche un peu...

.....................................