XL 2019 doc comptable = Macro PDF+pied de page

[tuti]

bonjour,
réalisant un petit document pour la réalisation des devis,

pas obliger, mais plus facile à utiliser,
je souhaiterais ajouter une macro

EXPORT EN PDF { le nom est actuellement formaté dans la cellule A52 }
+ ( optionnelle) Ajout dans le pied de page du texte actuellement en A52 ( celui ci seras effacer quand la macro seras bonne )

merci

 

[kiki29]

Salut, si curieux,à télécharger puis consulter/adapter à ton contexte : Liste Contributions PDF

 

[TooFatBoy]

Bonjour,

Proposition :

Sub LoopSheetsSaveAsPDF()
'
Dim NomFichier As String

    With ActiveSheet
        .PageSetup.LeftFooter = Range("H49")
        NomFichier = ThisWorkbook.Path & "\" & .Range("A52") & ".pdf"
        .ExportAsFixedFormat Type:=xlTypePDF, Filename:=NomFichier
    End With

    MsgBox "Fichier sauvegardé :" & vbCrLf & vbCrLf & NomFichier

End Sub

 

[tuti]

merci pour vos réponses

aussi, j'ai essayer de coller ta macro dans mon fichier final
j'ai bien le popup de sauvegarde
mais aucun fichier dans le dossier indiquer

alors qu'il y a le popup, pourquoi aucune fichier n'est coller au chemin indiqué ?

 

[TooFatBoy]

Le message de sauvegarde est là uniquement pour dire que la macro a fini de s'exécuter.
Il ne présage en rien du bon déroulement de la sauvegarde en pdf.

Je ne vois pas pourquoi la sauvegarde en pdf ne s'effectue pas.

A52 n'est pas vide ?
[edit] Ah ben non, puisque c'est une formule, et ça créerait une erreur... [/edit]

 

[TooFatBoy]

Le classeur "final" est sur ton PC ?

 

[tuti]

oui,
mais j'ai un OneDrive de config

avec ton document dans DOWLOAD, je vois le document PDF
avec mon document dans l'arborescence, je ne vois pas le document

j'ai coller mon doc sur mon bureau, même soucis
surement un soucis en important la macro

 

[TooFatBoy]

Si le classeur est sur ton PC ça devrait fonctionner.