[XL-2016] Nommer les feuilles pdf créées par Excel depuis VBA

Nommer les feuilles pdf créées par Excel depuis VBA

Bonsoir à tous,

pour créer des feuilles pdf, j'utilise le code suivant :
Code:

1 2 3 4 5 6 ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _ Filename:=Dossier & "\" & Fichier & ".pdf", _ Quality:=xlQualityStandard, _ IncludeDocProperties:=True, _ IgnorePrintAreas:=False, _ OpenAfterPublish:=False
Je voudrais pouvoir nommer les feuilles créer dans .pdf avec le nom du fichier…. cela est-il possible ?
ça aiderait grandement pour la navigation à travers acrobat reader.

Bon we.

Salut, au plus simple qqch comme ceci

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Option Explicit
 
Sub Tst()
Dim sDossier As String, sFichier As String
 
    sDossier = ThisWorkbook.Path
    sFichier = ActiveSheet.Name
 
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
                                    Filename:=sDossier & "\" & sFichier & ".pdf", _
                                    Quality:=xlQualityStandard, _
                                    IncludeDocProperties:=True, _
                                    IgnorePrintAreas:=False, _
                                    OpenAfterPublish:=False
End Sub

Une autre possibilité

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Option Explicit
 
Sub Tst_02()
Dim sDossier As String, sFichier As String
Dim FSO As Object
 
    Set FSO = CreateObject("Scripting.FileSystemObject")
    sDossier = ThisWorkbook.Path
    sFichier = FSO.GetBaseName(ActiveWorkbook.Name)
 
    ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, _
                                       Filename:=sDossier & "\" & sFichier & ".pdf", _
                                       Quality:=xlQualityStandard, _
                                       IncludeDocProperties:=True, _
                                       IgnorePrintAreas:=False, _
                                       OpenAfterPublish:=False
 
    Set FSO = Nothing
End Sub

Bonjour Kiki29,

je me suis mal exprimé dans ma demande.
Je parviens à créer un pdf à partir d'Excel (en m'aidant notamment de l'excellente littérature dont tu es l'auteur :merci: ) mais ma demande concerne non pas le fichier pdf créé mais le nom de chacune des vignettes du même document qui sont nommées 1, 2, 3 etc dans le menu de gauche quand on navigue sur le pdf.
j'aimerai pouvoir accéder à la fonction "renommer" quand on fait clic-droit puis renommer sur les vignettes de façon manuelle.

Merci pour l'aide.

Salut, les n° de pages ne sont pas modifiables. Pour la navigation il existe les signets, à voir ci-dessous , pour cela il te faut Acrobat ( pas le Reader )

Acrobat : Supprimer les signets d'un PDF
Acrobat : Création Arborescence de Signets de N° de Page et Insertion de Données Excel dans ces Signets
Acrobat : Liste des Signets/Bookmarks d'un fichier PDF
Acrobat : Découpage d'un fichier PDF aux Signets/Bookmarks
Acrobat : Découpage d'un fichier PDF aux Signets/Bookmarks du 1er niveau