Copier des plages d'un classeur a un autre

**comme de bien entendu** · 12/10/2006, 11h26

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 :

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

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

**Ania** · 12/10/2006, 13h47

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 :

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

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 :

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

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