Discussion :

[Kernoz]

Bonjour à tous !

J'ai besoin de réaliser une macro assez simple, mais malgré plusieurs recherches sur le web je n'arrive pas à faire ce que je veux :

Je veux enregistrer une macro qui selectionne un tableau de données sur un onglet "A" d'un classeur "1" et copier ces données à la suite d'autres données sur l'onglet "B" d'une classeur "2"

En somme, j'ai un tableau et je voudrais une macro qui puisse copier à la suite le même tableau, chaque semaines.

Tableau source : A8:T67

Merci d'avance !

[Gorfael]

Salut Kernoz et le forum

Je veux enregistrer une macro qui selectionne un tableau de données sur un onglet "A" d'un classeur "1" et copier ces données à la suite d'autres données sur l'onglet "B" d'une classeur "2"
Tableau source : A8:T67

Une proposition :

Code :

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

Workbooks("1").sheets("A").range("A8:T7").copy Workbooks("2").sheets("B").Cells(rows.count,"A").end(xlup)(2)

A+

[Kernoz]

Merci,

Je viens d'essayer ca :

Code :

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

1
2
3
Sub MAJ_TB()
Worksbooks("1.xlsm").Sheets("A").Range("A8:T7").Copy Worksbooks("2.xlsm").Sheets("B").Cells(Rows.Count, "A").End(xlUp)(2)
End Sub

Et il me dit ( en mettant le "Workbooks" après .copy en grisé : " Erreur de compilation : Sub ou Function non définie

[mercatog]

une question, les 2 classeurs sont ouverts?

Edit
et Une erreur de frappe
il fallait lire Workbooks("1") au lieu de Worksbooks("1")

[Kernoz]

Bonjour,

La formule a l'air de marcher

Petite complication, comment puis-je faire pour transformer ce code et faire en sorte que le collage sur le deuxieme onglet se transforme en " collage spécial valeur " ???

Merci d'avance.

Bon, je n'arrive pas à intégrer le collage spécial valeur à mon code


J'ai essayé de rajouter "PasteSpecial Paste:=xlPasteValues" avant, apres mais mes connaissances sont hélas trop limitées ...

Quelqun a une idée ?

Je me permet de "up" le topic

J'aimerais transformer le "coller" de ce code :

Code :

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

Workbooks("1.xlsm").Sheets("A").Range("A8:T7").Copy Workbooks("2.xlsm").Sheets("B").Cells(Rows.Count, "A").End(xlUp)(2)

en "collage spécial valeur" .

Merci d'avance.

[mercatog]

comme ceci

Code :

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

1
2
3
4
5
With Workbooks("2.xlsm").Sheets("B")
    Workbooks("1.xlsm").Sheets("A").Range("A8:T7").Copy
    .Range("A" & .Cells(Rows.Count, 1).End(xlUp).Row + 1).PasteSpecial xlPasteValues
End With
Application.CutCopyMode = False