Discussion :

[Fackem]

Bonjour,
Je cherche à copier une plage d'un classeur à un autre :
Avec des variables, ca marcherait parfaitement, mais j'ai besoin du format des cellules donc je ne peux passer par cette méthode...
C'est la partie suivqnte pose pb

Code :

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

wbe.Sheets("Va_Machen").Range(Cells(j, 2), Cells(j, 7)).Copy Destination:=wbs.Sheets("Liste").Range(Cells(l, 2), Cells(l, 7))

Le code vient de :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Set wbe = ThisWorkbook              'Dossier entrée
Anzahl_VA = Range("D50").End(xlUp).Offset(1, 0).Row - 1 'Anzahl der neue VA
 
Set wbs = Workbooks.Open("Z:\1. Lipa\1.1. Veranstaltungen\1.1.5. VA_excel_software\Liste.xlsm")     'Dossier sortie
LetzteLinie = wbs.Sheets("Liste").Range("D1000").End(xlUp).Offset(1, 0).Row
l = LetzteLinie
    For j = 7 To Anzahl_VA
        wbe.Sheets("Va_Machen").Range(Cells(j, 2), Cells(j, 7)).Copy Destination:=wbs.Sheets("Liste").Range(Cells(l, 2), Cells(l, 7))
         l = l + 1
 
Next

[Daniel.C]

Bonjour,

Le problème vient du fait que tu ne qualifies pas les "Cells". Ils sont considérés comme appartenant à la feuille active. Mets :

Code :

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

1
2
3
4
5
Dim Sh As Worksheet
Set Sh = wbs.Sheets("Liste")
With wbe.Sheets("Va_Machen")
    .Range(.Cells(j, 2), .Cells(j, 7)).Copy Sh.Range(Sh.Cells(l, 2), Sh.Cells(l, 7))
End With

[Fackem]

Merci Beaucoup, ca marche !