en tete page vba

Le
andre
Bonjour,
Je voudrais savoir quel est le code vba pour définir l'année uniquement
au lieu de la date complete, dans ce module (dans thisworkbook) :

ApplicationScreenUpdating = False
For x = 1 To Sheets.Count
With Sheets(x).PageSetup
.LeftFooter = "&G&18xxxxx"
.RightHeader = "&G&18" & [A2] & "_" & "&D" (que mettre pour
année 2015)
.CenterFooter = "&G&16 renseignements engagements et
compétitions :
End With

merci

--
André
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Jacky
Le #26346113
Bonjour,
...quel est le code vba pour définir l'année uniquement



Remplace
.RightHeader = "&G&18" & [A2] & "_" & "&D"
par
.RightHeader = "&G&18" & [A2] & "_" & Format(Date, "yyyy")

--
Salutations
JJ


"andre"
Bonjour,
Je voudrais savoir quel est le code vba pour définir l'année uniquement au lieu de la date complete, dans ce
module (dans thisworkbook) :
........................
ApplicationScreenUpdating = False
For x = 1 To Sheets.Count
With Sheets(x).PageSetup
.LeftFooter = "&G&18xxxxx"
.RightHeader = "&G&18" & [A2] & "_" & "&D" (que mettre pour année 2015)
.CenterFooter = "&G&16 renseignements engagements et compétitions :
End With
...........................
merci

--
André
Jacky
Le #26346114
Re..

Ou plus court ;o)
'---------
.RightHeader = "&G&18" & [A2] & "_" & Year(Date)
'---------
--
Salutations
JJ
andre
Le #26346123
Jacky a exposé le 26/03/2015 :
Re..

Ou plus court ;o)
'---------
.RightHeader = "&G&18" & [A2] & "_" & Year(Date)
'---------



merci Jacky

--
André
Publicité
Poster une réponse
Anonyme