Bonjour,

Je suis en train de réaliser un outil, et je dois copier le contenu d'un onglet dans un nouvel onglet.
Je me suis donc renseigné sur la méthode "Copy", qui a l'air de fonctionner à la fois avec un Range ou bien avec Worksheets.

Je dois copier le contenu de l'onglet "Modèle processus", (qui se trouve dans mon classeur sur lequel je code) pour le coller dans un classeur que je viens de créer.

Voici mon code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
 
 
            Set xlApp = New Excel.Application
            Set WbServ = xlApp.Workbooks.Add
            WbServ.SaveAs ("mon_chemin\" & listeservice(i) & ".xls")
            Set WbServ = xlApp.Workbooks.Open("mon chemin\" & listeservice(i) & ".xls")
 
            ThisWorkbook.Worksheets("Modèle processus").Range("A1:AI31").Copy Destination:=WbServ.Worksheets("Feuil1")
 
            WbServ.Close SaveChanges:=True
            xlApp.Quit
            Set WbServ = Nothing
            Set xlApp = Nothing
En éxecutant ce code j'ai le droit à "La méthode "Copy" de la classe Range à échoué."
J'ai essayé un tas de choses :
-Modifier Worksheets par Sheets
-Ne pas passer par la méthode Range
-En faisant un ThisWorkbook.Name : je suis bien dans le bon classeur

Si quelqu'un pourrait m'aider à résoudre cela

En vous remerciant,