Discussion :

[dev_php51]

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 :

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

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

Merci d'avance

[LabChNe]

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

[dev_php51]

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

[Godzestla]

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 :

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

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

[dev_php51]

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

[Godzestla]

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

Code :

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

Activeworkbook.path