Macro enregistrement fichier excel en pdf avec nom variable

Bonjour,
Je voudrais pouvoir enregistré le pdf avec le nom du mois en cours...
Voici le code généré garce à l'enregistrement de la macro

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Sub Macroimpression() ' ' Macroimpression Macro ' filtre sur le mois en cours. Imprime le TCD Crée un pdf '   ' Range("A1").Select ActiveSheet.PivotTables("TCD Récap mensuel").PivotFields("Date"). _ ClearAllFilters ActiveSheet.PivotTables("TCD Récap mensuel").PivotFields("Date").PivotFilters. _ Add Type:=xlDateThisMonth ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "C:\Users\Desktop\Tournee.pdf", Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _ False ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _ IgnorePrintAreas:=False End Sub

---

Je voudrais pouvoir ajouter après tournee le mois en cours automatiquement...
J'ai regardé le code de catetesse mais je ne comprends comment elle a résolu son problème....
Merci d'avance

bonsoir,
essaye une concaténation avec Month(Date) comme ceci:

Code:

---

1 2 3

...ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _   "C:\Users\Desktop\Tournee" & Month(Date) & ".pdf", Quality:=xlQuality...

---

Cela fonctionne.. Mais il affiche 8 au lieu de Août... Il faudrait appliqué cette formule peut être?
TEXTE(month(date);"mmm") ou quelque chose dans le style...:?

et là:

Code:

---

Format(Now, "mmmm")

---

Merci mais je le met à quel niveau dans le Code le format?

bonjour,

Citation:

---

Envoyé par splog

Merci mais je le met à quel niveau dans le Code le format?

---

entre les 2 caractères de concaténation.

La fonction MonthName permet d'avoir le mois en lettre.

Code:

---

1 2 3

...ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _   "C:\Users\Desktop\Tournee" & MonthName(Month(Date), False) & ".pdf", Quality:=xlQuality...

---

Impec!
Merci :ccool:

et la aussi

Code:

---

"C:\Users\Desktop\Tournee" & Format(Now, "mmm") & ".pdf", Quality:=xlQuality...

---

toute les possibilités

Code:

---

1 2 3 4 5 6 7 8

sub test () msgbox Format(Now, "mmmm") 'en toutes lettres msgbox Format(Now, "mmm") 'en abrégé MsgBox Format("30/09/12", "mmm") 'en abrégé msgbox Format(Now, "mm") ' en chiffre à 2 chiffres msgbox Format(Now, "m") 'en chiffre simple end sub

---

mais les deux versions fonctionnent !