Discussion :

[redstoff]

bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[mercatog]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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