probleme de syntaxe sur worbook

[viniboy]

Bonjour à toutes et à tous,
Voici mon code :

Sub test1()

MsgBox Application.Workbooks('exclusion.xls').Sheets('Feuil1').Range(Cells(1), Cells(1)).Value

End Sub

Je ne comprends pas: si je ne mets pas la ligne
Workbooks('exclusion.xls').Activate au début,
alors cela ne fonctionne pas.
Y t'il une syntaxe me permettant de ne pas 'activer' le workbook ?
Et plus globalement dans quels cas, si l'on travaille entre plusieurs workbook, doit on activer les workbook ?

Merci à tous,
Cordialment,
Vincent

 

[Tenormadness]

salut

s'il sagit d'un autre classeur c est nécessaire mais s il sagit du classeur actif (ouvert, courant) il suffit de faire
Sheets('Feuil1').Cells(1,1).Value
et c'est tout...

 

[MichelXld]

bonjour Viniboy , bonjour Tenormadness


peux tu tester ces 2 exemples

Dim Ws As Worksheet
Set Ws = Workbooks('exclusion.xls').Sheets('Feuil1')
MsgBox Ws.Range(Ws.Cells(1), Ws.Cells(1)).Value


et


MsgBox Workbooks('exclusion.xls').Sheets('Feuil1').Range('A1').Value


bon apres midi
MichelXld

 

[viniboy]

bonjour MichelXld, bonjour Tenormadness


Tout d'abord merci à tous les 2 de vos réponses. Je n'ai pas pu acceder à un ordianateur avant.

Michel, tes 2 exemples fonctionne parfaitement.

MsgBox Workbooks('exclusion.xls').Sheets('Feuil1').Range('A1').Value

et Dim Ws As Worksheet
Set Ws = Workbooks('exclusion.xls').Sheets('Feuil1')
MsgBox Ws.Range(Ws.Cells(1), Ws.Cells(1)).Value

En revanche la syntaxe

Workbooks('exclusion.xls').Sheets('Feuil1').Range(Ws.Cells(1), Ws.Cells(1)).Value

ne fonctionne pas (erreur 1004).

Si quelqu'un connait la raison de cette incompatibilité, cela m'interesse, afin de progresser en vba.

Merci pour vos réponses,
Cordialement,
Vincent

 

[MichelXld]

rebonjour Viniboy

en fait tu dois aussi aussi préciser le nom du classeur et de la feuille avant la propriété Cells


MsgBox Workbooks('exclusion.xls').Sheets('Feuil1').Range(Workbooks('exclusion.xls'). _
Sheets('Feuil1').Cells(1), Workbooks('exclusion.xls').Sheets('Feuil1').Cells(1)).Value



bonne soiree
MichelXld

 

[viniboy]

Merci de ton éclairage MichelXld, maintenant je ne me ferais plus avoir.

Bonne soirée à tous,
Cordialement,

Vincent