VBA: ouvrir un fichier

Bonjour,
Pourriez-vous m'aider? Je cherche à ouvrir 3 fichiers et à mettre une condition :
1) ouvrir les fichiers et les refermer
2) si les fichiers sont déjà ouverts, ne pas chercher à les ouvrir de nouveau et ne pas les fermer

Voici mon ébauche:
Application.ScreenUpdating = False
ChDir "G:\dossier\"
Workbooks.Open Filename:="C:\dossier\fichier1.xls"
Workbooks.Open Filename:="G:\dossier\fichierA.xls"
ChDir "H:\dossier\"
Workbooks.Open Filename:="H:\dossier\fichier Z2.xls",
ActiveWorkbook.Close
ActiveWorkbook.Close
ActiveWorkbook.Close
Application.ScreenUpdating = True

Je dois ajouter la condition 2...
Merci !

Cordialement.