Erreur d'execution '5'
Cesar61
-
cs_Le Pivert Messages postés 8437 Statut Contributeur -
cs_Le Pivert Messages postés 8437 Statut Contributeur -
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
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
A voir également:
- Erreur d'execution '5'
- Erreur t32 ✓ - Forum Livebox
- Erreur 0x80070570 ✓ - Forum Windows 10
- Erreur s3 bbox - Forum Bbox Bouygues
- Erreur 4101 - Forum Carte graphique
- Erreur 3000 france tv - Forum Lecteurs et supports vidéo
1 réponse
Bonjour,
cela ne serait pas plutôt:
si FacturesEssais est un dossier
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
