Discussion :

[OXdOZ]

bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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,

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[OXdOZ]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

"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

[casefayere]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

ou

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

EDIT : pas vu ta réponse, halaster08