Discussion :

[FrancisZheng]

Bonjour:

Voici mon code. Quelqu'un aurait une idée pourquoi cela ne marche pas?

Code :

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

1
2
    Workbooks("data.xlsm").Sheets("Données Sarbacane").Range("A2:J1000").Copy
    Workbooks("data.xlsm").Sheets("Sarbacane Lien").Range("B1").Paste

Merci d'avance.

[Stanler]

Bonjour,

Essaie ceci :

Code :

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

Workbooks("data.xlsm").Sheets("Données Sarbacane").Range("A2:J1000").Copy destination:=Sheets("Sarbacane Lien").Range("B1")

[FrancisZheng]

Merci de m'avoir répondu. Cela fonctionne bien. Mais si je veux coller dans un autre classeur(ouvert) ?

[Stanler]

Code :

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

1
2
3
 
Application.Workbooks.Open "C:\Tonchemin\tonclasseur.xls"
Workbooks("data.xlsm").Sheets("Données Sarbacane").Range("A2:J1000").Copy destination:=Workbooks("tonclasseur").Sheets("Sarbacane Lien").Range("B1")

[FrancisZheng]

Bonjour :

J'ai réussi à ouvrir le classeur fermé avec cette ligne :

Code :

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

Application.Workbooks.Open "C:\Tonchemin\tonclasseur.xls"

Mais après il renvoie "L'indice n'appartient pas à la sélection" à cette ligne :

Code :

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

Workbooks("data.xlsm").Sheets("Données Sarbacane").Range("A2:J1000").Copy destination:=Workbooks("tonclasseur").Sheets("Sarbacane Lien").Range("B1")

[Philippe Tulliez]

Bonjour,
Tu as oublié le suffixe du nom du classeur de destination ("tonclasseur").

[FrancisZheng]

D'accord. Entretemps j'ai trouvé une autre solution:

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
Sub foo2()
 
Dim y As Workbook
 
'## Open the workbooks first:
Set y = Workbooks.Open("C:\Users\stg_pao\Desktop\donnees-emailing-commerciaux.xlsx")
 
'Now, transfer values from x to y:
For i = 3 To 1003
 
    For j = 1 To 10
 
        y.Sheets("Données générales emailings").Cells(i, j).Value = Workbooks("data.xlsm").Sheets("Données Sarbacane").Cells(i - 1, j)
 
    Next
 
Next
 
'Close y:
y.Close
 
End Sub

Problème résolu.

[Stanler]

Code :

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

1
2
Application.Workbooks.Open "C:\Tonchemin\tonclasseur.xls"
Workbooks("data.xlsm").Sheets("Données Sarbacane").Range("A2:J1000").Copy destination:=Workbooks("tonclasseur").Sheets("Sarbacane Lien").Range("B1")

J'ai honte, j'ai moi aussi oublié le suffixe du classeur Mes excuses.

[FrancisZheng]

Il n'y a pas de soucis. Merci pour ton aide