Pages excel dans feuille de calcul vers pdf avec nom défini

Bonjour,

Maintenant, j'aimerais pouvoir nommer ces différentes pages à l'intérieur de la même feuille de calcul pour les imprimer/exporter en PDF et que lorsque j'exporte en PDF, elles puissent s'enregistrer automatiquement avec le nom que je leur ai donné ex: chauffage.pdf chauffage2.pdf

Quel excel avez-vous et ou est le nom de vos fichiers pdf ?????

Bonjour,

J'ai Excel 2010 et le nom des fichiers PDF, je n'en ai pas encore défini, justement j'aimerais nommer mes différentes pages que j'ai dans la même feuille de calcul, simuler une impression avec PDFcreator par exemple pour une page = un fichier pdf (avec le nom défini)

Merci d'avance

Re,

Vous pouvez faire une liste sur un autre onglet.

un exemple:

Sub Enreg_PDF()
    Dim Chemin, Nom_Fichier, Chemin_Complet
  
    'A adapter pour vous
    Chemin = "D:\_Docs_Prog_Excel\enreg_PDF\"
    
    With Worksheets("feuil1")
        Nb_Pages = (.HPageBreaks.Count + 1) * (.VPageBreaks.Count + 1)
        For x = 1 To Nb_Pages
            Nom_Fichier = Worksheets("feuil2").Range("A" & x) & ".pdf"
            Chemin_Complet = Chemin & Nom_Fichier
            ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin_Complet, _
            Quality:=xlQualityStandard, IncludeDocProperties:=True, From:=x, To:=x, IgnorePrintAreas:=False, OpenAfterPublish:=False
        Next x
    End With
End Sub

A+

Merci,

Juste une question.

Comment nommer mes pages dans le même classeur ?

ex:

J'aimerais nommer une page

chauffage1

et une autre

radiateur35

ensuite que lorsque j'exporte en PDF, la page s'appelle chauffage1.pdf et l'autre radiateur35.pdf

Merci encore.

Re,

tout depend si c'est toujours les memes pages ou pas et si vous n'avez que deux pages dans votre feuille!!!!!

Re,

Ce seront toujours les mêmes pages.

Ex: A1 E40 = chauffage 1 et ne bougera pas.

Je n'en ai pas 2 mais 40 pour le moment, de gauche à droite, dans ma feuil1.

Ce nombre sera seulement en augmentation au fur et à mesure de mes rajouts, mais jamais en diminution, je garderais les anciennes pages que je ne voudrais plus à l'endroit ou elles sont.

Merci !

Re,

Et les autres pages, pas de nom ?????

Si si elles auront toutes un nom.

Alors l'idéal serait de pouvoir les nommer comme je veux
mais si ce n'est pas possible, faire une incrémentation du style

page1 = chauffage1
page2 = chauffage2

Merci.

Re,

Faites une liste de nom sur un autre onglet comme je vous l'ai propose!!!!!

Re,

Ca fonctionne bien, merci infiniment, par contre au moment de lancer le script, j'ai cette fenêtre

Erreur d'exécution '-2147024773 (8007007b)':
Document non enregistré

Avec ces lignes surlignés:
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin_Complet, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, From:=x, To:=x, IgnorePrintAreas:=False, OpenAfterPublish:=False

Merci d'avance

Re,

Vous avez un probleme avec la variable Chemin_Complet, manque quelque chose!!!

le nom du fichier ou/et le chemin

A+

Re,

Je m'excuse mais je ne suis pas assez bon pour trouver l'erreur, vous la voyez ?

Mon fichier est également enregistré dans c:

Merci !

Sub Enreg_PDF()
Dim Chemin, Nom_Fichier, Chemin_Complet

'A adapter pour vous
Chemin = "C:\"

With Worksheets("Katalog 2013")
Nb_Pages = (.HPageBreaks.Count + 1) * (.VPageBreaks.Count + 1)
For x = 1 To Nb_Pages
Nom_Fichier = Worksheets("feuil2").Range("A" & x) & ".pdf"
Chemin_Complet = Chemin & Nom_Fichier
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin_Complet, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, From:=x, To:=x, IgnorePrintAreas:=False, OpenAfterPublish:=False
Next x
ActiveWorkbook.Save
Range("A1:L59").Select
ActiveWorkbook.Save
Application.Run "'130403_DLV2.xlsm'!Enreg_PDF"
Application.Run "'130403_DLV2.xlsm'!Enreg_PDF"
Sheets("Katalog 2013").Select
Range("G40").Select
Application.Goto Reference:="Enreg_PDF"
End With
End Sub

Re,

Vous enregistrez directement sous c: !!!!!!!

Dans les cellules colonne A1 a Ax feuil2, vous avez mis des noms, parce que si cellules vide, ca coince-----> ficher sans nom

Re,

oui sous c: pour tester ;-)

Alors, j'ai 49 pages dans ma première feuille

Et dans feuil2 de A1 à Ax feuil, j'ai mis

Test1
Test2
---
Test49

Mes 49 PDF se génère dans C: mais je ne comprend pas l'erreur de débogage..

Merci

Re,

Quand vous avez l'erreur, click sur debugage, placez le curseur souris sur la variable Chemin_Complet pour voir son contenu et ensuite sur x (idem)

A+

Tout semble correspondre, non ? qu'en pensez-vous ?

Merci

Chemin_Complet = "C:\.pdf"
Chemin = "C:\"
Nom Fichier = ".pdf"
x = 50

Re,

cela veut dire que vous avez 50 pages dans cette feuille et non 49!!!!

Bonjour,

Quand je fais ctrl+p, c'est bien indiqué 49 pages.

J'ai essayé avec 49-50 lignes avec des noms ça me fait erreur:

Erreur d'exécution '-2147024773 (8007007b)':
Document non enregistré

J'ai essayé avec 51 lignes avec des noms ça me fait erreur:

Erreur d'exécution '-1004':
Microsoft Excel ne trouve aucun document à imprimer.

Si je force l'enregistrement et arrête le débogeur, les fichiers PDF sont quand même généré.

Merci.

Bonjour,

Je vais faire un test dans vos conditions: 49 pages a mettre en fichier

A+

Re,

J'ai teste et pas de probleme.

Avez-vous regarde le contenu de Nb_Pages quand vous avez votre erreur ?????

A+