XL 2010 Aide sur Macro pour Impression en PDF

[Mister Binaire]

Bonjour le Forum,

J'ai récupéré cette macro pour imprimer en PDF et elle me convient très bien. (Voir code ci-dessous)
Ce que je voudrais en plus c'est que le fichier soit localisé à cet endroit précis :

Z:\Portail Procédures\Metrologie\Archives Bilan Métrologie\2016

Et qu'il porte le nom suivant avec le radical "Bilan Métrologie" + le mois de l'année localisé en "B2" sur la feuille à imprimer + l'année en cours. Par exemple pour le mois de Novembre le fichier portera le nom de :
"Bilan Métrologie Novembre 2016.pdf"

Merci de votre aide..

Sub Imprime_Pdf()
Dim Fichier As String, Rep As String, Reponse

Fichier = ThisWorkbook.Path & "\Bilan Métrologie"
Reponse = MsgBox("Voulez-vous enregistrer la feuille en PDF ?", vbYesNo)
If Reponse = vbYes Then
Rep = Fichier & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Rep, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False 'n'affiche pas le fichier PDF
Else
Exit Sub
End If
End Sub

Amicalement,
Mister Binaire

 

[Lolote83]

Salut,
Peut être en modifiant la ligne suivante
Fichier = ThisWorkbook.Path & "\Bilan Métrologie"
par celle-ci
Fichier = ThisWorkbook.Path & "\Bilan Métrologie" & format(B2;"mmmm") & année(B2)

Non testé
@+ Lolote83

 

[Mister Binaire]

Merci de ta Réponse Lolote83 mais le code de fonctionne pas tout se met en erreur de plus je voudrais également que le fichier soit sauvegardé dans :
Z:\Portail Procédures\Metrologie\Archives Bilan Métrologie\2016 et je ne sais pas comment créer le chemin ??

Merci à toutes celles et tous ceux qui pourront m'aider !!

 

[Lolote83]

Re,
Effectivement, sans avoir testé on commet des erreurs.
Donc pour la première partie
Fichier = ThisWorkbook.Path & "\Bilan Métrologie " & Format(Range("B2"), "mmmm", vbMonday) & " " & Year(Range("B2"))
Par contre, pour la sauvegarde dans le répertoire cité Z:\Portail Procédures\Metrologie\Archives Bilan Métrologie\2016, soit tu le saisis en dur dans un coin d'une feuille XL et tu y fais appel, soit en dur dans la macro
@+ Lolote83

 

[Mister Binaire]

Merci de ton support Lolote83

Ta ligne de code fonctionne bien sauf que je me retrouve avec l'année 1905 au lieu de 2016 saisie en (A1) ? (B2) étant le mois

Merci de me dire également la ligne de code à écrire pour la sauvegarde dans le répertoire cité écrit en dur dans la macro ?

Te remerciant par avance une nouvelle fois

 

[Lolote83]

Re salut,
A priori et sans avoir de fichier comme support, je dirais

Sub Imprime_Pdf()
Dim Fichier As String, Rep As String, Reponse
Fichier = "Z:\Portail Procédures\Metrologie\Archives Bilan Métrologie\2016\Bilan Métrologie " & Format(Range("B2"), "mmmm", vbMonday) & " " & Year(Range("A1"))
Reponse = MsgBox("Voulez-vous enregistrer la feuille en PDF ?", vbYesNo)
If Reponse = vbYes Then
Rep = Fichier & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Rep, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False 'n'affiche pas le fichier PDF
Else
Exit Sub
End If
End Sub

Si je ne me suis pas trompé encore une fois, ca devrait le faire.
@+ Lolote83

 

[Mister Binaire]

Merci à toi Lolote83 Tout marche bien et je te remercie bien vivement de ton aide.

J'ai juste retiré la variable "Year" qui me renvoyait l'année 1905 à la place de l'année localisée en A1 c'est à dire 2016.