XL 2013 Exportation d'un fichier excel sous pdf

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 !

hamza01

XLDnaute Nouveau
Bonjour à tous,

J'essaye d'enregistrer un fichier excel à partir de la macro suivante, mais ça ne fonctionne pas.
Je veux utiliser le bouton export et envoyer la feuille "Nouveau Modél" sous forme PDF
dans un fichier sur le bureau nommé Facture. Je veux aussi que le nom de ce fichier prend la valeur de la cellule C16 et G6 qui représente la date du jour et le nom du client. Merci de me donner un coup de pouce.

Sub Export()

info1 = Sheets("Nouveau Modél").Range("C16")
info2 = Sheets("Nouveau Modél").Range("G6")
nom = info1 & "-" & info2 & "-" & ".xlsm"
ThisWorkbook.Save
ThisWorkbook.SaveAs (nom)
ThisWorkbook.Activate
ChDir " \Users\mb\Desktop\Facture\"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF

End Sub
 
- 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

Réponses
3
Affichages
672
Retour