XL 2013 Erreur macro export PDV automatique

  • Initiateur de la discussion Initiateur de la discussion tigus
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

tigus

XLDnaute Nouveau
Bonjour,
je souhaite pouvoir enregistrer automatiquement mes factures en PDF dans un dossier voulu avec un nom voulu :
voici le code sur lequel je suis parti :
Sub EnregistrerPdf()

Dim Chemin As String
Dim NomFichier As String

Chemin = "C:\User\" ' A adapter
NomFichier = Range("I4") ' Range à adapter
ActiveSheet.PageSetup.PrintArea = "$A$4:$G$53"
'Message Box non obligatoire, mais confirme l' emplacement et le nom
If MsgBox("Ce fichier sera enregistré sous le nom:" & Chr(10) & NomFichier & Chr(10) & Chr(10) & "Dans le dossier:" & Chr(10) & Chemin, vbOKCancel, "confirmation de l' enregistrement") = vbOK Then

ThisWorkbook.Sheets("Factures").ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin & NomFichier & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

'Message Box non obligatoire,
MsgBox ("Fichier enregistré avec succés")

Else: Exit Sub

End If
End Sub


or j'ai à chaque fois la même erreur :
erreur d'exécution 1004
Document non enregistré. Le document est peut être ouvert ou une erreur s'est produite lors de l'enregistrement.


j'ai bien sur essayé de changer le chemin d'accès, le nom d'enregistrement et rien n'y fait.
je vous joins mon fichier excel pour avoir votre retour.

merci de votre aide car je suis débutant en macro.
 
Solution
Bonsoir tigus, bonsoir hervé62 bonsoir le forum
Perso, en changeant le chemin, la macro a fonctionnée.
Donc je vous propose deux pistes, 1er vérifier votre chemin, 2ᵉ vérifiez que par protection de la feuille, la cellule I4 ne soit pas verrouillée.
cdt
galougalou
Bonsoir tigus, bonsoir hervé62 bonsoir le forum
Perso, en changeant le chemin, la macro a fonctionnée.
Donc je vous propose deux pistes, 1er vérifier votre chemin, 2ᵉ vérifiez que par protection de la feuille, la cellule I4 ne soit pas verrouillée.
cdt
galougalou
 
Bonjour,
Merci pour vos réponses

l'erreur apparaît sur cette partie de code :
ThisWorkbook.Sheets("Factures").ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin & NomFichier & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

J'ai déjà changer le chemin en le diminuant au maximum mais ça n'a pas changer l'erreur. De plus mon ficher est non verrouillé donc je ne comprend pas.
je vous joins le document.
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
10
Affichages
547
Réponses
2
Affichages
511
Réponses
2
Affichages
809
Réponses
9
Affichages
578
Retour