XL 2019 transformer un fichier excel en PDF à l'aide d'un bouton

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 15 Janvier 2020

• #2

Bonjour Crazyguismo,
Une solution est d'imprimer votre feuille en choisissant Microsoft Print to PDF comme imprimante.
Je pense que cette option est présente dans votre XL.

 

Vote positif 0 Vote négatif

C

crazyguismo

XLDnaute Nouveau

• 15 Janvier 2020

• #3

Bonjour Sylvanu
Je voudrais eviter de faire comme ca, j'aimerais utilisé une macro me permettant
la création d'un fichier PDF à partir de la feuiile
la vérification de la mise en page et l'enregistrement dans un fichier précis avec le nom d'une case précise.

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 15 Janvier 2020

• #4

Je ne vois pas le rapport. L'impression peut se faire via une macro :

VB:

Sub Enreg_Pdf()
Dim LaDate As String, LeParcours As String, LeRep As String
LaDate = Format(Date, "yyyymmdd")
LeParcours = Range("N2").Value
LeRep = ThisWorkbook.Path & "\parcours\"  ' à adapter
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    LeRep & LaDate & "_" & LeParcours & ".pdf", Quality:= _
    xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
    From:=1, To:=1, OpenAfterPublish:=False
End Sub

Voir : https://forum.excel-pratique.com/viewtopic.php?t=24447

 

Vote positif 0 Vote négatif

J

jmlucien

XLDnaute Nouveau

• 15 Janvier 2020

• #5

Ce petit code doit fonctionner :

Code:

Sheets("TaFeuille").Select
    'Exporter en pdf vers nouveau fichier

        LeRep = ThisWorkbook.Path & "\"  ' à adapter
            ActiveSheet.PageSetup.Orientation = xlPortrait
            ActiveSheet.PageSetup.Zoom = False
            ActiveSheet.PageSetup.FitToPagesWide = 1
            ActiveSheet.PageSetup.FitToPagesTall = 1
            ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
            LeRep & "ClientsMyHappy" & ".pdf", Quality:= _
            xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False 'From:=1, To:=1, OpenAfterPublish:=False

 

Vote positif 0 Vote négatif

C

crazyguismo

XLDnaute Nouveau

• 15 Janvier 2020

• #6

Merci pour vos réponses, mais j'ai un problème de compilation, je suis novice dans les macros excel.

Sub Enregistrer_PDF()

Sheets("2").Select
'Exporter en pdf vers nouveau fichier

LeRep = ThisWorkbook.Path & "C:\Users\Desktop\demande de devis" 'à adapter

ActiveSheet.PageSetup.Orientation = xlPortrait
ActiveSheet.PageSetup.Zoom = False
ActiveSheet.PageSetup.FitToPagesWide = 1
ActiveSheet.PageSetup.FitToPagesTall = 1
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
LeRep & "ClientsMyHappy" & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False 'From:=1, To:=1, OpenAfterPublish:=False



End Sub

le problème se trouve sur "leRep" cette variable n'est pas définie, comment doit je la définir.

Pour être plus précis l'enregistrement devra se faire dans un fichier "devis" le nom du fichier devra prendre le nom de la case "H12" et "F1"

merci pour votre retour et votre aide.

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 15 Janvier 2020

• #7

Sub Enregistrer_PDF()
Dim Lerep as string
Sheets("2").Select

et

Remplacer "ClientsMyHappy" par Range("H12") & Range("F1")

 

Vote positif 0 Vote négatif

J

jmlucien

XLDnaute Nouveau

• 15 Janvier 2020

• #8

LeRep est le chemin du répertoire où tu vas déposer ton pdf
tu ne doit rien ajouter si tu enregistre au même endroit
Et pas le chemin complet

 

Vote positif 0 Vote négatif

J

jmlucien

XLDnaute Nouveau

• 15 Janvier 2020

• #9

de même remplace "ClientsMyHappy" par le nom de ton fichier

 

Vote positif 0 Vote négatif

C

crazyguismo

XLDnaute Nouveau

• 15 Janvier 2020

• #10

j'ai essayer de réécrire la macro, je n'ai plus d'erreur, en revanche lors du débogage la ligne
sheets ("2").select est surligner en jaune (je suis vraiment novice, désolé pour les questions idiotes)

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 15 Janvier 2020

• #11

Difficile à dire sans un fichier.
Vous avait une feuille qui s'appelle "2"?

 

Vote positif 0 Vote négatif

C

crazyguismo

XLDnaute Nouveau

• 15 Janvier 2020

• #12

Voici le fichier.


Ma feuille 2 s'appelle "demande de devis" du coup je remplace "2"" par "demande de devis" mais ça fait la même chose.

 

Pièces jointes

• Etiquettes_SENAT_test.xlsm

  50.1 KB · Affichages: 9

Vote positif 0 Vote négatif

J

jmlucien

XLDnaute Nouveau

• 15 Janvier 2020

• #13

Ce fichier marche ainsi...

 

Pièces jointes

• Etiquettes_SENAT_test (1).xlsm

  50.6 KB · Affichages: 17

Vote positif 0 Vote négatif

C

crazyguismo

XLDnaute Nouveau

• 15 Janvier 2020

• #14

Merci pour ta réponse, mais cela ne fonctionne pas, je sait que c'est trop demandé, mais peux-tu m'écrire la macro, car la je ne voit plus le problème.

car lorsque j'appuie sur le bouton, la macro ne se met pas en erreur, mais il n'y à ni enregistrement ni visualisation.

Désolé.

 

Vote positif 0 Vote négatif

J

jmlucien

XLDnaute Nouveau

• 15 Janvier 2020

• #15

Chez moi ça marche sans problème.
As-tu bien activé la modification ? Essayes-tu bien le fichier que je t'ai envoyé car j'ai déactivé un code qui bloquait ?
Il n'y a pas de visualisation et le fichier pdf est enregistré dans le dossier où tu mets ton fichier Excel

 

Vote positif 0 Vote négatif