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.

 

[jmlucien]

Question bête quel est ta version d'excel ? Voir si elle contient le convertisseur pdf...car si elle ne l'a pas ...ça n'est pas possible. Je crois que c'est à partir d'Excel 2010...
JM

 

[sylvanu]

Bonjour le fil,
Avec XL2007 le fichier de JM marche correctement.
Le convertisseur est visible ici :

 

[crazyguismo]

je doit vraiment mal faire quelques chose car ca ne fonctionne vraiment, ma version d'Excel est 2019.
Je vous joins la macro que j'ai modifié.
une visualisation avant enregistrement est elle possible, il me semble que oui, openafterpublish doit être à true non?

Dim lerep As String
Sheets("demande_de_devis").Select
'Exporter en pdf vers nouveau fichier

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

whith Sheets("demande_de_devis") & Range("F1").Value = Me.label_info.Caption
Sheets("demande_de_devis").ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\Users\j.muller\Documents\Excel sources\" & ("H12")

 

[crazyguismo]

finalement j'ai pas mal chercher et essayer de nouveaux code et du coup j'ai repris le votre sylvanu

et j'ai de nouveau un soucis décidement

Sub enregistrement_PDF()
Dim Ledossier As String, Leclient As String, LeRep As String
Ledossier = Range("F1").Value
Leclient = Range("H12").Value
LeRep = "C:\Users\inconnu\Desktop\demande de devis" & "\H12\" ' ? adapter
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
LeRep & Ledossier & "_" & Leclient & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
from:=1, To:=1, OpenAfterpublish:=false

lorsque je charge le débogage une fenêtre d'erreur s'affiche comme quoi le fichier ne s'est pas enregistré.

Dans l'attente de vos retour.

 

[sylvanu]

Ca ne veut rien dire : "\H12\", il prend la chaine de caractère. C'est : "\" & [H12] & "\"

 

[crazyguismo]

sylvanu
merci pour votre réponse, ok j'ai bien compris, mais le problème reste le même, j'ai un code 1004 qui apparaît. est ce mon chemin qu'il ne comprend pas?

 

[sylvanu]

Faites du pas à pas.
Positionnez le curseur sur Sub puis appuyez sur F8. A chaque appui vous progressez d'une instruction.
Vous verrez sur quelle ligne il trouve une erreur.

 

[crazyguismo]

les erreurs sont surligner en jaune?
si c'est le cas le code est faux du début à la fin!!!!
les variables ne sont peut-être pas correct du coup!

lorsque je fait le débogage l'erreur se situe a la dernière ligne.

 

[sylvanu]

Non. A chaque appui sur F8 une ligne s'execute et la prochaine se met en jaune.
Donc quand l'erreur apparait (1004) c'est que l'erreur se trouve sur la ligne en jaune.

 

[jmlucien]

whith Sheets

Whith c'est pas bon je pense tu veux écrire with

 

[crazyguismo]

Bonjour Sylvanu et JM
j'ai enfin trouver, merci bcp pour votre aide et encore desolé pour toutes les questions un peu bêtes.

 

[monnot]

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

Bonjour ;

Il faut dans un premier temps créer une macro du style :

Sub ExportPDF()
Dim fs As Object
Set fs = CreateObject("Scripting.FileSystemObject")
    
    Application.ScreenUpdating = False
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
            Filename:="c:\temp\test.pdf", _
            OpenAfterPublish:=False

    If Dir("c:\temp\test.pdf") <> "" Then
           Rep = MsgBox("PDF Sauvegardé avec succés", vbYesonly, "Enregistrement")
    Else
    
    End If
    Application.ScreenUpdating = True
End Sub

(tu peux affiner en mettant des variables pour générer ton nom de fichier, par exemple en fonction du contenu d'une cellule...)
Dans la macro, j'ai ajouté un petit contrôle qui teste que le fichier a bien été créé dans le répertoire de destination. (utile parfois si tu enregistres sur un lecteur réseau par exemple, ou si tu as des noms de fichiers qui changent en fonction du contenu d'une cellule, de l'heure etc)

Ensuite dans le menu développeur tu crées un bouton de contrôle de formulaire auquel tu affectes ta macro.
Ton fichier doit être au format xlsm pour prendre en charge les macros.