Discussion :

[Tartenpion]

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 :

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

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 :

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

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

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 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 :

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

Windows(SourceFile).Activate

avec

Code :

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

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

[Lexot2]

Bonjour

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

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

[Tartenpion]

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

Code :

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

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?

[Gerard6969]

ta essayer avec:

Code :

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

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

[sk8bcn]

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

Code :

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

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..

[Gerard6969]

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

Code :

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

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

[Tartenpion]

ta essayer avec:

Code :

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

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

[Gerard6969]

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 :

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

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

[Tartenpion]

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

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