Pages excel dans feuille de calcul vers pdf avec nom défini
mika5490
-
f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention -
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.
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.
A voir également:
- Pages excel dans feuille de calcul vers pdf avec nom défini
- Lire le coran en français pdf - Télécharger - Histoire & Religion
- Calcul moyenne excel - Guide
- Feuille de pointage excel - Télécharger - Tableur
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
24 réponses
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 ?????
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
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:
A+
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.
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.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Re,
tout depend si c'est toujours les memes pages ou pas et si vous n'avez que deux pages dans votre feuille!!!!!
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 !
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 !
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.
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,
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
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+
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
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
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
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+
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
Merci
Chemin_Complet = "C:\.pdf"
Chemin = "C:\"
Nom Fichier = ".pdf"
x = 50
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.
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.