Bonjour le forum,
Bonjour Duch,
Je n'ai pas toute la réponse, mais ce code peut t'aider dans ta recherche.
Code à coller dans un module
'Copy la feuille d'intervention quotidienne le nom de la feuille est la date du jour
Sub test()
Dim k%, s$, z$
On Error Resume Next
' mettre ici l'adresse ou doit etre copier le model
Sheets("Feuille d'intervention quotidienne").Copy After:=Sheets(1)
z = Format(Date, " dd-mm-yy")
s = Sheets(3).Name
If Left(s, 8) = z Then
Select Case Len(s)
Case 8: k = 2
Case Else: k = CInt(Right(s, 1)) + 1
End Select
End If
z = IIf(k > 0, z & "." & k, z)
Sheets(2).Name = z
On Error GoTo 0
End Sub
amicalement