Code Date en pied de page

[noviceAG]

Bonjour,
J'utilise ce code dont je souhaite une modification (si possible)

Sub ImprimFiche()
'MsgBox "Voulez-vous imprimer une fiche vierge,vbYesNo"
reponse = MsgBox("Voulez-vous imprimer une fiche vierge ?", vbYesNo + vbCritical, "titre")
If reponse = vbYes Then
Sheets("Fiche").Range("D3:I3").ClearContents
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Else
ActiveSheet.PageSetup.LeftFooter = "Date de la dernière mise à jour le " & Range("C35").Value
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End If
End Sub

Je souhaiterai formater cette date Range("C35").Value (la cellule C35 contient la date au format 08/03/10) sous la forme : 8 Mars 2010
Je vous remercie par avance

 

[Pierrot93]

Re : Code Date en pied de page

bonjour,

essaye peut être ainsi :

ActiveSheet.PageSetup.LeftFooter = "Date de la dernière mise à jour le " & Format(Range("C35").Value, "d mmmm yyyy")

bon après midi
@+

 

[noviceAG]

Re : Code Date en pied de page

Bonjour Pierrot,
Il y a un prob dans le code à ce niveau :
Format(Range("C35").Value, "d mmmm yyyy")
lié je pense soit à la virgule après Value
soit à la parenthèse
en te remerciant

 

[Pierrot93]

Re : Code Date en pied de page

Re

A priori, le code donné fonctionne chez moi, si date valide en C35 sur la feuille active....

 

[noviceAG]

Re : Code Date en pied de page

Re,
Voici ce que j'ai

 

[Pierrot93]

Re : Code Date en pied de page

Re,

tu as oublié la fonction "format"....

ActiveSheet.PageSetup.LeftFooter = "Date de la dernière mise à jour le " & _
[B][COLOR="Red"]Format([/COLOR][/B]Range("C35").Value, "d mmmm yyyy")

 

[noviceAG]

Re : Code Date en pied de page

Merci Pierrot
Je ne comprends pas comment un copier a pu escamoter ce Format...
Le principal est que ce soit OK maintenant.
Bonne soirée et au plaisir