IF Workbooks Open Then..

Salut,

Voilà, j'essaie de faire une macro conditionnelle. Je voudrais que SI l'un de mes fichiers Excel (Workbooks) est ouvert, que ma macro ne fasse rien, et que sinon, elle ouvre ce fichier...

Ça l'air stupide en effet comme problème, mais je ne comprends pas pourquoi mon code ne fonctionne pas (disons que suis débutant la dedans). Voici à quoi il ressemble. Merci milles fois!

Code:

---

1 2 3

If Workbooks.Open ("G:\QSigma\Gabriel\Potentialization\Potentialization All Cies DEC07.xls") = False Then Workbooks.Open Filename:=("G:\QSigma\Gabriel\Potentialization\Potentialization All Cies DEC07.xls") End If

---

Ce code fonctionne, change juste le nom du fichier

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Dim wrk As Workbook Dim Trouve As Boolean Trouve = False   For Each wrk In Application.Workbooks If wrk.Name = "a.xls" Then Trouve = True Next   If Trouve = False Then Workbooks.Open "d:\a.xls" End If

---

Wow!!! Merci, ça marche nickel!!!!:)