demande d'aide sur un commande

bonjour,

j'ai fait une commande toute simple mais elle me pose un souci

Code:

---

1 2 3 4 5 6 7 8 9

If Range("q2") = 1 Then Dim nom As String nom = Range("d2") Workbooks.Open Filename:="M:\poubelle\Michael\anasuspendues\" & nom & ".xls" End If   If Range("q2") <> 1 Then Workbooks.Open Filename:="M:\poubelle\Michael\anapiece1.xls" End If

---

les conditions sont simple mais quand je lance ma macro ça m'ouvre les 2 fichiers.

quelqu'un peut m'aider svp

Code:

---

1 2 3 4 5 6 7 8 9

Dim Nom As String Dim wbk As Workbook   If Range("q2") = 1 Then Nom = Range("d2").Value Set wbk = Workbooks.Open("M:\poubelle\Michael\anasuspendues\" & Nom & ".xls") Else Set wbk = Workbooks.Open("M:\poubelle\Michael\anapiece1.xls") End If

---