Discussion :

[bert35]

Bonjour,

Alors tout d'abord, sachez que mon code est détaillé ici:
https://www.developpez.net/forums/d1...tres-feuilles/

Dans ce code, à un moment je rajoute des feuilles. ce nombre de feuilles dépend de la durée d'acquisition de mon fichier. Dans mon exemple, la durée fait 5 mois, donc 5 feuilles mensuelles ajoutées.

Ensuite je veux nommer ces feuilles. Le nommage que je souhaite sera par exemple mois 05, mois 06...
Voici comment j'ai procédé...mais cela marche sur la première feuille mensuelle mais pas les autres...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
nummoisdeb = Month(Range("A2"))
nummoisdeb = Format(nummoisdeb, "00")
 
Sheets.Add(after:=Worksheets(Worksheets.Count)).Name = "mois" & " " & nummoisdeb
     For i = 1 To feuillesmensuelles - 1
Sheets.Add(after:=Worksheets(Worksheets.Count)).Name = "mois" & " " & nummoisdeb + i.Format("00")
     Next

[lucasgaetan]

Bonjour Bert35,

je pense que ton problème viens de l’addition de choux et de carottes (comme disait ma prof de math)

Essais un truc du genre:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
nummoisdeb = Month(Range("A2"))
For i = 0 To feuillesmensuelles -1
    Sheets.Add(after:=Worksheets(Worksheets.Count)).Name = "mois" & " " & Format(nummoisdeb + i, "00")
Next

Ici je converti le format au dernier moment pour avoir moins de conflits.

[bert35]

Impeccable ca marche.
C'est un sac de nœud dans ma tête, il va falloir que je progresse là dessus aussi.

[bert35]

En fait, j'ai fait de nouveaux test et j'ai aperçu une "erreur" dans mon affichage des numéros de mois dans le noms des feuilles.

Admettons que mon acquisition démarre en mai et se termine en janvier de l'année suivante. Cela fait une acquisition qui s'est étendue sur 9 mois.
Donc mes numéros de feuilles vont afficher 05 pour le mois de mai, 06 pour juin....jusqu'à..13 pour janvier.
Je veux donc que mon comteur reparte à 01 une fois que l'acqusition se déroule sur 2 années.
Mais je ne sais pas comment lui dire cette condiion.
En faisant cela, j'ai fait apparaitre un autre "détail". Si mon acquisition dure 14 mois au départ de mai, il faut que je précise également l'année, pour ne pas avoir des noms de feuilles identitiques.
J'ai modifié mon code pour faire apparaitre le numéro de l'année, ca ca marche. Mais là aussi le numéro de l'année ne s'incrémente pas de 1 quand on change d'année.
je me retrouve donc avec des feuilles nommées 13_2017, 14_2017 au lieu de 01_2018, 02_2018...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets.Add(after:=Worksheets(Worksheets.Count)).Name = Format(nummoisdeb + i, "00") & "_" & Format(annee, "00")

[halaster08]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets.Add(after:=Worksheets(Worksheets.Count)).Name = Format(nummoisdeb + i, "00") & "_" & Format(annee, "00")

A tester:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets.Add(after:=Worksheets(Worksheets.Count)).Name = Format(nummoisdeb + i mod 12, "00") & "_" & Format(annee +worksheetfunction.quotient(nummoisdeb + i,12), "00")

[bert35]

Merc pour ton aide rapide.
Alors il y a du mieux, mais pas tout à fait ça...
Avec ton code, mes mois sont 05_2017, 06_2017....11_2017, 12_2018, 13_2018....
Il a incrémenté l'année un mois trop tôt (ca passe vite une année mais quand même !! ), et ne s'est pas remis à 01 en janvier 2018