Discussion :

[melouille56]

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 :

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

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

[Bigalo]

Bonjour,

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

[melouille56]

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

[Pierre Fauconnier]

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 :

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

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 :

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

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?

[melouille56]

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.

[Pierre Fauconnier]

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

[melouille56]

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

[Pierre Fauconnier]

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