VBA: ouvrir un fichier

[Egruat]

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.

 

[ERIC S]

Re : VBA: ouvrir un fichier

bonjour

non testé

troue = 0
for i= 1 to windows.count
if windows(i).caption = ""ton nom de fichier"" then trouve = 1
next
if trouve = 0 then ....ouverture
trouve=0

 

[Dull]

Re : VBA: ouvrir un fichier

Salut Egruat, Eric🙂, le Forum

Idem qu'Eric_S (Non testé)

If Err <> 0 Then
On Error Resume Next
Application.DisplayAlerts = False
Workbooks.Open Filename:="C:\dossier\fichier1.xls"
Application.DisplayAlerts = True
End If

Bonne Journée

 

[Egruat]

Re : VBA: ouvrir un fichier

Bonjour, cela fonctionne mais je me retrouve à l'écran avec le fichier testé soit"ton nom de fichier" et non le fichier sur lequel je travaille.

Pourriez-vous me dire ce que la fonction windows.caption signifie ? Je ne comprends pas très bien la macro...

Merci encore.

 

[ERIC S]

Re : VBA: ouvrir un fichier

Re

ton fichier d'origine réapparaitra si tu fermes le fichier appelé (close)
si tu ne veux pas le fermer, en début de macro :

mafenêtre = activeworbook.name (ou activewindow.caption)

et en fin de macro

windows(mafenêtre).activate



sinon Caption veut dire titre, légende et windows.caption c'est le nom de la fenêtre