Macro pour verrouillage
E
Bonjour à tous,
Dans le cadre d'un suivi quotidien, j'ai besoin de dupliquer une feuille d'un classeur dont certaines cellules, que les personnes en charge du suivi, ne peuvent pas modifier.
Idéalement, ce qui serait souhaitable, c'est qu'à chaque fois que l'on ouvre ce fichier, une nouvelle feuille à la date du jour soit créée dans ce classeur.
Pouvez-vous m'aider dans la rédaction de la macro qui va bien.
Par avance, je vous remercie.
3
Bonjour,
Voici un essai si j'ai bien compris :
'CODE A PLACER DANS LE MODULE THISWORKBOOK
private sub workbook_open()
nomws$ = Format(Date, "YYMMDD")
If feuilleexiste(nomws) Then Exit Sub
Sheets(1).Copy after:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = nomws
End Sub
'CODE A PLACER DANS UN MODULE NORMAL
Function feuilleexiste(nomfeuille$) As Boolean
On Error Resume Next
feuilleexiste = Sheets(nomfeuille).Index
End FunctionCdlt,