Re M12,
Je voulais savoir si la macro (effacer, générer) du classeur "planning du 02 au 08 oct" était compatible avec un fichier ".ods" Open Offce
mais a priori elle ne l'est pas ?
par contre quand je copie ou déplace le fichier "Synthèse" généré, dans un nouveau classeur, il y a un beug au niveau de la colonne date elle affiche 01/10 au lieu de 02/10 ?
Cordialement
Option Explicit
Dim j%, Lr%, Dl%
Sub Effacer()
Sheets("Synthèse").Activate
Rows("8:10000").Delete shift:=xlUp
Range("A8").Select
End Sub
Sub Generer()
Application.ScreenUpdating = False
Effacer
For j = 1 To 7
Sheets(j).Select
Dl = Range("D" & Rows.Count).End(xlUp).Row
Range("A8:V" & Dl).Copy
Sheets("Synthèse").Activate
Lr = Range("D" & Rows.Count).End(xlUp).Row + 1
Cells(Lr, 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Next j
Range("A7").Select
End Sub