Twitter iPhone pliant OnePlus 12 PS5 Disney+ Orange Livebox Windows 11 ChatGPT

en tete page vba

3 réponses
Avatar
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é

3 réponses

Avatar
Jacky
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" a écrit dans le message de news: 5513ce5c$0$3333$
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é
Avatar
Jacky
Re..

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

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



merci Jacky

--
André