créations feuilles

[max]

bonsoir à tous

Sub Bouton_QuandClic()
Dim feuille As Worksheet
Dim mois As Date

ActiveSheet.Copy after:=Sheets(Sheets.Count)
With ActiveSheet
Set feuille = Sheets(Sheets(.Index - 1).Name)
mois = DateAdd('m', 1, CDate(feuille.Name))
.Name = Format(mois, 'mmmm yy')

End With

End Sub
Cette macro trouvée sur le forum fonctionne avec le mois , j'aimerai faire la même chose mais avec la semaine , mais comment ?

merci du coup de main

 

[adebrux]

Salut max,

Dans le lien http://www.excel-downloads.com/telechargements/file/dates-et-heures/324.htm]suivant, tu trouvera un boite magique concoctée par monique, cathy et celeda sur tout ce qui touche aux dates !!! C génial, y a tout dedans. Tu trouveras surement ton bonheur !

A bientôt

Arnaud

 

[adebrux]

il faudra un jour que j'apprenne à me servir correctement des balises, pour ne pas avoir l'url qui s'affiche...

DSL 🙂