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