Creation de feuille automatique

[alainca31]

Bonjour
J'ai créé un classeur ou quand on clique sur le bouton " Creation nouvelle feuille" on crée une feuille automatiquement en lui donnant comme nom la date "J+1" et en copiant le contenu de la feuille "J".
Tout fonctionne bien jusqu'au 10 du mois et après les feuilles s'incrémentent de 10 en 10.
Je vous joins le fichier merci d'avance pour votre aide
Cordialement

 

[Compte Supprimé 979]

Re : Creation de feuille automatique

Bonjour Alainca31,

Le problème vient de la récupération de ton chiffre pour le jour
Tu utilises :

NoFeuil = Val(Left(NomFeuilEnCour, 1)) + 1

Donc seul le premier caractère du nom de ta feuille est récupéré

Il faut donc que tu recherches l'espace qui se trouve dans ton nom,
pour déduire le nombre de caractères à récupérer

NoFeuil = Val(Left(nomfeuilencour, InStr(1, nomfeuilencour, " "))) + 1
NomNouvFeuil = NoFeuil & Mid(nomfeuilencour, InStr(1, nomfeuilencour, " "))
...
'remet nouvelle date
D = NoFeuil: DateFeuil = D & Mid(DateFeuil, InStr(1, nomfeuilencour, " "))

Ou alors mettre systématiquement 2 chiffres dans le jour et récupérer ces 2 chiffres

NoFeuil = Format(Val(Left(NomFeuilEnCour, 2)) + 1, "00")
NomNouvFeuil = NoFeuil & Mid(NomFeuilEnCour, 3)
...
' remet nouvelle date
D = NoFeuil: DateFeuil = D & Mid(DateFeuil, 3)

Voili, voilà

 

[alainca31]

Re : Creation de feuille automatique

Merci Bruno ça marche impec
Cordialement