Discussion :

[-Anthime-]

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,

[unparia]

Bonjour

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

[joe.levrai]

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

[-Anthime-]

Merci pour votre réactivité :

En essayant avec :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Même message d'erreur.

En essayant avec :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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" !

[joe.levrai]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[unparia]

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.

[-Anthime-]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?

[mjpmjp]

bonjour,
essais ce schéma :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Workbooks("....").Worksheets("....").Range("....").Copy 
Workbooks("....").Worksheets("....").Range("....").Select
ActiveSheet.Paste

@+JP