Faire un copier coller dans un nouveau classeur

Fermé
Geof-03 Messages postés 1 Date d'inscription mercredi 4 février 2015 Statut Membre Dernière intervention 9 mars 2015 - 9 mars 2015 à 11:04
Bonjour à tous,

Voila je suis à la recherche d'un code dans le but de copié coller et transposé un tableau, d'un classeur à un autre. Pour ce faire j'avais écrit un début de code qui me permettait de faire cette action d'une feuille à l'autre sur le même classuer. C'est pour changer de classeur que ca bloque je trouve pas le bon code.

Voila ce que j'ai codé si quelqu'un à une solution pour moi qu'il n'hésite pas :)


Sub Evolution()
Dim DL As Integer

Range("B10:F36").Copy
With Sheets("Evolution")
DL = .Cells(Application.Rows.Count, 1).End(xlUp).Offset(1, 0).Row
.Cells(DL, 1).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
.Columns("A:A").ColumnWidth = 36.14
.Columns("B:B").ColumnWidth = 47.43
.Columns("C:C").ColumnWidth = 45.57
.Columns("D:D").ColumnWidth = 45
.Columns("E:E").ColumnWidth = 44.86
.Columns("F:F").ColumnWidth = 44.71
.Columns("G:G").ColumnWidth = 47
.Columns("H:H").ColumnWidth = 45
.Columns("I:I").ColumnWidth = 45.29
.Columns("J:J").ColumnWidth = 48.14
.Columns("K:K").ColumnWidth = 47.71
.Columns("L:L").ColumnWidth = 45.86
.Columns("M:M").ColumnWidth = 50
.Columns("N:N").ColumnWidth = 46.43
.Columns("O:O").ColumnWidth = 42.71
.Columns("P:P").ColumnWidth = 45.57
.Columns("Q:Q").ColumnWidth = 45.43
.Columns("R:R").ColumnWidth = 46.14
.Columns("S:S").ColumnWidth = 44.86
.Columns("T:T").ColumnWidth = 44.57
.Columns("U:U").ColumnWidth = 44.86
.Columns("V:V").ColumnWidth = 45.86
.Columns("W:W").ColumnWidth = 49.71
.Columns("Y:Y").ColumnWidth = 43.71
.Columns("X:X").ColumnWidth = 44.14
.Columns("Z:Z").ColumnWidth = 43.86
.Columns("AA:AA").ColumnWidth = 46.43
.Rows("3:3").RowHeight = 138
.Rows("3:3").RowHeight = 105.75
.Rows("3:3").EntireRow.AutoFit
End With
End Sub