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

J'utilise la fonction : GetOpenFileName dans une procédure :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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