feuilles mensuelle

[FREESURF]

Bonjours à tous,

Ce problême à surement déjà été évoqué, mais impossible de mettre la main dessus.
Je souhaite ajouter et nomer dans l'onglet, une feuille par moi selon l'année en cours

Merci de votre aide et bonne journée à tous

 

[joss56]

Re : feuilles mensuelle

Bonjour,

pourrais-tu être un petit peu plus précis?

 

[FREESURF]

Re : feuilles mensuelle

Bomnjours

Voila, je souhaite ater une nouvelle feuille chaque mois à l'aide d 'un bouton de cmmande
L'onglet de ces feuilles devrait etre:
JANVIER
FEVRIER
MARS ETC... avec l' année 07, 08, 09 etc...

Merci de te donner la peine de m' aider

 

[FREESURF]

Re : feuilles mensuelle

J'ai bien trouvé cette macro,
mais je ne sais pas comment l'adapter pour le nom des feuilles janvier 07, fevrier 07 mars 07 etc...
puis identique pour les années suivantes janvier 08 fevrier 08 etc...

Je joint un fichier trouvé sur le net .
Les données de la feuille sont les miennes et je souhaite les transferer sur la nouvelle feuille.

 

[joss56]

Re : feuilles mensuelle

j'ai modifié la dernière ligne de la macro:
Sheets("temp").Name = Format(Month(Date), "mmm") & " " & Year(Date)
Cela te convient-il?

 

[Pierrot93]

Re : feuilles mensuelle

Bonjour Freesurf

regarde la macro ci dessous :

Sub test()
Dim annee As Integer, s As Worksheet
annee = Application.InputBox("Pour quelle année", , , , , , , 1)
If annee = 0 Then Exit Sub
For i = 1 To 12
    Set s = Sheets.Add(, Sheets(Sheets.Count))
    s.Name = MonthName(i) & " - " & annee
Next i
End Sub

bon après midi
@+

 

[FREESURF]

Re : feuilles mensuelle

C' est parfait. merci pour ton aide.
Pour le reste,je vais essayer de me debrouiller.

A bientot et merci encore