mettre une date dans un onglet

[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

 

[MJ13]

Re : mettre une date dans un onglet

Bonjour Mat et le forum

Essaies en supprimant ou place un quote (') avant.

ActiveSheet.Name = JourDate ' Attribution du nom de la nouvelle feuille

 

[jp14]

Re : mettre une date dans un onglet

Bonjour
La macro suivante devrait répondre au problème

Bonjour à tous


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")

End Sub

L'onglet de la feuille crée à pour nom la date "ActiveSheet.Name = Format(Date, "dd-mm-yyyy")"

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

 

[Mat1987]

Re : mettre une date dans un onglet

merci a vous mai j'ai essayé ce ke vous avez ecrit et sa me mai toujour un message d'erreur

 

[Mat1987]

Re : mettre une date dans un onglet

Ps aidez moi merci

 

[MJ13]

Re : mettre une date dans un onglet

Re Bonjour,

Le mieux serait de fournir un fichier sans données confidentielles car la on ne sait pas vraiment ce que tu veux obtenir.
Autrement met un quote avant
ActiveSheet.Paste

Je l'ai testé sur XL2003, cela à l'air de fonctionner.