Bonjour,

J'ai un probleme pour copier un range d'un classeur A vers un classeur B.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
 
ActiveWorkbook.Sheets("resultat").Range("A2:A10").Copy Destination:=xlBook.Sheets(1).Range("A5")
Le message d'erreur est le suivant : la methode copie de l'objet range a echoué.

De toute évidence le morceau code qui ne fonctionne pas est celui-ci :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
xlBook.Sheets(1).Range("A5")
puisque si je le change par :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
ActiveWorkbook.Sheets("resultat").Range("A2000")
Alors cela fonctionne.

xlBook est créé comme suit :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
'crée l'objet Excel
Set xlApp = CreateObject("Excel.Application")
'ajoute un classeur
Set xlBook = xlApp.Workbooks.Add
Je ne vois pas ce qui cloche ... mais il doit bien y avoir un truc ...

Merci d'avance à ceux qui prendront le temps de me lire.