Discussion :

[curt]

Bonsoir à tous,

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

Code :

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

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.

[kiki29]

Salut, au plus simple qqch comme ceci

Code :

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

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 :

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

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

[curt]

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 ) 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.

[kiki29]

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