XL 2016 Modifier le nom de l'onglet dans la macro

Fred59240

XLDnaute Nouveau
Bonjour le Forum,



Vous trouverez ci-joint, mon fichier avec les macros que j’ai faite.

Dans ce fichier, je rajoute un onglet chaque jour, avec le CA journalier.

Mon but est qu’à chaque rajout d’onglet, donc de jour, la macro soit automatique.

Je bloque car je dois changer le nom de l’onglet dans la macro ( 160321 par 170321) à chaque fois que je rajoute le jour suivant.

Le but étant d’alimenter l’onglet récap.

Dans cet onglet, pareil, je copie actuellement les cellules de B17 à B17 dans les cellules B18 à V18 et je change le nom de l’onglet dans la formule de l’index qui est présent de B à V.

J’ai fait aussi une macro mais je coince sérieux car je dois changer les numéros de ligne et le nom de l’onglet à chaque rajout.

Donc si quelqu’un peut m’aider …

Merci d’avance,

Fred
 

Pièces jointes

  • Ventil rayon mars.xlsm
    88.1 KB · Affichages: 13

Lolote83

XLDnaute Barbatruc
Salut,
Peut être comme ceci
VB:
Sub AjoutOngletEtRenomme()
    Sheets.Add After:=ActiveSheet
    With ActiveSheet
        .Name = Format(Date, "ddmmyy")
        '.Name = Format(Date, "jjmmaa")
    End With
End Sub
J'ai mis les deux formats possibles car parfois XL n'accepte pas l'un ou l'autre
@+ Lolote83
 

Lolote83

XLDnaute Barbatruc
Re bonjour,
En faisant suite à mon message précédent, voici le complément.
Je précise que le code donné au post#2 n'a pas été intégré dans le fichier joint ici.
Voici donc ton fichier en retour concernant l'onglet Récap avec les formules INDIRECT + 1 colonne B rajoutée
@+ Lolote83
 

Pièces jointes

  • Copie de FRED59240 - Ventil rayon mars.xlsm
    90.3 KB · Affichages: 6

Fred59240

XLDnaute Nouveau
Bonjour Lolote83,

Je dirais simplement une chose : BRAVO.
Franchement, je vais gagner un temps fou.

Je finalise mes fichiers.
Je me permettrai de revenir vers toi su j'ai un souci, mais normalement, ça doit aller.

Encore merci à toi,

Fred
 

Discussions similaires

Réponses
46
Affichages
801

Statistiques des forums

Discussions
312 104
Messages
2 085 344
Membres
102 865
dernier inscrit
FreyaSalander