Enregistrer Une Feuille Sous PDF Avec Nom Dans Une Cellule

Home » Code Vba Enregistrer Excel En Pdf » Enregistrer Une Feuille Sous PDF Avec Nom Dans Une Cellule

Maybe your like

ForumsExcel - VBAEnregistrer une feuille sous PDF avec nom dans une celluleEnregistrer une feuille sous PDF avec nom dans une cellule Le 25/08/2017 à 18:44AAachloeNouveau venuMessages3Excel2010Inscrit25/08/2017

TELECHARGEMENTS

Plus de 300 applications Excel sont disponibles gratuitement en téléchargement !

  • Budget, gestion de comptes
  • Gestion commerciale, personnel
  • Plannings, calendriers
  • Etc.
Voir les applications ...

Bonjour,

Je cherche un code pour créer une macro qui me permettra d'enregistrer une feuille de mon classeur en PDF avec un nom spécifique qui se trouve dans une cellule. Ce nom est variable, car la cellule comporte elle-même une formule qui met en forme le (futur) nom du fichier PDF, je pense judicieux d'utiliser le nom de la cellule, sinon j'ai déjà renommé la cellule "nomdufichier". Mais le problème n'est pas là, je n'arrive pas à écrire le code pour automatiser la sauvegarde en pdf.

Cela parait simple mais avec les différents codes que je trouve sur les forums je n'y arrive pas.

J'utilise VBA sous Excel 2010.

Nom de la feuille : "Facture Agences"

Numéro de la cellule ou se trouve le nom du fichier pour le pdf : Cellule "B31" de la feuille "Informations Agence"s OU cellule nommée "nomdufichier"

Quelqu'un pourrait m'aider ?

Merci d'avance

Le 25/08/2017 à 19:30SteelsonFanatique d'ExcelMessages22'164Fichiers37Votes3'206Excel2013 FR + GSheetsTél.117'309Inscrit13/10/2014EmploiIngénieurLieu85330-NO

Bonjour,

Sub enregistrerpdf() Dim nompdf As String Dim dossier As String dossier = ThisWorkbook.Path nompdf = dossier & "\" & Sheets("Informations Agence").Range("B31") ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=nompdf & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False End SubLe 25/08/2017 à 19:47AAachloeNouveau venuMessages3Excel2010Inscrit25/08/2017

Merci beaucoup c'est top !

Le 29/10/2017 à 15:40merveil00Membre habituéMessages59Votes-1Excel2010Inscrit24/10/2017LieuBrazzaville, Congo

bonjour et bon weekend a vous,

j'ai aussi le meme soucis pour l'enregistrement d'une feuille en pdf. j'ai cette erreur qui s'affiche a chaque fois, je ne vois pas d'ou sors le probleme

ci dessous le code,

Private Sub CommandButton1_Click() ChDir "C:\01- LICENCES\" & Sheets("Licence").Cells(42, 1).Value & ".pdf" ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Sheets("Licence").Cells(10, 10).Value & ".pdf", _ Quality:=xlQualityStandard, _ IncludeDocProperties:=True, _ IgnorePrintAreas:=False, _ OpenAfterPublish:=True End Sub

besoin d'aide svp

Avec Excel, tu fais tout..............Le 29/10/2017 à 16:49SteelsonFanatique d'ExcelMessages22'164Fichiers37Votes3'206Excel2013 FR + GSheetsTél.117'309Inscrit13/10/2014EmploiIngénieurLieu85330-NO

Bonjour,

Ton image est invisible !!

Que contient Sheets("Licence").Cells(42, 1).Value ?

idem Sheets("Licence").Cells(10, 10).Value ?

pourquoi

ChDir "C:\01- LICENCES\" & Sheets("Licence").Cells(42, 1).Value & ".pdf"

?

ChDir change le répertoire ou le dossier actif.

mets dans

Filename:=Sheets("Licence").Cells(10, 10).Value & ".pdf"

directement le nom complet avec le chemin d'accès.

regarde le code ci-dessus

https://forum.excel-pratique.com/excel/enregistrer-une-feuille-sous-pdf-avec-nom-dans-une-cellule-t97720.html#p568085

