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 d'execution 13 ✓ - Forum Programmation
- La vidéo à télécharger va 5 fois plus vite que sa vitesse normale. divisez sa vitesse par 5 pour rétablir sa vitesse normale. après cette opération, combien de papillons figurent entre la 17e et la 18e seconde ? ✓ - Forum Montage et acquisition vidéo
- Erreur s3 bbox - Forum Bbox Bouygues
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
