VBA - Publier en PDF avec nom du classeur Excel ouvert

bonjour,

j'aimerais publier des fichiers excel en pdf mais le fichier pdf doit avoir le nom du classeur excel ouvert.

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub Convert_to_PDF() Sheets.Select ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "D:\LocalData\ay29850\Desktop\Nom du classeur ouvert.pdf" _ , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _ :=False, OpenAfterPublish:=False ActiveWorkbook.Close False End Sub

---

C'est la partie en rouge que j'aimerais bien modifier.

Cordialement,

Bonjour,

Attention tu peux avoir plusieurs classeur ouvert. Le code suivant récupère le nom du classeur actif.
Si il s'agit du classeur qui contient la macro tu peux utiliser thisworkbook au lieu de activeworkbook

Code:

---

"D:\LocalData\ay29850\Desktop\" & activeworkbook.name & ".pdf"

---

Bonjour,
je ne sais pas si je comprends bien mais simplement, suivant le contexte

Code:

---

.....\" & ActiveWorkbook.Name & ".Pdf"

---

ou

Code:

---

.....\" & ThisWorkbook.Name & ".Pdf"

---

EDIT : pas vu ta réponse, halaster08

Citation:

---

Envoyé par halaster08

Bonjour,

Attention tu peux avoir plusieurs classeur ouvert. Le code suivant récupère le nom du classeur actif.
Si il s'agit du classeur qui contient la macro tu peux utiliser thisworkbook au lieu de activeworkbook

Code:

---

"D:\LocalData\ay29850\Desktop\" & activeworkbook.name & ".pdf"

---

---

Bonjour merci pour votre réponse precise, le code fonctionne comme je le voulais !

Merci beaucoup,

Cordialement,OXdOZ