getopenfilename spécifier le dossier

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...

Code:

---

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+

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

merci quand même.

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:

---

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

---

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+

Citation:

---

Envoyé par LeForestier

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 ? :evilred:
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 :

Citation:

---

'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:

---

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...

---

.....................................:mouarf3:

Cherche pas plus loin, ca fonctionne avec chdrive :mouarf:
A+

Soir Bon

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Option Explicit   Sub Tst() Dim sChemin As String Dim Fichier As Variant sChemin = Cells(1, 1) ChDrive sChemin ChDir sChemin Fichier = Application.GetOpenFilename("Text Files (*.txt), *.txt") If Fichier <> False Then lire Fichier End Sub   Private Sub lire(ByVal sNom As String) '...... End Sub

---

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Sub Test2() Dim Dossier As String Dim sChemin As String sChemin = Cells(1, 1) With Application.FileDialog(msoFileDialogFolderPicker) .InitialFileName = sChemin & "\" .AllowMultiSelect = False .Show End With On Error Resume Next Dossier = Application.FileDialog(msoFileDialogFolderPicker).SelectedItems(1) If Dossier = "" Then Exit Sub Else MsgBox Dossier End Sub

---

merci a tous pour votre aide, je viens d'arriver au boulot, je n'avais pas vu toutes vos réponses.

La solution de ouskel'n'or fonctionne parfaitement c'est juste que j'étais pas sur le même volume comme tu me la fait remarqué.

j'ai pas testé les autres solutions mais je vais le faire, merci a tous.

Juste pour info : Commondialog (VB6) a son équivalent VBA qui est

Code:

---

Application.Dialogs.Item(xlDialogOpen).Show

---

ouvre la boîte de dialogue Excel "Ouvrir" sur le répertoire courant et ouvre le fichier sélectionné.
Mais pour sélectionner drive et répertoire, c'est pareil ;)

bon a savoir, merci.