XL 2013 Boite de dialogue Ouvrir un fichier - GetOpenFilename sujet

Bonjour à tous,

Je travaille sous excel 2013.
J'ai développé une macro destinée à ouvrir un fichier excel nommé "listes.xlsm "
Le code se trouve ci-après, je l'ai adapté d'après des exemples trouvés sur internet.
je souhaite l'ouverture de mon fichier sans intervention de l'utilisateur, or, la macro m'affiche systématiquement la boite de dialogue ouvrir un fichier.
Comment faire pour éviter son affichage ?

Par ailleurs si le fichier "listes.xlsm" est déjà ouvert la macro ne doit pas fonctionner. Là aussi je ne sais comment procéder.

Code :

---

Nom_fichier = Application.GetOpenFilename("Fichiers Excel (*.xlsm), *.xlsm")
If Nom_fichier <> False Then
    Set wbMyWB = Workbooks.Open("D:\LBT\annexes\listes.xlsm")
    wbMyWB.Activate
End If

---

D'avance merci pour votre aide.

Nicolas