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

Question

Bonjour, 

J'espère que vous pourrez m'aider. 

Voilà, j'ai une feuille de calcul dans laquelle j'ai fais une mise en page avec des marges étroites.

Suite à cela, les fameux pointillés pour cibler les marges et séparer les pages sont apparues. J'ai crée différentes pages dans la même feuille de calcul en me fiant à ces pointillés. 

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

Mon but étant de pouvoir mettre à jour des fichiers PDF rapidement et écraser les fichiers PDF au fur et a mesure pour que par exemple le fichier chauffage.pdf soit la dernière version que j'ai exporté.

en espérant avoir été clair, je vous remercie d'avance pour votre aide.




Configuration: Windows Vista / Firefox 22.0

f894009 · Answer

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 ?????

mika5490 · Answer

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

f894009 · Answer

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+

mika5490 · Answer

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.

f894009 · Answer

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

mika5490 · Answer

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 !

f894009 · Answer

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

mika5490 · Answer

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.

f894009 · Answer

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

mika5490 · Answer

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

f894009 · Answer

Re,

Vous avez un probleme avec la variable Chemin_Complet, manque quelque chose!!!

le nom du fichier ou/et le chemin

A+

mika5490 · Answer

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

f894009 · Answer

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

mika5490 · Answer

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

f894009 · Answer

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+

mika5490 · Answer

Tout semble correspondre, non ? qu'en pensez-vous ?

Merci

Chemin_Complet = "C:\.pdf"
Chemin = "C:\"
Nom Fichier = ".pdf"
x = 50

f894009 · Answer

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

mika5490 · Answer

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.

f894009 · Answer

Bonjour,

Je vais faire un test dans vos conditions: 49 pages a mettre en fichier

A+

f894009 · Answer

Re,

J'ai teste et pas de probleme.

Avez-vous regarde le contenu de Nb_Pages quand vous avez votre erreur ?????

A+

mika5490 · Answer

Re,

NB_Pages = 100

Bizzare..

f894009 · Answer

Re,

Bizzare.. Non, si vous n'allez pas jusqu'au bout de la feuille par la droite et que vous avez une page en deuxieme "rangee", excel multiplie par deux.

Il faut aussi faire attention a l'ordre d'impression des pages,voir dans mise en page.

A+

mika5490 · Answer

Re, 

Alors je n'ai pas de feuille a droite ni de deuxieme rangee.

En tout cas, cela fonctionne quand même, c'est juste que je voulais que ce soit parfait et ne pas avoir a forcer le débogage.

En attendant f894009, merci pour votre temps et vos réponses, c'est chouette de votre part :)

f894009 · Answer

Bonjour,

Pour eviter le blocage du programme, vous pouvez tester la cellule qui contient le nom de fichier, si vide pas de sauvegarde et fin du programme.

Cela ne resout pas le probleme de l'erreur, mais sortie normale du programme.

Bonne suite

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

Newsletters