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

J

jmlucien

XLDnaute Nouveau

• 15 Janvier 2020

• #16

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

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 15 Janvier 2020

• #17

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

 

Vote positif 0 Vote négatif

C

crazyguismo

XLDnaute Nouveau

• 15 Janvier 2020

• #18

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")

 

Vote positif 0 Vote négatif

C

crazyguismo

XLDnaute Nouveau

• 15 Janvier 2020

• #19

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.

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 15 Janvier 2020

• #20

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

 

Vote positif 0 Vote négatif

C

crazyguismo

XLDnaute Nouveau

• 15 Janvier 2020

• #21

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?

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 15 Janvier 2020

• #22

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.

 

Vote positif 0 Vote négatif

C

crazyguismo

XLDnaute Nouveau

• 15 Janvier 2020

• #23

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.

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 15 Janvier 2020

• #24

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.

 

Vote positif 0 Vote négatif

J

jmlucien

XLDnaute Nouveau

• 16 Janvier 2020

• #25

crazyguismo à dit:

whith Sheets

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

C

crazyguismo

XLDnaute Nouveau

• 16 Janvier 2020

• #26

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

 

Vote positif 0 Vote négatif

M

monnot

XLDnaute Nouveau

• 16 Janvier 2020

• #27

crazyguismo à dit:

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.

Cliquez pour agrandir...

Bonjour ;

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

VB:

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.

 

Vote positif 0 Vote négatif