Copier coller d'une feuille à une autre

Oui, mais il faut aussi changer le format de la cellule contenant la date à chaque fois ^^

edit: éssai avec la macro du fichier, j'ai nommé le tableau "Tableau70" au lieu de "Tableau69" , il n'y a qu'à changer le nom une seule fois dans le code il me semble.

Je viens de tester le code. et j'ai une erreur d'exécution '1004' La méthode Insert de la classe Range a échoué. Cette erreur est marquée sur la ligne "Sheets ("Feuil1").Rows(1).Insert dans la boucle Whle

sans le fichier ou votre macro, ça risque d'être compliqué de trouver la cause :s

Voici ma macro qui me permets de copier coller à partir de la ligne vide.

Sub Bouton19_Cliquer()
Application.ScreenUpdating = False

Dim nbcells As Integer
nbcells = Sheets("Feuil1").Range("a65536").End(xlUp).Row

If nbcells = 1 Then
colle_tableau (Sheets("Feuil1").Cells(2, 1))

Else
Sheets("Feuil1").Cells(nbcells, 1).Value = Sheets("M").Cells(1, 1).Value
colle_tableau (Sheets("Feuil1").Cells(nbcells, 1))
End If

Cells(1, 1).Select
Sheets("M").Activate
Cells(1, 1).Select
Application.ScreenUpdating = True

End Sub

Sub colle_tableau(ByVal Cellule As Range)

Sheets("M").Range("tableau69").Copy
Sheets("Feuil1").Activate
Cellule.Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False

End Sub

Voici ma macro qui me permets de copier coller à partir de la ligne vide.

Sub Bouton19_Cliquer()
Application.ScreenUpdating = False

Dim nbcells As Integer
nbcells = Sheets("Feuil1").Range("a65536").End(xlUp).Row

If nbcells = 1 Then
colle_tableau (Sheets("Feuil1").Cells(2, 1))

Else
Sheets("Feuil1").Cells(nbcells, 1).Value = Sheets("M").Cells(1, 1).Value
colle_tableau (Sheets("Feuil1").Cells(nbcells, 1))
End If

Cells(1, 1).Select
Sheets("M").Activate
Cells(1, 1).Select
Application.ScreenUpdating = True

End Sub

Sub colle_tableau(ByVal Cellule As Range)

Sheets("M").Range("tableau69").Copy
Sheets("Feuil1").Activate
Cellule.Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False

End Sub

hum,

j'ai du mal comprendre, l’erreur venait de mon fichier ? ou du code mis dans le tient ?

l'erreur vient de ton code (ton fichier) que j'ai copié dans mon code(mon fichier)

Bonjour,

je reviens sur ce sujet pour avoir une correction sur ce code.En gros, je voudrais copier le tableau69 de la feuille "M" vers une autre feuille "P" d'un autre classeur appelé "Delta.xlsm". la copie se fait chaque semaine vers la feuille "P" en gardant le plus récent dans les 1ère lignes

Voici le code:

Sub Bouton18_Cliquer()
    Dim shtExport As Worksheet
    Dim wkDestination as workbook ' Classeur destinataire

    set wkDestination = Application.Workbooks.Open ("C:\Documents\Important\Delta.xlsm") 
    Set shtExport=wkDestination.worksheet("P")

     With ThisWorkbook.Worksheets("M").Range("Tableau69")
        shtExport.Rows(2).Resize(.Rows.Count).Insert
        .Copy shtExport.Range("A2")
    End With

     Set shtExport = Nothing 
    wkDest.Close true 'Ferme en sauvant. 

End Sub