Macro Enregistrer En Pdf Feuille Excel Avec Nom D'une Cellule ...

• Je soutiens Excel Downloads

Connexion S'inscrire Effectuez une recherche sur Excel Downloads...

Effectuez une recherche sur Excel Downloads...

Partout Discussions Ce forum Cette discussion Rechercher dans les titres uniquement Note Par: Rechercher Recherche avancée…

• FORUMS Nouveaux messages Rechercher dans les forums
• TÉLÉCHARGEMENTS POUR LES PROFESSIONNELS Gestion commerciale Gestion de projets Gestion du personnel Tableaux de bord Comptabilité Immobilier Bourse POUR LES PARTICULIERS Budgets et comptes Plannings et calendriers UTILITAIRES LEÇONS ET TUTORIAUX Fonctions Excel Vba RESSOURCES PEDAGOGIQUES Rechercher une ressource
• ACTUALITÉS
• TUTOS EXCEL FORMULES ET FONCTIONS VBA POWER QUERY POWER PIVOT POWER BI AUTRES APPLICATIONS Recherche de tutos vidéos
• MEMBRES Visiteurs en ligne Nouveaux messages de profil Rechercher des messages de profil

Connexion S'inscrire Quoi de neuf Effectuez une recherche sur Excel Downloads...

Effectuez une recherche sur Excel Downloads...

Partout Discussions Ce forum Cette discussion Rechercher dans les titres uniquement Note Par: Rechercher Recherche avancée…

• Nouveaux messages
• Rechercher dans les forums

Menu Connexion S'inscrire Installer l'application Installer How to install the app on iOS

Follow along with the video below to see how to install our site as a web app on your home screen.

Note: This feature may not be available in some browsers.

• FORUMS
• Questions
• Forum Excel

Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif. Macro enregistrer en pdf feuille excel avec nom d'une cellule contenant formule Créer une discussion Répondre

• Initiateur de la discussion Initiateur de la discussion OIiv109
• Date de début Date de début 2 Avril 2019

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 !

Connexion S'inscrire O

OIiv109

XLDnaute Nouveau

Bonjour, Je cherche une macro pour enregistrer la feuille nommée "GAM" en pdf et qu'elle soit enregistrée avec le nom d'une cellule qui contient une formule pour faire apparaître le nom du fichier souhaité en pdf J'ai trouvé une macro qui fait presque tout, SAUF que le fichier pdf ne se nomme pas en fonction de ma cellule (dans mon fichier cellule "AB5") Quelqu'un pourrait-il m'aider car la je sèche. Ci-joint mon fichier et ci-dessous la macro. Sub EnrPDF() ' ' EnrPDF Macro ' Sauvegarder la feuille en PDF Dim a$ 'a$ = ActiveSheet.Name a$ = Range("AB5").Value ChDir ThisWorkbook.Path ActiveSheet.Select ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ ThisWorkbook.Path & "\Fichier_" & a$ & ".pdf", Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _ True End Sub

Pièces jointes

• Fiche avoir-cession interne .xlsm Fiche avoir-cession interne .xlsm 237.5 KB · Affichages: 29

Solution Bonsoir Merci don_pets Mais mon message était d'abord à destination du demandeur... Si jamais il revient dans son fil, qu'il sache que j'ai bien pris une douche ce jour et que brossées sont mes dents. Mais pas sur que ces considérations hygiénistes me rendent plus visible à ses yeux pour autant 😉

• 1
• 2

Suivant 1 de 2

Aller à la page

Aller Suivant Dernier Trier par date Trier par votes

don_pets

XLDnaute Occasionnel

Hello, Une solution VB: ' Enregistrer Feuille sous format PDF avec date dans le nom Dim LaDate$, Nom$, Rep$ Dim Cancel As Boolean LaDate = Format(Now, "yyyy_mm_dd") Nom = "Feuil1" Rep = "Chemin\" ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Nom & "_" & LaDate & ".pdf", Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, From:=1, To:=1, OpenAfterPublish:=False ActiveWorkbook.Saved = True MsgBox ("Enregistrement effectué") Application.Quit Enjoy Vote positif 0 Vote négatif O

