Macro Excel - PDF

[esthetique]

Bonjour

J'ai créer une macro pour enregistrer le fichier sous forme pdf. Pouvez-vous s'il vous paît m'aider à résoudre ce problème...

Merci

Sub enregistrer()
Dim LePath As String, LeNom As String
ActiveSheet.Copy
LePath = "C:\Users\Documents\Historique\"
LeNom = Format([H15], "yyyymmddhhmm") & [B16] & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
LeRep & LaDate & "_" & LeParcours & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
From:=1, To:=1, OpenAfterPublish:=False
MsgBox "Votre facture est prête pour l'impression !"
End Sub

 

[vmatthieu]

Re : Macro Excel - PDF

bonsoir,
ton problème est un peu vague ....
que veux tu?

 

[esthetique]

Re : Macro Excel - PDF

En réalité j'ai fait le macro pour enregistrer le fichier excel avec la date du jour, mais sus la forme excel. Après j’ai changé le macro pour enregistrer le fichier sous forme pdf en conservant le nome (data et nome de une cellule). Le problème est ce que le macro pour enregistrer le fichier sous forme pdf ne marche pas.

 

[excel_user]

Re : Macro Excel - PDF

Bonjour,
L'erreur est peut-être dû au fait que l'add-in pour l'export pdf n'est pas installé?
Cf. doc de la méthode sur le site de microsoft:
Ce lien n'existe plus
"An error will occur if the PDF add-in is not currently installed."

 

[Skyna]

Re : Macro Excel - PDF

Sub enregistrer_pdf()
ChDir "C:\Users\Documents\Historique"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\Documents\Historique" & Format("yyyymmddhhmm") & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
MsgBox "Votre facture est prête pour l'impression !"
End Sub

Pas testé, dc pas sur que cela fonctionne...

 

[esthetique]

Re : Macro Excel - PDF

Ça fonctionne, merci