Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2019 doc comptable = Macro PDF+pied de page

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

tuti

XLDnaute Occasionnel
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
 

Pièces jointes

Bonjour,

Proposition :
VB:
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
 

Pièces jointes

Dernière édition:
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é ?
 
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]
 
Dernière édition:
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

 
Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…