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

[crazyguismo]

Bonjour

Je suis nouveaux que ce forum, j'essai d'automatisé certains documents et la je suis en face d'un petit problème.
Voila je souhaite transformer une feuille excel en PDF à l'aide d'un bouton.
Pouvez-vous m'aider pour cette astuce.

 

[sylvanu]

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.

 

[crazyguismo]

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.

 

[sylvanu]

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

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

 

[jmlucien]

Ce petit code doit fonctionner :

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

 

[crazyguismo]

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.

 

[sylvanu]

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

et

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

 

[jmlucien]

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

 

[jmlucien]

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

 

[crazyguismo]

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)

 

[sylvanu]

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

 

[crazyguismo]

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.

 

[jmlucien]

Ce fichier marche ainsi...

 

[crazyguismo]

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é.

 

[jmlucien]

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