Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Autres sauvegarde sous PDF

  • Initiateur de la discussion Initiateur de la discussion Macpoy
  • 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 !

Macpoy

XLDnaute Impliqué
bonjour le forum,
je suis excel 2003
après quelques recherches, j'ai trouvé ce code pour enregistrer une feuille
sous le format PDF dans un dossier mais cela ne fonctionne pas.
je vous joint le classeur et la capture écran de l'erreur.
merci d'avance pour votre aide.
 

Pièces jointes

  • erreur exe.JPG
    61 KB · Affichages: 10
  • Classeur2.xls
    Classeur2.xls
    28.5 KB · Affichages: 15
Bonsoir le forum
Bonsoir Macpoy

Il te faut donner un nom à ton fichier.
VB:
Filename:=dossier & "nom" & ".pdf"
Bonne soirée à toutes & à tous
@+ Eric c

merci de m'aider
j'ai modifier la macro comme ceci :
Sub savePDF()

nom = Sheets("Facture").Range("B11").Value
Sheets("Facture").PageSetup.PrintArea = "A1:F40"
Dossier = "D:\Entreprise\Cordonnerie\Compta\"
Sheets("Facture").ExportAsFixedFormat Type:=xlTypePDF, Filename:=Dossier & nom & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False

End Sub

mais cela ne fonctionne toujours pas.
est ce que cela pourrait venir de ma "vielle" version d'excel ?
 


Désolé, même avec ta recommandation cela ne fonctionne pas.

Sub savePDF()
nom = Sheets("Facture").Range("B11").Value
Sheets("Facture").PageSetup.PrintArea = "A1:F40"
Dossier = "D:\Entreprise\Cordonnerie\Compta\"
Sheets("Facture").ExportAsFixedFormat Type:=xlTypePDF, Filename:=Dossier & "nom" & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End Sub
 
Bonjour le forum
Bonjour le fil

Le sujet est traité sur un autre forum avec, comme l'a mentionné notre ami Staple (que je salue au passage 😉), l'utilisation de PdfCréator : ICI
Bonne journée à toutes & à tous
@+ Eric c
 
Re, Ah oui, pour ceux qui suivent et aussi pour répondre à notre ami job (que je salue également au passage 😉), il suffit d'enlever les guillemets à nom qui a été déclaré auparavant :
Avant :
VB:
Filename:=Dossier & "nom" & ".pdf",
Après :
Code:
Filename:=Dossier & nom & ".pdf",
@+
 
- 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
12
Affichages
381
Réponses
3
Affichages
104
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…