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
"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é
Bonjour,
...quel est le code vba pour définir l'année uniquement
"andre" <andre260nrply@hotmail.fr> a écrit dans le message de news: 5513ce5c$0$3333$426a34cc@news.free.fr...
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
"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é
Jacky
Re..
Ou plus court ;o) '--------- .RightHeader = "&G&18" & [A2] & "_" & Year(Date) '--------- -- Salutations JJ
Re..
Ou plus court ;o)
'---------
.RightHeader = "&G&18" & [A2] & "_" & Year(Date)
'---------
--
Salutations
JJ