Bonjour,
Il y a plusieurs choses qui ne peuvent plus fonctionner
1)- pour la date (si tu relis les anciens post, je précise bien qu'il faut se mettre en calendrier 1904 depuis les options d'Excel)
2)- les onglets doivent être numérotés en Feuil1 --> Lundi - Feuil2 --> Mardi etc (là encore le problème peut être réglé)
en remplaçant dans le module "GÉNÉRER" cette partie depuis le For j=1 to 7
For Each ws In Worksheets
If VBA.LCase(ws.Name) Like "*di*" Then
Sheets(ws.Name).Select
Dl = Range("D" & Rows.Count).End(xlUp).Row
Range("B8:N" & Dl).Copy
Sheets("Feuille1").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
End If
Next ws
Columns("B:B").Select
3)- Pour la ligne
If Cells(Dte, 2) <> "" Then
remplacer par
If Cells(Dte, 2) <> "" and If Cells(Dte, 2) <> "Date" ThenThen
ou
If IsDate(Cells(Dte, 2).value) Then
Sur les anciens classeurs ODS, il n'y avait pas de données autre que des Dates dans la colonne DATE, ce qui n'est plus le cas
4)- La consolidation ne peut fonctionner car sur le premier montage, c'étais 3 personnes différentes, là c'est toujours Cécile
D'où le fait au départ de donner de bonnes infos et d'avoir toujours des classeurs identiques, sinon