Discussion :

[PHI60]

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

[Invité]

Bonjour,

Et avec un double clic sur le fichier choisi ?

[PHI60]

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.

[Invité]

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.

[PHI60]

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