Sub Copie()
With Sheets("Feuil1")
.Range("A1:L" & .Range("A65536").End(xlUp).Row).Copy Sheets("Feuil2").Range("A65536").End(xlUp).Offset(1, 0)
End With
End Sub
Sheets("Feuil2").Range("A65536").End(xlUp).Offset(1, 0)
Sub Copie()
Application.ScreenUpdating = False
With Sheets("Feuil1")
.Range("A1:L" & .Range("A65536").End(xlUp).Row).Copy
With Sheets("Feuil2")
.Range("A65536").End(xlUp).Offset(1, 12) = Format(Date, "dd-mmm-yyyy") & " à " & Time
.Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial xlValues
End With
Application.CutCopyMode = False
End With
Application.ScreenUpdating = True
End Sub
Sub Transfert()
Dim Tablo(3), Derlign As Long
Tablo(0) = Sheets("synthese").Range("B5").Value
Tablo(1) = Sheets("synthese").Range("H5").Value
Tablo(2) = Sheets("synthese").Range("G17").Value
Tablo(3) = Sheets("synthese").Range("F19").Value
Derlign = Sheets("Récap").Range("A65536").End(xlUp).Row
Sheets("Récap").Range("A" & Derlign + 1 & ":D" & Derlign + 1) = Tablo
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Transfert
ThisWorkbook.Save
End Sub
Sub xXx()
Selection.Copy
Sheets("Goods out").Select
Sheets("Goods out").Range("D65536").End(xlUp).Offset(1, 0).Select 'Selectionne la ligne vide dans la colonne D
ActiveSheet.Rows(ActiveCell.Row).EntireRow.Select 'Selectionne la ligne dont la derniere cellule est vide en partant du bas
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False 'Permet d'arreter la fonction copy
End Sub