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]

Re : Range Cells et copy

Bonjour olivierj75,

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

essaye avec :

With [COLOR=#ff0000]oExcel.Workbooks(mon_fichier).Worksheets(1)[/COLOR]
[COLOR=#ff0000].Range(.Cells(1, 1), .Cells(6, 2)).Copy[/COLOR]
[COLOR=#ff0000]end With[/COLOR]

 

[olivierj75]

Re : Range Cells et copy

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