Copier des plages d'un classeur a un autre

Bonjour,
Je souhaite copier des cellules d'un classeur à un autre par
plage en VBA
J'ouvre une liste de fichier, puis pour chaque fichier ouvert,
je prends la plage de cellule courante et je veux les copier
entierement. Mais le code que j'ai fait fait ne copie que
du texte : objWorkbookDepart.Activate et pas les plages de cellule.
D'avance merci de votre aide.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

For j = 1 To limiteFich Set objWorkbookDepart = Application.Workbooks.Open(TableauFich(j)) A = objWorkbookDepart.Name PosTiret = InStr(A, "-") DebutChaine = Mid(A, 1, PosTiret - 2) Onglet = DebutChaine & " " & MoisEnCours & AnneeEnCours ' nombre de ligne objWorkbookDepart.Activate i = 1 While Worksheets(Onglet).Range("A" & CStr(i)) <> "" i = i + 1 Wend objWorkbookDepart.Activate Worksheets(Onglet).Select Worksheets(Onglet).Copy MsgBox lefichierintermediaire.Name     lefichierintermediaire.Activate Worksheets("Sheet1").Range("A" & CStr(i+1)).Activate Worksheets("Sheet1").Paste Next j

---

D'apres ce que j'ai comprisde ton code tu souhaites copier un feuille entière.

Voici 2 bout de codes qui te permette de copier une feuille soit :
dans un nouveau classeur
soit dans un classeur déja defini.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub CopierUneFeuilleDansUnNouveauClasseur()   Sheets("Chantiers en cours").Select Sheets("Chantiers en cours").Copy   End Sub   Sub CopierUneFeuilleDansUnClasseurDetermine()   Sheets("Chantiers en cours").Select Sheets("Chantiers en cours").Copy After:=Workbooks("Classeur1").Sheets(1)   End Sub

---

Par contre si tu souhaites copier un ensemble de cellule, il te faut d'bord selectionné une plage de cellule

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

'Selection de la plage à copier   Workbooks("Classeur1").Worksheets(onglet).Range("A1:Q104").Copy   'Activation du classeur cible ClasseurCible.Worksheets("Données Pièces").Activate   'Sélection de la cellule de debut de copie [A1].Select   'Collage de la plage de cellule Selection.Paste

---

Merci, en gros ca a marché.
Mais j'ai du changé le Selection.Paste (qui plantait) en ActiveSheet.Paste

Bonjour,

Pour moi aussi Selection.Paste donne une erreur
Ok avec ActiveSheet.Paste