Sub enregistrePOI()
Dim NomDossier As Variant
Dim CheminDossier As String
On Error Resume Next
NomDossier = Application.InputBox("dossier Enregistrement :", "dossier")
' Si l'utilisateur à annulé la procédure, on sort
If NomDossier = "" Or NomDossier = False Then Exit Sub
' Sinon
CheminDossier = "E:\Bibliothèques\Documents\POI\" & NomDossier & "\"
'enregistrement en pdf
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
CheminDossier & "POI_" & Range("D4").Value & Cells(2.5).Value & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
From:=1, To:=1, OpenAfterPublish:=False
End Sub