Microsoft 365 Macro génératrice de fichier Excel et pdf

Raoulcomlan

XLDnaute Nouveau
Bonjour



Je cherche une macro pouvant générer un document PDF à partir d’une feuille excel

Et quelle soit représentée par un bouton à appuyer (image png rajoutée sur le fichier)

Elle sélectionnerait un bloc de cellule défini

Ce document porterait le nom indiqué dans la cellule k16 (par exemple).



Et de même une autre macro pour générer un fichier excel avec les mêmes caractéristiques



Merci beaucoup d’avance pour votre aide
 

bbou31

XLDnaute Nouveau
Hello,

VB:
'A modifier selon le besoin
'cheminPDF = ThisWorkbook.Path 'Pour sauvegarder dans le dossier courant du fichier Excel
cheminPDF = C:\Users\username\Desktop\
nomFichier = Range("K16").Value2

'Pour le fichier PDF
'ActiveSheet pour la feuille active, ou Range("XX:XX") pour une range définie
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        cheminPDF & nomFichier & ".pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True

'Pour faire un Enregistrer Sous du classeur actif
    ActiveWorkbook.SaveAs Filename:=cheminPDF & nomFichier & ".xlsx", _
        FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
 

Discussions similaires