Inserer une date dans un onglet excel

[Mat1987]

Bonjour à tous

Voila j'ai un petit probléme J'essaye de programmer une Macro en VBA pour que la date du jour aparaise dans l'onglet a chaque fois ke je créer une nouvelle feuille.
Voila ma Macro en VBA

Sub page2()
'
' page2 Macro
'
' Touche de raccourci du clavier: Ctrl+g
'
If intMois = 13 Then
intMois = 1
intAnnee = intAnnee + 1
End If
ActiveSheet.Copy After:=Sheets(ActiveWorkbook.Sheets.Count)
ActiveSheet.Name = Format(Date, "dd-mm-yyyy")
ActiveSheet.Paste ' Collage de la feuille copiée précédemment
ActiveSheet.Select
ActiveSheet.Name = JourDate ' Attribution du nom de la nouvelle feuille
End Sub
Enfaite je voudrais que cette macro me permette a chaque fois que je créee une nouvelle feuille me permette d'afficher la date.

j'ai des probleme avec cette macro ne connaissant rien au VBA quelqu'un peut m'aider merci

ps quelqu'un peut m'aider a la programer je vous remercie

 

[skoobi]

Re : Inserer une date dans un onglet excel

Arf!!! tu dois avoir des problèmes de connection!!!

 

[deudecos]

Re : Inserer une date dans un onglet excel

Salut Mat1987, Skoobi,

Essaie ca, le seul truc c'est que ton onglet ne peut pas recevoir tous les caracteres speciaux, ce qui fait que j'ai remplace les / par des -

Sub NouvellePage()

ActiveSheet.Cells.Select
Selection.Copy
Sheets.Add
ActiveSheet.Name = Format(Date, "DD-MM-YYYY")

End Sub

Bonne journee

Olivier

Toutes mes excuses aux exceliennes et exceliens, mais j'avais pas verifier s'il n'avait pas poste d'autre post avec la meme question...

 

[Mat1987]

Re : Inserer une date dans un onglet excel

merci a tous vous ete sympas