GetOpenFileName Nom du Fichier et Format

Bonjour,

je cherche à ouvrir un fichier Excel via la boîte de dialogue.
Lorsque la boîte de dialogue s'ouvre, j'aimerais que le format de fichier soit prédéfini Excel, qu'un nom de fichier soit déjà pré-saisi dans la case File name et que la boîte s'ouvre avec le bon répertoire.
J'ai bien réussi à filtrer le format .xls et à avoir le bon répertoire :

Code:

---

1 2	chdir ThisWorkbook.Path Workbooks.Open Filename:=Application.GetOpenFilename("Excel Files (*.xls),*.xls")

---

Mais j'aimerais que le nom de fichier apparaisse lui aussi, de manière à ce que l'utilisateur sache quel fichier il a à ouvrir.

Quelqu'un a-t-il une idée ?
Merci

Bonjour,

Pourquoi passer par une boite de dialogue si le fichier à ouvrir est connu ?

Parce que il se peut que certaines personnes déplacent les fichiers, notamment d'une année sur l'autre, et je souhaiterais que cette macro fonctionne encore pas mal de temps. Donc si je mets en dur le chemin, elle plantera un jour ou l'autre. A l'heure actuelle le fichier à ouvrir est dans le même répertoire que le fichier contenant la macro et son nom est défini, mais il se peut que tout change l'année prochaine.

Voilà pourquoi.
Sinon, effectivement, je me prends la tête pour rien. Mais il faut que je prévois toutes les éventualités (surtout pour éviter les mauvaises surprise à ceux qui ne maitrisent pas VBA).

Bonjour

Je propose de passer par une fonction qui renvoie le nom du fichier saisi dans la boite de dialogue. Si aucun fichier n'est saisi (clic sur Annuler ou sur la croix de fermeture, la fonction renvoie une chaine vide. On peut ainsi tester la valeur de retour

Code:

---

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

Function RechercheFichier() As String Dim fd As FileDialog Dim NomFichier As String   Set fd = Application.FileDialog(msoFileDialogFilePicker) With fd .Filters.Add "Fichiers Excel", "*.xls" .Title = "Recherche de fichier" .InitialFileName = "Adresses.xls" End With If fd.Show = -1 Then NomFichier = fd.SelectedItems(1)   RechercheFichier = NomFichier Set fd = Nothing End Function

---

Exemple d'utilisation

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub MaProcedure() Dim NomFichier As String   NomFichier = RechercheFichier() If NomFichier = "" Then MsgBox "Vous n'avez sélectionné aucun fichier" Else Workbooks.Open NomFichier End If End Sub

---

On peut complexifier la fonction en passant par exemple en paramètre le nom du fichier par défaut, ce qui rend la fonction exploitable dans d'autres codes.

Il y a d'autres propriétés de l'objet FileDialog que la saisie semi-automatique permet de visualier, ainsi que l'explorateur d'objet.

Ok?

Tout d'abord merci beaucoup pour ces indications.
Le seul souci est que je ne souhaite pas que l'utilisateur entre un nom de fichier dans la boîte de dialogue mais que ce nom de fichier y soit déjà entré lorsqu'elle s'ouvre. J'arrive à faire ca lorsqu'il s'agit de GetSaveAsFilename mais pour Open, impossible.

C'est la propriété InitialFileName qui permet cela dans mon exemple. As-tu testé pour voir ce que cela donne?

Oupsss. Pardon. Je n'ai rien dit.

Juste après avoir envoyé ma réponse, j'ai effectivement testé.

C'est nikel. A voir par contre le fait que si je donne un nom de fichier, le nom apparaît bien dans la boîte de dialogue, mais l'utilisateur n'a aucun moyen de voir les autres fichiers excel du même emplacement. Et s'il s'apercoit que le nom prédéfini n'est plus le bon, il ne peut changer de classeur à ouvrir.

Encore creuser à ce niveau là.

En tous cas, 1000 excuses, c'était exactement ce que je recherchais.
Merci encore

Citation:

---

Envoyé par melouille56

...
C'est nikel. A voir par contre le fait que si je donne un nom de fichier, le nom apparaît bien dans la boîte de dialogue, mais l'utilisateur n'a aucun moyen de voir les autres fichiers excel du même emplacement. Et s'il s'apercoit que le nom prédéfini n'est plus le bon, il ne peut changer de classeur à ouvrir....

---

Il suffit à l'utilisateur de supprimer le nom dans la zone, puis de presser F5 et il verra apparaître tous les fichiers Excel (ce n'est pas spécifique au code fourni, c'est le comportement normal de ce genre de boites de dialogue sous Windows...)

Ok?