Erreur d'execution '5'
Cesar61
-
cs_Le Pivert Messages postés 7904 Date d'inscription Statut Contributeur Dernière intervention -
cs_Le Pivert Messages postés 7904 Date d'inscription Statut Contributeur Dernière intervention -
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 0x80070643 - Accueil - Windows
- Erreur 0x80070643 Windows 10 : comment résoudre le problème de la mise à jour KB5001716 - Accueil - Windows
- Erreur 4201 france tv ✓ - Forum Réseaux sociaux
- Code erreur f3500-31 ✓ - Forum Bbox Bouygues
- Comment recuperer whatsapp supprimé par erreur - Guide
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
