[VBA-Excel]Copier des cellules vers un autre classeur

Version imprimable

Bonjour,

Je souhaite copier le contenu d'une feuille dans une autre feuille qui se trouve dans un autre classeur. J'utilise le code suivant:
Code:

1 2 3 4 5 6 7 8 9 Windows("MonFichier.xls"). Activate Sheets("Sheet1").Select Cells.Select Application.CutCopyMode = False Selection.Copy Windows("MonAutreFichier.xls").Activate Sheets("Sheet1").Select Cells.Select ActiveSheet.Paste
Cela fonctionne correctement.

Maintenant je dois utiliser cette fonction plusieurs fois donc au lien d'utiliser des noms de fichiers/feuilles en dur j'utilise des variables que je passe a la fonction:

les variables:
Code:

1 2 3 4 5 ShtToCopy = "Sheet1" SourceFile = "c:\files\source.xls" ThisFile= "c:\other files\dest.xls"
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Workbooks.Open SourceFile Windows(SourceFile).Activate Sheets(ShtToCopy).Select Cells.Select Application.CutCopyMode = False Sheets(ShtToCopy).Select Selection.Copy Windows(ThisFile).Activate Sheets(ShtToCopy).Select Cells.Select ActiveSheet.Paste
Mais ca ne fonctionne pas, il bloque sur l'instruction suivante:

Code:

Windows(SourceFile).Activate

avec

Code:

run-time error 9, subscript out of range

J'ai l'impression que l'objet "Windows" ne supporte pas le nom de variable en tant qu'argument...

Merci pour votre aide

8-) Bonjour

Voici un code que j'ai testé, et ça marche!

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Dim SourceFile As String, ThisFile As String, ShtToCopy As String
Dim Ws As Workbook, wf As Workbook
 
 
    SourceFile = Dir("H:\Excel\Essai004.xls")
    ThisFile = Dir("H:\Excel\Essai002.xls")
    ShtToCopy = "Feuil1"
 
    On Error Resume Next
    Set Ws = Workbooks(SourceFile)
    If Ws Is Nothing Then Workbooks.Open SourceFile
 
    Set wf = Workbooks(ThisFile)
    If wf Is Nothing Then Workbooks.Open ThisFile
    On Error GoTo 0
 
    Workbooks(SourceFile).Worksheets(ShtToCopy).Activate
    Cells.Copy
    Workbooks(ThisFile).Worksheets(ShtToCopy).Activate
    Range("A1").Select: ActiveSheet.Paste: Range("A1").Select
    Application.CutCopyMode = False
    Range("A1").Select

Un test est effectué afin de savoir si les 2 fichiers sont déjà ouverts, ainsi qu'une gestion d'erreur. J'ai utilisé mon dossier, ainsi que mes fichiers d'essai.

Cordialement

04/10/2006, 15h39
Tartenpion

Merci pour la reponse!
Malheureusement, j'ai la meme erreur sur la meme ligne:

Code:

Workbooks(SourceFile).Worksheets(ShtToCopy).Activate

J'ai l'impression qu'il n'aime pas le activate!?

Cela doit venir de mon environement...mais je ne vois pas quoi! Une idee?

ta essayer avec:

Code:

1
2
3
4
5
6
 
Windows("Essai004.xls").Activate
Sheets("sheet1").copy
Windows("Essai002.xls").Activate
Sheets("sheet1").select
activesheet.paste

04/10/2006, 17h50
sk8bcn

Citation:

Envoyé par Tartenpion

Merci pour la reponse!
Malheureusement, j'ai la meme erreur sur la meme ligne:

Code:

Workbooks(SourceFile).Worksheets(ShtToCopy).Activate

J'ai l'impression qu'il n'aime pas le activate!?

Cela doit venir de mon environement...mais je ne vois pas quoi! Une idee?

chez moi, il refuse tout workbooks("").worksheets("").activate

de meme un workbooks("").worksheets("").range(cells,cells).select ne lui convient pas.

Je dois tout séparer ligne par ligne
activer le workbook
activer le worksheet
etc..

Je modifie le code me mon poste précédent :
Code:

1 2 3 4 5 6 7 8 Private Sub CommandButton1_Click() Windows("Essai002.xls").Activate Sheets("sheet1").Range("A1:Z6666").Copy Windows("Essai004.xls").Activate Sheets("sheet1").Select ActiveSheet.Paste Range("A1") End Sub
Sa fonctionne j'ai testé mais bon la t'es obligé de stipuler une range donc a toi de voir après

PS: Ce code suppose que tes deux fichiers sont ouvert au préalable

04/10/2006, 18h05
Tartenpion
Citation:
Envoyé par Gerard6969

ta essayer avec:

Code:

1 2 3 4 5 6 Windows("Essai004.xls").Activate Sheets("sheet1").copy Windows("Essai002.xls").Activate Sheets("sheet1").select activesheet.paste
Meme chose, bloque sur le activate avec la meme erreur:(

nono n'utilise pas ce code la (il ne marche pas) prend le dernier que j ai posté je l ai testé et il fonctionne

utilise celui la :
PS: Ce code suppose que tes deux fichiers sont ouvert au préalable
Code:

1 2 3 4 5 6 7 8 Private Sub CommandButton1_Click() Windows("Essai002.xls").Activate Sheets("sheet1").Range("A1:Z6666").Copy Windows("Essai004.xls").Activate Sheets("sheet1").Select ActiveSheet.Paste Range("A1") End Sub

Merci beaucoup, en effet cela marche. Je l'ai legerement adapte et finalement il marche meme sans le range. Voici le code:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Sub test2() SourceFile = "MySourceFile.xls" ShtToCopy = "MySheet" ThisFile = "MyMacroFile.xls" Windows(SourceFile).Activate Sheets(ShtToCopy).Select Cells.Select Selection.Copy Windows(ThisFile).Activate Sheets(ShtToCopy).Select ActiveSheet.Paste Range("A1") End Sub
Merci encore ;)