Problème Code VBA enregistrement PDF
Bonjour tout le monde,
Je reviens vers vous pour un petit coupe de pouce.
J'ai récupré ce code sur le net pour enregistrer en PDF; Je n"ai aucun message d'alerte et pourtant le fichier PDF ne se trouvse pas dans le dosssier en question.
J'ai beau creuser le peu de cerveau qu'il me reste en vain !!!
Je suis sur offcie 365.
Merci à tous et bonne journée.
Sub EnregistreFactureenpdf()
'Déclaration des variables
Dim NomDossier As String
Dim CheminDossier As String
On Error GoTo 1
'Nom de dossier
NomDossier = Application.InputBox("Dossier Enregistrement :", "Dossier")
CheminDossier = "D:\Archivage\Sauvegarde_2021_pdf\" & NomDossier & "\"
If NomDossier = "" Then Exit Sub
'Enregistrement au format PDF
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
CheminDossier & "Facture_" & Range("E5").Value & ".pdf", quality:= _
xlQualityStandard, includedocproperties:=True, ignoreprintareas:=False, _
from:=1, to:=1, openafterpublish:=False
1
End Sub
Bonjour,
Pour poster du code, vous pouvez utiliser les balises </> pour le rendre lisible.
Il faut s'assurer que le chemin existe, que E5 ne contient pas de caractère interdit dans les noms de fichiers. Eventuellement, un petit test avec thisworkbook serait le bienvenu :
Sub EnregistreFactureenpdf()
Nomfichier = "Facture " & range("E5").value & ".pdf"
NomDossier = Application.InputBox("Dossier Enregistrement :", "Dossier")
Repertoire = "D:\Archivage\Sauvegarde_2021_pdf\" & NomDossier
If NomDossier = "" Then
msgbox "le dossier a mal été renseigné", vbcritical
Exit Sub
end if
if dir(Repertoire, vbdirectory) = "" then
msgbox "le dossier n'existe pas, sortie", vbcritical
exit sub
end if
chemin = Repertoire & "\" & Nomfichier 'essai 1
'chemin = thisworkbook.path & "\" & Nomfichier 'essai 2
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=chemin, ignoreprintareas:=False
end subCdlt,