erreur de syntaxe sur workbook.worksheet...

[viniboy]

Bonjour à toutes et à tous,

Sub test5()
Dim Wb As Workbook
Dim Ws As Worksheet
Set Wb = Workbooks(1)
Set Ws = Sheets(1)
MsgBox Wb.Ws.Name
end sub

Je vous le dis franchement, je comprend pas du tout pourquoi ca bug. Chaque syntaxe commencant par Wb.Ws buge chez moi.
'erreur 438 propriété ou méthode non gérée par cet objet.'

Si quelqu'un voit, ca m'interesserait beaucoup.

Merci d'avance
Cordialement,
Vincent

 

[michel_m]

salut viniboy

essaies avec

set Wb=Workbooks('1.xls')

Bon appétit

Michel_M

 

[viniboy]

Bonjour Michel,

Je viens de trouver:

Sub test7()

Dim Wb As Workbook
Dim Ws As Worksheet
Set Wb = Workbooks('Palmares.xls')
Set Ws = Wb.Sheets(2)
MsgBox Ws.Name

End Sub

alors que ca

Sub test6()

Dim Wb As Workbook
Dim Ws As Worksheet
Set Wb = Workbooks(1)
Set Ws = Worksheets(1)
MsgBox Wb.Ws.Name

End Sub

ca marche pas.

Je débute et j'ai du mal,
Merci de ton aide,
Vincent