Discussion :

[lainie44]

Bonjour,
j'aimerais copier les données d'un classeur A vers un classeur B sachant que ces deux classeurs sont fermés (c'est à dire que ma macro vba est enregistré sur un autre classeur C qui est ouvert quant à lui).
J'écrit le code suivant:

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
23
Sub copier3classeur()
 
Dim dossier As Object, Fichier As Object, Chemin As String, Lg As Integer
Application.ScreenUpdating = False
Application.DisplayAlerts = False
 
Chemin = ThisWorkbook.Path
 
Workbooks.Open Filename:=Chemin & "/" & "classeurA.xls"
Workbooks.Open Filename:=Chemin & "/" & "classeurB.xls"
Lg = Range("A65536").End(xlUp).Row + 1
 
 
With Workbooks("classeurB.xls")
    .Sheets("Feuil1").Range("A3:O" & Range("A65536").End(xlUp).Row + 1).Copy
    Workbooks("classeurA.xls").Worksheets("Feuil1").Range("A" & Lg).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
.Close
End With
 
 
Application.DisplayAlerts = True
End Sub

Mais ça ne fonctionne pas
Quelqu'un peut m'aider???

[JOHN14]

Bonjour et bonnes fêtes.

je pense que si au préalable tu activait tes différents documents, ta macro fonctionnerait mieux.
Il faut faire quelque chose comme :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Workbooks("classeurB.xls").activate
With Workbooks("classeurB.xls").Sheets("Feuil1")
     .activate
     [...].copy
End With    
 
Workbooks("classeurA.xls").activate
With Workbooks("classeurA.xls").Sheets("Feuil1")
     .activate
     [...].PasteSpecial [...]
End With

Cordialement.

[AlainTech]

Bonjour,

Je doute que tu puisses ouvrir un classeur avec cette commande:

Code :

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

Workbooks.Open Filename:=Chemin & "/" & "classeurA.xls"

Le PathSeparator sous Windows est le "\".

[lainie44]

Bonjour,
la commande que j'utilise pour ouvrir mes fichiers marche à merveille.
Cependant Malgré les activations, rien n'est copié dans le classeur prévu. les fichiers s'ouvrent mais ne sont pas copiés. j'en suis toujurs au même point.

[SfJ5Rpw8]

Bonjour,

tiens c'est noël ...

Il faut éviter les "Activate" , "Select" ... , toujours préciser devant les objets Range, Cells, Sheets de quel classeur ou qu'elle feuille il s'agit...

pour cela tu peu utiliser une variable de type Workbook pour chacun de tes deux classeurs...

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
23
24
25
26
27
28
29
30
31
32
33
34
Option Explicit
 
Sub copier3classeur()
 
Dim dossier As Object, Fichier As Object, Chemin As String, Lg As Integer
Application.ScreenUpdating = False
Application.DisplayAlerts = False
 
Dim wkA As Workbook
Dim wkB As Workbook
 
Chemin = ThisWorkbook.Path
 
Set wkA = Workbooks.Open(Filename:=Chemin & "/" & "classeurA.xls")
Set wkB = Workbooks.Open(Filename:=Chemin & "/" & "classeurB.xls")
 
Lg = wkA.Sheets("Feuil1").Range("A65536").End(xlUp).Row + 1 'Derniére ligne feuille 1 fichier A
 
 
 
With wkB.Sheets("Feuil1")
    .Range("A3:O" & .Range("A65536").End(xlUp).Row + 1).Copy
    wkA.Worksheets("Feuil1").Range("A" & Lg).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
'.Close
End With
 
 'Ferme les 2 classeurs en sauvant
 wkA.Close True
 wkB.Close True
 
 
Application.DisplayAlerts = True
End Sub

[lainie44]

j'ai fini par trouver une solution.

je copie le classeur A dans Thisworkbook et ensuite je copie Thisworkbook dans le classeur B.

Ca donne ca:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Workbooks.Open Filename:=Chemin & "/" & "classuerB.xls"
 
 Workbooks("classuerB.xls").Sheets("Feuil1").Range("A3:O" & Range("A65536").End(xlUp).Row + 1).Copy
 ThisWorkbook.Sheets("Feuil1").Range("A" & Range("A65536").End(xlUp).Row + 1).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
 
 
ThisWorkbook.Sheets("Feuil1").Range("A1:O" & Range("A65536").End(xlUp).Row + 1).Copy
 
Workbooks.Open Filename:=Chemin & "/" & "ClasseurA.xls"
 
Workbooks("ClasseurA.xls").Sheets("Feuil1").Range("A" & Range("A65536").End(xlUp).Row + 1).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False