Code VBA : Présenter en toute lettre la date affichée dans le pied de page

[cibleo]

Bonsoir à tous,

Je continue à peaufiner mon projet et souhaiterais présenter en toute lettre la date affichée dans le pied de page.

ex : Edité le samedi 15 mars 2008 à 21 h 00

Je vous joins mon fichier.

Merci de votre aide.

Cibléo

 

[Cousinhub]

Re : Code VBA : Présenter en toute lettre la date affichée dans le pied de page

Bonsoir,
rajoute ceci en début de code :

madate = Format(Date, "dddd dd mmmm yyyy")

et ensuite, dans ton code, place-le ici :

        .CenterFooter = _
        "&""Verdana,Normal""Edité le & " & madate & "&"" à ,Normal""&  &""Verdana,Normal""à&"" à ,Normal""  &T"

 

[jeanpierre]

Re : Code VBA : Présenter en toute lettre la date affichée dans le pied de page

Bonsoir,

Le même qu'ici, Non ?

https://www.excel-downloads.com/thr...ensuels-et-les-afficher-successivement.92954/

On reste sur le même fil d'une part et on ne redépose pas à tout va d'autre part.

Merci de ton Attention

Si tu veux, tu peux faire le ménage sur l'autre fil en retirant ton fichier qui ne sert plus à rien

 

[cibleo]

Re : Code VBA : Présenter en toute lettre la date affichée dans le pied de page

Bonsoir bhbh, bonsoir Jeanpierre,

Merci pour la remarque JeanPierre,

Je ne savais pas qu'il fallait rester sur le même fil lorsque je devais aborder une autre question même s'il s'agit du même projet, j'y veillerai maintenant.

Pour bhbh,

Où dois-je placer ta première instruction, tu sais je débute en Vba, il faut vraiment me préciser les choses !!!

Cibléo

 

[Cousinhub]

Re : Code VBA : Présenter en toute lettre la date affichée dans le pied de page

Re-,
dans le code que tu as :

  ....
.....
Unload Me
  [COLOR="Red"]Dim madate As String
madate = Format(Date, "dddd dd mmmm yyyy")[/COLOR]
  With ActiveSheet.PageSetup
      .LeftHeader = ""
      .CenterHeader = "&""Verdana,Normal""&16Mot-clé : " & TextBox1
      .RightHeader = ""
      .LeftFooter = "&""Verdana,Normal""Encaissement 2008"
[COLOR="Red"]        .CenterFooter = _
        "&""Verdana,Normal""Edité le & " & madate & "&"" à ,Normal""&  &""Verdana,Normal""à&"" à ,Normal""  &T"[/COLOR]
      .RightFooter = "&""Verdana,Normal""Page &P"
  End With
.....
.....

 

[cibleo]

Re : Code VBA : Présenter en toute lettre la date affichée dans le pied de page

Re bonsoir bhbh,

Ça marche parfaitement, je te remercie.

Bonne soirée.

Cibléo

 

[jeanpierre]

Re : Code VBA : Présenter en toute lettre la date affichée dans le pied de page

Re, bonsoir bhbh,

Précision, si la question est totalement différente, nous sommes d'accord pour un nouveau fil, mais si le fichier de base est le même, il suffit de mettre le lien sur l'autre question, en indiquant, par exemple : le fichier est ici.... et le lien...

C'est ma façon de voir...

Bonne soirée tout de même.

Jean-Pierre