Marie-Josée Dominique
XLDnaute Nouveau
Bonjour à tous et à toutes!
J'ai un fichier qui contient plusieurs onglets.
Le premier onglet s'appelle "Calendrier" et contient une liste de tous les mois et année de janvier 2022 à décembre 2026 (ex.: A1 = janvier '22, A2 = février '22, etc.).
Les autres onglets consistent une feuille mensuelle pour le kilométrage. La cellule E2 de chacune de ces feuilles contient le mois et l'année au long (ex.: janvier 2022).
Voici ce que je voudrais arriver à faire :
1- Lors de la création d'un nouvel onglet, j'aimerais que la date dans la cellule E2 s'inscrive automatiquement (soit à partir de l'onglet précédent, soit à partir de la liste de l'onglet "Calendrier")
2- Chaque onglet mensuel doit se renommer comme suit : yyyy-mm (ex.: 2022-01)
Je n'ai pas trouvé de macro pour le point #1.
Pour le point #2, voici ma macro (qui ne fonctionne pas) :
Sub RenommerOnglets()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Sheets
If ws.Name <> "Calendrier" Then ws.Name = Range("e2") = UCase(Format(date_test, "yyyy-mm"))
Next
End Sub
Je vous remercie d'avance pour votre aide !
J'ai un fichier qui contient plusieurs onglets.
Le premier onglet s'appelle "Calendrier" et contient une liste de tous les mois et année de janvier 2022 à décembre 2026 (ex.: A1 = janvier '22, A2 = février '22, etc.).
Les autres onglets consistent une feuille mensuelle pour le kilométrage. La cellule E2 de chacune de ces feuilles contient le mois et l'année au long (ex.: janvier 2022).
Voici ce que je voudrais arriver à faire :
1- Lors de la création d'un nouvel onglet, j'aimerais que la date dans la cellule E2 s'inscrive automatiquement (soit à partir de l'onglet précédent, soit à partir de la liste de l'onglet "Calendrier")
2- Chaque onglet mensuel doit se renommer comme suit : yyyy-mm (ex.: 2022-01)
Je n'ai pas trouvé de macro pour le point #1.
Pour le point #2, voici ma macro (qui ne fonctionne pas) :
Sub RenommerOnglets()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Sheets
If ws.Name <> "Calendrier" Then ws.Name = Range("e2") = UCase(Format(date_test, "yyyy-mm"))
Next
End Sub
Je vous remercie d'avance pour votre aide !