Utilisation de la méthode Copy

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:

---

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,

Bonjour

Code:

---

....... Destination:=WbServ.Worksheets("Feuil1")

---

où (quelle cellule) dans la feuille de destination ? VBA doit deviner ?

Bonjour,

pourquoi créer une nouvelle instance Excel pour générer ton classeur ? Reste dans l'instance où est située Thisworkbook !

la méthode copie de Range impose que le paramètre destination soit également un Range (ici tu t'es arrêté à la feuille), donc il faut ajouter la référence de la première cellule où copier les éléments

Merci pour votre réactivité :

En essayant avec :

Code:

---

ThisWorkbook.Worksheets("Modèle processus").Range("A1:AI31").Copy Destination:=WbServ.Worksheets("Feuil1").Range("A1")

---

Même message d'erreur.

En essayant avec :

Code:

---

ThisWorkbook.Worksheets("Modèle processus").Range("A1:AI31").Copy Destination:=WbServ.Worksheets("Feuil1").Range("A1:AI31")

---

Même message d'erreur.

J'ai crée une nouvelle instance d'Excel parce que je dois créer un nouveau document portant le nom de mon listeservice(i) (que je ne vous ai pas détaillé), dans lequel j'aimerais copier le contenu de "Modèle processus" !

Mon petit doigt pense qu'en travaillant dans la même instance, tu n'auras plus ce problème

Il n'y a pas d'obligation à passer par une nouvelle instance pour créer un nouveau classeur et l'enregistrer via des variables contenant les portions du nom souhaité

A la volée, et non exempt d'erreur

Code:

---

1 2 3 4 5

With Workbooks.Add .Save ' blablabla je te laisse compléter ThisWorkbook.Worksheets("Modèle processus").Range("A1:AI31").Copy .Worksheets("Feuil1").Range("A1") .Close True End With

---

As-tu le même message d'erreur en remplaçant ThisWorkBook par Worbooks("..(nom_du_classeur...") ?
Je ne suis par ailleurs pas certain (je n'ai pas vérifié) que la méthode Range.copy puisse s'appliquer entre deux classeurs.

En remplaçant ThisWorkbook par Workbooks("Outil processus.xlsm")
J'ai le droit au même message d'erreur oui

Je test ce que joe_levrai propose et j'éditerais mon message.

EDIT :

Code:

---

1 2 3 4 5 6 7 8 9

With Workbooks.Add For i = 1 To listeservice.Count .SaveAs ("monchemin\" & listeservice(i) & ".xls") Workbooks("Outil processus.xlsm").Worksheets("Modèle processus").Range("A2:AI31").Copy Destination:=.Worksheets("Feuil1").Range("A1") .Close True Next End With

---

Voilà ce dont par quoi j'ai remplacé le code : donc joe_levrai tu avais raison : la méthode Copy ne fonctionne pas dans deux instances d'Excel différentes !
En revanche maintenant, j'aimerais bien bouclé le tout, c'est à dire faire des copiers collers pour des fichiers successifs. Mais lorsque que je run cela j'ai une "Erreur Automation".
Comment est-ce que je pourrais éviter cela ?

bonjour,
essais ce schéma :

Code:

---

1 2 3

Workbooks("....").Worksheets("....").Range("....").Copy Workbooks("....").Worksheets("....").Range("....").Select ActiveSheet.Paste

---

@+JP

C'est bon j'ai résolu le soucis :

Voici le code finale :

Code:

---

1 2 3 4 5 6 7 8 9

For i = 1 To 3 With Workbooks.Add .SaveAs ("mon_chemin\" & listeservice(i) & ".xls") Workbooks("Outil processus.xlsm").Worksheets("Modèle processus").Range("A2:AI31").Copy Destination:=.Worksheets("Feuil1").Range("A1") .Close True End With Next

---

Merci à tous !