Application.GetOpenFilename("Fichiers Excel (*.xl*), *.xl*")

Bonjour à tous,
Merci d'avance pour votre aide.

J'utilise la fonction : GetOpenFileName dans une procédure :

Code:

---

1 2 3 4 5 6 7

ChDrive ZDir 'définit le disque Z: ChDir ZDirDevis 'définit le répertoire ciblé ' ouvre l'explorateur de fichier Fichier = Application.GetOpenFilename("Fichiers Excel (*.xl*), *.xl*") If Fichier = False Then Exit Sub Workbooks.Open Fichier ' ouvre le fichier excel

---

Cela se passe à merveille à un détail près.
Cette procédure ouvre un fenêtre "Explorer" et je dois la fermer manuellement chaque fois.
Comment faire pour la fermer directement après que mon fichier est ouvert et disponible.

Merci d'avance
Philippe

Citation:

---

Envoyé par PHI60

---

Bonjour,

Et avec un double clic sur le fichier choisi ?

Hello Eric KERGRESSE
Merci pour la réaction, mais je ne comprends pas son sens.

Je parle de la fenêtre Explorer qui a permis de trouver le fichier à ouvrir. C'est cette fenêtre Explorer qui reste ouverte.

Citation:

---

Envoyé par PHI60

---

L'exemple est dans le fichier joint. Le bouton ... dans la boite de dialogue lance la boite de dialogue OpenGetFileName. Une fois un fichier sélectionné, un doubleclic sur celui-ci ferme la boite de dialogue.

Eric KERGRESSE
Merci pour cette réponse beaucoup plu claire pour moi.
Je n'utiliser pas le userForm.

Je vais tester cela et reviens vers vous.
Mais cela m'a l'air top.

Merci et bon week-end