Insere 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

Ps aider moi a la concevoir je vvous remercie d'avance à tous

 

[fred65200]

Re : Insere une date dans un onglet

bonjour,
à mon avis tu as des lignes de code en trop, qui ne correspondent à rien pour ce que tu veux faire.

ActiveSheet.Copy After:=Sheets(ActiveWorkbook.Sheets.Count)
ActiveSheet.Name = Format(Date, "dd-mm-yyyy")
'à partir d'ici, ta dernière feuille est nommée avec la date du jour, le reste ne sert à rien
'ActiveSheet.Paste ' Collage de la feuille copiée précédemment
'ActiveSheet.Select
'ActiveSheet.Name = JourDate ' Attribution du nom de la nouvelle feuille

NB pense à utiliser les balises "code", lorsque tu insères du code, c'est plus lisible. Le bouton avec un dièse (#) en mode avancé.

Cordialement

 

[skoobi]

Re : Insere une date dans un onglet

Re,

bonjour fred65200,

jamais 2 sans 3 (multi-post).....

 

[fred65200]

Re : Insere une date dans un onglet

bonjour Skoobi,
C'est ce que je viens de remarquer.

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

@+