OIiv109

XLDnaute Nouveau

Merci de ta réponse mais en fait dans ma macro j'ai juste besoin que le nom de mon fichier pdf soit celui du résultat de la formule de la cellule AB5 de mon fichier. Dans ma macro, quand je mets une cellule qui ne comporte pas de formule cela fonctionne. Vote positif 0 Vote négatif

don_pets

XLDnaute Occasionnel

Si ce n'est que ça, alors tu devrais juste modifier ta macro de manière à copier coller le résultat (et non la formule) par exemple : VB: Dim a$ a$ = ActiveSheet.Name Range("AB5").copy Range("AC5").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False a$ = Range("AC5").Value par exemple Vote positif 0 Vote négatif O

OIiv109

XLDnaute Nouveau

Merci beaucoup ca marche nickel Par contre si j'abusais, est-il possible d'avoir une macro qui ensuite permettrait d'ouvrir un mail vierge avec outllok 2017 avec le fichier en pièce jointe? Vote positif 0 Vote négatif O

OIiv109

XLDnaute Nouveau

Dernière problématique pour mon fichier j'ai mis une image et j'ai affecter ma macro mais cela ne marche pas quand je protège mon fichier. Je suis obligé de protéger le fichier avec que certaines cellules en accès Merci de ton aide Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

Bonsoir Une autre syntaxe possible (testée sur Excel 2013) Code: Sub test() Dim Fichier$ With ActiveSheet Fichier = ActiveWorkbook.Path & "\" & .[A1].Value2 .ExportAsFixedFormat Type:=xlTypePDF, Filename:=Fichier & ".pdf", Quality:=xlQualityStandard End With ThisWorkbook.Close True End Sub PS: En A1, j'avais pour faire mon test cette formule:=TEXTE(AUJOURDHUI();"mmmmaaaaa") Vote positif 0 Vote négatif

don_pets

XLDnaute Occasionnel

hello, pour créer un nouveau mail avec ton classeur en PJ tu peux faire VB: Application.Dialogs _ (xlDialogSendMail).Show et sinon pour créer un nouveau mail tu peux partir aussi la dessus : VB: Set myOlApp = CreateObject("Outlook.Application") Set myitem = myOlApp.CreateItem(olMailItem) With myitem .Subject = "Tralala" '->ton objet' .Recipients.Add "[email protected]" '-> detinataire' .Attachments.Add "TonChemin\tonfichier" '-> ta PJ .Body = "bla bla bla" '-> ton blabla myitem.Display End With Enjoy Vote positif 0 Vote négatif

don_pets

XLDnaute Occasionnel

et je n'ai pas tellement saisi ton histoire d'image si tu pouvais me détailler ça un peu ^^ Vote positif 0 Vote négatif O

OIiv109

XLDnaute Nouveau

En fait j'ai inséré une image à laquelle j'ai affecter une macro pour en faire un ''bouton'', sur lequel les gens devront cliquer pour utiliser la macro correspondante. Vote positif 0 Vote négatif

don_pets

XLDnaute Occasionnel

hm le problème c'est que si tu protèges ton fichier et que ta zone de lancement de macro se trouve sur une zone protégée ... ouvre une cellule supplémentaires dans ta zone "libre" et déclenche ta macro avec par exemple ou un double clic dessus ou un clic droit Vote positif 0 Vote négatif O

OIiv109

XLDnaute Nouveau

Merci beaucoup pour ta réponse par contre concernant le mail ta première proposition marche bien mais elle ajoute le fichier en pièce jointe en excel. Je souhaiterais que le fichier soit en pdf. Dans ma macro d'ailleurs, le fichier s'ouvre et s'enregistre en pdf, ne peut pas avoir une macro qui met uniquement le fichier pdf en pièce jointe plutôt que l'ouvrir et l'enregistrer ? ci-dessous ma macro Sub EnrPDF() ' ' EnrPDF Macro ' Sauvegarder la feuille en PDF Dim a$ 'a$ = ActiveSheet.Name a$ = ActiveSheet.Name Range("AB5").Copy Range("AC5").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False a$ = Range("AC5").Value ChDir ThisWorkbook.Path ActiveSheet.Select ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ ThisWorkbook.Path & "\" & a$ & ".pdf", Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _ True End Sub Sub MacroavecfeuilleProtect() Dim protégé As Boolean protégé = ActiveSheet.ProtectContents If protégé Then ActiveSheet.Unprotect "GAM12121971" 'Placez ici vos instructions If protégé Then ActiveSheet.Protect "GAM12121971", True, True, True End Sub Vote positif 0 Vote négatif

