Range Cells et copy

[olivierj75]

Bonjour,

je suis bloqué pour un pb de débutant !!


Set oExcel = CreateObject("Excel.Application")
oExcel.Workbooks.Open(chemin_fichier & "\" & nom_fichier)

oExcel.Workbooks(mon_fichier).Worksheets(1).Range( "A1:B5").Copy

oExcel.Workbooks(mon_fichier).Worksheets(1).Range( Cells(1, 1), Cells(6, 2)).Copy

Pourquoi avec la ligne verte ca marche et si je remplace par la ligne rouge ca plante ?
(j'ai une erreur 1004 "Erreur définie par l'application ou par l'objet")
merci pour votre aide!!

[tototiti2008]

Bonjour olivierj75,

Cells se réfère par défaut à la feuille active

essaye avec :

With oExcel.Workbooks(mon_fichier).Worksheets(1)
.Range(.Cells(1, 1), .Cells(6, 2)).Copy
end With

[olivierj75]

OK ca marche, merci beaucoup pour ta réponse, rapide en plus !