gilles37
XLDnaute Occasionnel
Bonjour à tous,
J'ai un bouton sur une feuille qui ouvre un inputbox ( composé d'une fenêtre de saisie, d'un bouton Ok et d'un bouton ANNULER) afin d'y renseigner le dossier de destination d'enregistrement en PDF.
Je renseigne le nom du dossier, la feuille active est enregistrée en PDF dans le dossier voulu--->pas de souci
Le probleme, si je fais annuler, j'ai une erreur d’exécution 1004
ci-dessous la macro
Sub enregistrePOI()
Dim NomDossier As String
Dim CheminDossier As String
'On Error GoTo 1
NomDossier = Application.InputBox("dossier Enregistrement :", "dossier")
CheminDossier = "E:\Bibliothèques\Documents\POI\" & NomDossier & "\"
If NomDossier = "" Then Exit Sub
'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
Merci pour votre aide
J'ai un bouton sur une feuille qui ouvre un inputbox ( composé d'une fenêtre de saisie, d'un bouton Ok et d'un bouton ANNULER) afin d'y renseigner le dossier de destination d'enregistrement en PDF.
Je renseigne le nom du dossier, la feuille active est enregistrée en PDF dans le dossier voulu--->pas de souci
Le probleme, si je fais annuler, j'ai une erreur d’exécution 1004
ci-dessous la macro
Sub enregistrePOI()
Dim NomDossier As String
Dim CheminDossier As String
'On Error GoTo 1
NomDossier = Application.InputBox("dossier Enregistrement :", "dossier")
CheminDossier = "E:\Bibliothèques\Documents\POI\" & NomDossier & "\"
If NomDossier = "" Then Exit Sub
'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
Merci pour votre aide