don_pets

XLDnaute Occasionnel

Yes c'est pour ça que je t'ai filé une autre commande qui te permet d'aller faire pointer en PJ le doc que tu veux VB: Set myOlApp = CreateObject("Outlook.Application") Set myitem = myOlApp.CreateItem(olMailItem) With myitem .Subject = "Tralala" '->ton objet' .Recipients.Add "[email protected]" '-> detinataire' .Attachments.Add "TonChemin\tonfichier" '-> ta PJ .Body = "bla bla bla" '-> ton blabla myitem.Display End With Vote positif 0 Vote négatif O

OIiv109

XLDnaute Nouveau

Ah ok Par contre le fichier sera utilisé sur plusieurs PC donc adresse et chemin différent en fonction de la ou vont l'enregistrer les personnes Vote positif 0 Vote négatif

don_pets

XLDnaute Occasionnel

Ok, fut un temps j'avais crée ça. Dans l'idée au moment où tu exectutes la macro, ça t'ouvre l'explorateur windobe, tu sélectionnes le dossier où doit venir s'enregistrer ton fichier. VB: LaDate = Format(Now, "yyyy_mm_dd") Nom = "Ton Nom" Set finput = Application.FileDialog(msoFileDialogFolderPicker) finput.Show On Error Resume Next With finput Fichier = .SelectedItems(1) Sheets("TonOnglet").Select ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Fichier & "\" & Nom & "_" & LaDate & ".pdf", Quality:= _ xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _ OpenAfterPublish:=False End With Vote positif 0 Vote négatif

• 1
• 2

Suivant 1 de 2

Aller à la page

Aller Suivant Dernier Rejoins nos membres "Supporter XLD" et booste ton expérience Excel ! - 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 Répondre Insérer les messages sélectionnés…

Discussions similaires

Y

• Résolu(e)

XL 2019 Compter le nb de Fichier dans un dossier afin de créer une nouvelle version

• youguybass
• 23 Janvier 2026
• Forum Excel

Réponses 2 Affichages 498 26 Janvier 2026 youguybass Y L

• Question Question

XL 2016 Enregistrer une zone dans un PDF

• lecoeurma
• 6 Juin 2025
• Forum Excel

Réponses 2 Affichages 371 7 Juin 2025 patricktoulon N

• Résolu(e)

Microsoft 365 Macro enregistrement automatique pdf

• Nounours4173
• 9 Juin 2025
• Forum Excel

2 Réponses 18 Affichages 943 12 Juin 2025 Nounours4173 N Y

• Résolu(e)

XL 2019 Vérification si dossier existe et création s'il n'existe pas

• youguybass
• 22 Janvier 2026
• Forum Excel

Réponses 3 Affichages 103 22 Janvier 2026 youguybass Y T

• Question Question

Microsoft 365 Problème macro

• texsolne35
• 16 Mai 2025
• Forum Excel

Réponses 4 Affichages 402 17 Mai 2025 cathodique S

• Question Question

XL 2013 enregistrer une feuille excel converti en pdf dans un répertoire selon la valeur d'une cellule

• seb626
• 8 Janvier 2025
• Forum Excel

Réponses 5 Affichages 653 8 Janvier 2025 Phil69970

• Question Question

XL 2019 envoi pdf d'une feuille par gmail et non pas par outlook

• pascal21
• 13 Mars 2025
• Forum Excel

Réponses 7 Affichages 378 14 Mars 2025 pascal21 S

• Question Question

XL 2019 enregistrement pdf avec variable et format variable

• sofmat
• 25 Novembre 2024
• Forum Excel

Réponses 10 Affichages 639 25 Novembre 2024 sofmat S S

• Résolu(e)

