GetOpenFilename + fichier excel specifique

Bonjour,


je souhaiterai ouvrir une boite de dialogue avec un fichier bien specifique a sélectionner...

Et voir seulement le fichier en question dans le dossier ouvert , un peu comme la sélection d'un fichier xls
j'ai essayé ceux-ci , cela ne fonctionne pas.?

Code:

---

FichierCelStr = Application.GetOpenFilename("EXP (.xls), EXP.xls")

---

Merci d'avance

Ta question est un peu confuse, on peut ouvrir un fichier directement par
Workbooks.Open("Adresse complète")

Si cette réponse ne te satisfait, merci de mieux expliquer ta demande.

+++
LabChNe

Je souhaiterais avoir une selection d'un fichier specifique au lieu d'avoir une selection de tout les fichiers xls lors de l'ouverture du popup de selection

:ccool:

Bonjour,

Getopenfilename ne permet pas de filtrer les fichiers de cette manière. Seule l'extension est prise en considération.

Tu peux utiliser Filedialog si tu veux proposer un nom de fichier à ouvrir par défaut.

Voici un exemple de code qui utilise le nom de fichier stocké dans une cellule.
Le code limite l'ouverture à 1 fichier à la fois, car il est techniquement possible d'en sélectionner plusieurs.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

Private Sub Select_Details_file_Click() Dim drive As String Dim fichier As String Dim chemin As String Dim tablo() As String     Bonus_Detail_file_Cell = "G6" fichier = Sheets("Tools").Range(Bonus_Detail_file_Cell)     With Application.FileDialog(msoFileDialogFilePicker) .AllowMultiSelect = False .Title = "Sélectionnez le Fichier" .InitialFileName = fichier .Show If .SelectedItems.Count > 0 Then Sheets("Tools").Range(Bonus_Detail_file_Cell) = .SelectedItems(1)   End If   End With End Sub

---

merci de ta reponse
Comment puis je recuperais le chemin du fichier selectionner car je souhaite l'afficher dans un label
merci

Après ouverture, en supposant que c'est lui qui est le classeur actif, via :

Code:

---

Activeworkbook.path

---