Le 29/10/2017 à 17:58merveil00Membre habituéMessages59Votes-1Excel2010Inscrit24/10/2017LieuBrazzaville, Congo

merci pour la reaction,

[quote="Steelson"]Bonjour,

Ton image est invisible !!

Que contient Sheets("Licence").Cells(42, 1).Value ? un numero (001 par exple) c'est le nom du dossier ou va placer le fichier (la cellule va etre dynamique)

idem Sheets("Licence").Cells(10, 10).Value ? un code alphanumerique (avec le caractere ~, j'ai verifie c'est un caractere autorise) pour renommer le fichier.

ChDir va changer le dossier a chaque fois

Avec Excel, tu fais tout..............Le 30/10/2017 à 04:04SteelsonFanatique d'ExcelMessages22'164Fichiers37Votes3'206Excel2013 FR + GSheetsTél.117'309Inscrit13/10/2014EmploiIngénieurLieu85330-NO

Est-ce que Sheets("Licence").Cells(10, 10).Value contient aussi \ ?

Sinon,

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= "C:\01- LICENCES\" & Sheets("Licence").Cells(10, 10).Value & ".pdf", _ Quality:=xlQualityStandard, _ IncludeDocProperties:=True, _ IgnorePrintAreas:=False, _ OpenAfterPublish:=True

et remets ton image invisible STP.

Le 30/10/2017 à 11:01AAachloeNouveau venuMessages3Excel2010Inscrit25/08/2017

Bonjour,

Ma macro marchait très bien jusqu'à aujourd'hui. (code ci dessous) Ce matin j'ai une erreur 1004 qui apparait quand je lance la macro. J'ai vérifié les noms des fichiers et cellules et tout est bon.

Quelqu'un peux m'aider ?

Merci d'avance !

Sub enregistrerpdf() Dim nompdf As String Dim dossier As String dossier = "C:\Users\dany\Desktop\Nouvelles Factures\" nompdf = dossier & "\" & Sheets("Informations à remplir").Range("B29") ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=nompdf & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False End SubLe 30/10/2017 à 13:20SteelsonFanatique d'ExcelMessages22'164Fichiers37Votes3'206Excel2013 FR + GSheetsTél.117'309Inscrit13/10/2014EmploiIngénieurLieu85330-NOdossier = "C:\Users\dany\Desktop\Nouvelles Factures\" nompdf = dossier & "\" & Sheets("Informations à remplir").Range("B29")

Il y a un antislash \ en trop !

Le 26/07/2019 à 16:41ggrtgrJeune membreMessages14Excel2010Inscrit15/07/2019
Steelson a écrit :

Bonjour,

Sub enregistrerpdf() Dim nompdf As String Dim dossier As String dossier = ThisWorkbook.Path nompdf = dossier & "\" & Sheets("Informations Agence").Range("B31") ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=nompdf & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False End Sub

Bonjour,

je viens d'utiliser le code cela fonctionne bien merci !

Cependant, j'aimerai exécuter cette macro depuis ma feuille 1 pour imprimer la feuille 2 car elle a une présentation différente.

Est-ce possible de l'intégrer dans le code sans avoir à aller sur la feuille 2 ?

Merci d'avance.

Le 26/07/2019 à 18:20SteelsonFanatique d'ExcelMessages22'164Fichiers37Votes3'206Excel2013 FR + GSheetsTél.117'309Inscrit13/10/2014EmploiIngénieurLieu85330-NO

ACCES PREMIUM

Soutenez le site en devenant membre Premium et profitez de plusieurs options exclusives :

  • Navigation sans publicités
  • Option "No Tracking"
  • Option "Mode Incognito"
  • Option "Dark Mode"
Plus d'informations ...

Remplace ActiveSheet par Sheets("le_nom_de_ma_feuille_2")

Rechercher des sujets similaires à "enregistrer feuille pdf nom"ForumsExcel - VBAEnregistrer une feuille sous PDF avec nom dans une cellule

Tag » Code Vba Enregistrer Excel En Pdf