Re Michelle et bonjour Riddick,
Effectivement, on peut penser qu'une fois créée, la feuille du jour peut être changée de place, ainsi d'ailleurs que la feuille 'modèle'.
J'ai modifié la macro en y incorporant la boucle For each :
Sub NouvelleFeuilles()
Dim j As String, M As String, Y As String
Dim Ws As Worksheet
j = Day(Date): M = Month(Date): Y = Year(Date)
'Boucle qui parcourt tous les onglets
For Each Ws In Worksheets
If Ws.Name = 'Relevé du ' & j & '-' & M & '-' & Y Then Exit Sub
Next Ws
Worksheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Name = 'Relevé du ' & j & '-' & M & '-' & Y
Sheets('Modèle').Cells.Copy ActiveSheet.Cells
End Sub
Pour la protection de la feuille, utiliser xlNoSelection + un mot de passe. Ici, trois étoiles :
Sub MacroProtection()
With ActiveSheet
.EnableSelection = xlNoSelection
.Protect Password:='***'
End With
End Sub
Pour déprotéger :
Sub MacroDeProtection()
With ActiveSheet
.EnableSelection = xlNoRestrictions
.Unprotect Password:='***'
End With
End Sub
Cordialement
Bernard
Message édité par: CBernardT, à: 24/06/2005 15:14