XL 2013 Questions déjà traitée ici mais... (Insérer cellule dans nom de PDF)

• StéphaneDeLà
• 23 Janvier 2025
• Forum Excel

Réponses 10 Affichages 496 23 Janvier 2025 StéphaneDeLà S F

• Question Question

Microsoft 365 Problème avec VBA ( Résolu)

• firecarl
• 8 Novembre 2024
• Forum Excel

Réponses 2 Affichages 550 9 Novembre 2024 firecarl F S

• Question Question

XL 2016 Erreur dans fonction VBA

• Stéphanie1981
• 21 Août 2024
• Forum Excel

Réponses 2 Affichages 496 21 Août 2024 sylvanu N

• Question Question

XL 2016 Code VBA pour envoi de mail avec pdf en piece jointe

• Nosma
• 30 Septembre 2024
• Forum Excel

Réponses 4 Affichages 821 1 Octobre 2024 Phil69970 P

• Question Question

XL 2019 Changer nom d'export en VBA

• Pierre111
• 13 Août 2024
• Forum Excel

Réponses 3 Affichages 855 13 Août 2024 job75 A

• Résolu(e)

Microsoft 365 Enregistrer copie d'un fichier avec pour nom le contenu d'une cellule excel (macro)

• Alstroemeria
• 29 Octobre 2024
• Forum Excel

2 Réponses 15 Affichages 1 K 14 Novembre 2024 firecarl F C

• Résolu(e)

XL 2021 Ne pas enregistrer la 2 ème feuille dans le pdf

• Claudinedu13
• 1 Février 2024
• Forum Excel

Réponses 1 Affichages 490 1 Février 2024 Claudinedu13 C M

• Résolu(e)

XL 2013 VBA enregistrement fichier dans un dossier en particulier

• MarineU
• 8 Septembre 2024
• Forum Excel

Réponses 3 Affichages 658 8 Septembre 2024 MarineU M P

• Résolu(e)

XL 2010 Enregistrer sous un seul PDF toutes les feuilles visibles d'un classeur

• Panda79360
• 24 Février 2024
• Forum Excel

Réponses 3 Affichages 907 25 Février 2024 Panda79360 P J

• Résolu(e)

XL 2021 pb d'export pdf

• JPaul78
• 29 Mai 2024
• Forum Excel

Réponses 3 Affichages 1 K 7 Juin 2024 JPaul78 J P

• Résolu(e)

Microsoft 365 creer un dossier et sauvergarder un fichier PDF avec le meme nom

• pralo
• 7 Décembre 2023
• Forum Excel

Réponses 5 Affichages 809 8 Décembre 2023 Lolote83 L

• Question Question

Autres fenêtre "Publication"

• ph.vanne
• 30 Octobre 2024
• Forum Excel

Réponses 10 Affichages 766 30 Octobre 2024 ph.vanne Partager ce contenu : Facebook X Bluesky LinkedIn Reddit Pinterest Tumblr WhatsApp E-mail Partager ce contenu Copier le lien

• FORUMS
• Questions
• Forum Excel

• Nous accordons de l'importance à votre vie privée

  Nous utilisons des cookies essentiels pour faire fonctionner ce site, et des cookies facultatifs pour améliorer votre expérience.

  Voir plus d'informations et configurer vos préférences

  Accepter tous les cookies Refuser les cookies facultatifs
  • Cookies essentiels
  Ces cookies sont nécessaires pour activer les fonctionnalités de base telles que la sécurité, la gestion du réseau et l'accessibilité. Vous ne pouvez pas les rejeter.
  • Cookies optionnels
  Nous fournissons des fonctionnalités améliorées pour votre expérience de navigation en configurant ces cookies. Si vous les rejetez, les fonctionnalités améliorées ne seront pas disponibles.
  • Cookies de tierces parties
  Les cookies définis par des tiers peuvent être nécessaires pour alimenter les fonctionnalités en collaboration avec divers fournisseurs de services à des fins de sécurité, d'analyse, de performance ou de publicité.
  • Utilisation détaillée des cookies
  • Politique de confidentialité
  Enregistrer les préférences de cookies

Retour