365 feuilles renommées automatiquement

[LiseB]

Bonjour,
Je tente par tous les moyens de trouver une solution pour renommer automatiquement 365 feuilles, soit les 365 dates de l'année en cours, dans un classeur. Présentement je le fais de façon manuelle mais il y a sûrement une façon de faire qui soit plus rapide et efficace d'effectuer cette opération.

merci de votre précieuse aide.
LiseB.

 

[Temjeh]

Re : 365 feuilles renommées automatiquement

Bonjour ...trouvé ici

Créateur de feuilles:

Application.ScreenUpdating = False
année = Val(InputBox("Quelle année ?"))

If année = 0 Then Exit Sub
x = DateSerial(année, 1, 1)
Y = DateValue("31 décembre " & année)

For I = 0 To Y - x
ActiveWorkbook.Sheets.Add after:=Worksheets(Worksheets.Count)
ActiveSheet.Name = Format(x + I, "dd-mmm-yyyy")
Next


A+

Temjeh

 

[LiseB]

Re : 365 feuilles renommées automatiquement

Bonjour ...trouvé ici

Créateur de feuilles:

Application.ScreenUpdating = False
année = Val(InputBox("Quelle année ?"))

If année = 0 Then Exit Sub
x = DateSerial(année, 1, 1)
Y = DateValue("31 décembre " & année)

For I = 0 To Y - x
ActiveWorkbook.Sheets.Add after:=Worksheets(Worksheets.Count)
ActiveSheet.Name = Format(x + I, "dd-mmm-yyyy")
Next


A+

Temjeh

Bonjour et surtout un grand merci de votre réponse aussi rapide et sans aucun doute très efficace.

Mon problème est que j'aimerais vraiment savoir où inscrire ce code. Je connais bien Excel et je sais comment faire des macros manuellement mais je ne sais pas comment et où ajouter ce code vb pour qu'il soit effectif. Serait-ce trop long de m'indiquer le cheminement (sans trop d'explication car je sais que je pourrai me débrouiller par la suite)

merci à l'avance de votre aide.
LiseB

 

[Foufoudora]

Re : 365 feuilles renommées automatiquement

salut LiseB, Temjeh, le Forum,

ce code tu dois l'inscrire dans un module. tu fais alt+F11 et tu fais insertion Module.
tu nommes ta macro par exemple :

Sub créefeuille ()

Dim x As Date
Dim y As Date
Dim année as long

Application.ScreenUpdating = False
année = Val(InputBox("Quelle année ?"))
If année = 0 Then Exit Sub
x = DateSerial(année, 1, 1)
y = DateValue("31 décembre " & année)
For I = 0 To y - x
ActiveWorkbook.Sheets.Add after:=Worksheets(Worksheets.Count)
ActiveSheet.Name = Format(x + I, "dd-mmm-yyyy")
Next

End Sub

pour exécuter la macro tu fais Alt+F8

Si un VBAiste passe par là et voir si la déclaration des variables est bonne.
je ne suis pas un Pro VBA mais ce code fonctionne très bien.

salutations

 

[Temjeh]

Re : 365 feuilles renommées automatiquement

Bonjour

Le voici en demo

Merci aussi Foufou pour la relève

Temjeh

 

[LiseB]

Re : 365 feuilles renommées automatiquement

Wowww super merci. Ça fontionne très bien.
Quel bonheur de vous avoir rencontré.
LiseB