Erreur d'execution '5'

Fermé
Cesar61 - 19 mai 2020 à 14:31
cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 - 19 mai 2020 à 15:38
Bonjour,
Débutant en VBA, je bute sur un code que j'ai copié qqpart sur Internet pourtant à la virgule près, et moi il ne se passe absolument rien...
c'est un code de sauvegarde d'une feuille excel (avec Excel2007)en PDF, que je joint, si qqu'un
peut me venir en aide, je lui en serai absolument reconnaissant

Sub EnregistrerPDF()
'Enregistrement au format PDF

'Déclaration des variables

Dim CheminDossier As String

'Nom de dossier

CheminDossier = "C:\Users\Utilisateur\Documents\"

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
CheminDossier & "FacturesEssais" & "Facture_" & Range("I3").Value & Range("G6").Value & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
from:=1, to:=1, OpenAfterPublish:=False

End Sub

Merci d'avance

1 réponse

cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 729
19 mai 2020 à 15:38
Bonjour,

cela ne serait pas plutôt:

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
CheminDossier & "FacturesEssais\" & "Facture_" & Range("I3").Value & Range("G6").Value & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
from:=1, to:=1, OpenAfterPublish:=False


si FacturesEssais est un dossier
0