Format année pour fichier généré en pdf

Bonjour le forum,

Après recherches je n'ai pas trouvé comment changer le format de l'année dans le code ci-dessous :

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\Documents and Settings\Moi\Bureau\Impression FL\" & Sheets(i).Name & " " & mois & " " & année & ".pdf"

Actuellement l'impression en pdf génère le nom suivant, par exemple Machin Juillet 2011.pdf et moi je voudrais (si c'est possible) Machin Juillet 11.pdf

D'avance merci pour vos réponses

Bonjour

Il faudrait savoir comment tu récupères tes variables mois et année

Si c'est à partir d'une date (ce que je soupçonne)

tu peux essayer

Ladate contient justement la date

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\Documents and Settings\Moi\Bureau\Impression FL\" & Sheets(i).Name & " " & Format(LaDate , "mmmm yy") & ".pdf"

je l'ai fait de tête alors désolé si des erreurs

Bonjour Banzai64,

merci beaucoup pour ta réponse.

Trouves ci-dessous le début du code faisant référence à l'année :

Sub Macro1()
annee = Year(Now)
Select Case Month(Now)
Case 1
mois = "décembre"
annee = annee - 1
Case 2
mois = "janvier"
Case 3
mois = "février"
Case 4
mois = "mars"
Case 5
mois = "avril"
Case 6
mois = "mai"
Case 7
mois = "juin"
Case 8
mois = "juillet"
Case 9
mois = "août"
Case 10
mois = "septembre"
Case 11
mois = "octobre"
Case 12
mois = "novembre"
End Select

Encore merci pour ta réponse c'est sympa

Bonjour

D'après ce que je comprends tu enregistres en fonction de la date du jour - 1 mois

Essayes (sans garantie)

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\Documents and Settings\Moi\Bureau\Impression FL\" & Sheets(i).Name & " " & Format(DateAdd("m",-1,Date) , "mmmm yy") & ".pdf"

A tester

J'ai vérifié cela me retourne le mois précédent en cours

C:\Documents and Settings\Moi\Bureau\Impression FL\Feuil1 juin 11.pdf

Re Banzai64,

C'est exactement ce que je voulais : Feuil1 juin 11.pdf

Je m'excuse de t'embêter une nouvelle fois mais comment faire pour avoir la première lettre du mois en majuscule ?

Je te remercie infiniment pour ton aide

Bonjour

A voir

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\Documents and Settings\Moi\Bureau\Impression FL\" & Sheets(i).Name & " " & Application.Proper(Format(DateAdd("m",-1,Date) , "mmmm yy")) & ".pdf"

Re Banzai64,

Super génial, cela fonctionne à merveille

Je te remercie beaucoup pour ton aide tu es vraiment sympa

A bientôt