XL 2010 Séparer des onglets pour impression PDF dans un dossier

job75

XLDnaute Barbatruc

• 28 Août 2023

• #2

Bonjour,

Vous dites que vous voulez imprimer les 11 onglets "d'un seul coup" alors qu'entendez-vous par "séparé" ?

A+

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 28 Août 2023

• #3

S'il s'agit de créer 11 fichiers PDF séparés utiliser cette macro :

VB:

Sub PDF()
Dim liste, f
liste = Array("Feuil1", "Feuil2", "Feuil3", "Feuil4", "Feuil5", "Feuil6", "Feuil7", "Feuil8", "Feuil9", "Feuil10", "Feuil11")
For Each f In liste
    Sheets(f).ExportAsFixedFormat xlTypePDF, ThisWorkbook.Path & "\" & f & ".pdf", OpenAfterPublish:=False
Next
End Sub

Touches Alt+F11 pour aller dans VBA puis menu Insertion => Module et coller le code.

Revenir à la feuille de calcul et enregistrer le fichier au format .xlsm.

Touches Alr+F8 pour exécuter la macro.

 

Vote positif 0 Vote négatif

kiki29

XLDnaute Barbatruc

• 28 Août 2023

• #4

Salut, pour info, à télécharger puis consulter : Liste Contributions PDF

 

Vote positif 0 Vote négatif

T

tom.maisonshamster@gmail.

XLDnaute Nouveau

• 28 Août 2023

• #5

job75 à dit:

S'il s'agit de créer 11 fichiers PDF séparés utiliser cette macro :

VB:

Sub PDF()
Dim liste, f
liste = Array("Feuil1", "Feuil2", "Feuil3", "Feuil4", "Feuil5", "Feuil6", "Feuil7", "Feuil8", "Feuil9", "Feuil10", "Feuil11")
For Each f In liste
    Sheets(f).ExportAsFixedFormat xlTypePDF, ThisWorkbook.Path & "\" & f & ".pdf", OpenAfterPublish:=False
Next
End Sub

Touches Alt+F11 pour aller dans VBA puis menu Insertion => Module et coller le code.

Revenir à la feuille de calcul et enregistrer le fichier au format .xlsm.

Touches Alr+F8 pour exécuter la macro.

Cliquez pour agrandir...

Bonjour,
Merci beaucoup pour ce retour rapide,
Juste, pour l'activation de la macro j'ai ce message dans VB " erreur d'éxécution 5 " j'active le mode debogage et il surligne en jaune la ligne ci dessous ?
Sheets(f).ExportAsFixedFormat xlTypePDF, ThisWorkbook.Path & "\" & f & ".pdf", OpenAfterPublish:=False

Egalement le raccourci ALT GR + F8 ne fonctionne pas, l'activation se fait dans Excel ?
En vous remerciant par avance

 

Pièces jointes

• test2808.xlsm

  17.3 KB · Affichages: 7

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 28 Août 2023

• #6

Si vous êtes su MAC remplacez "\" par "/".

Et ce n'est pas ALT GR + F8 mais ALT + F8

 

Vote positif 0 Vote négatif

T

tom.maisonshamster@gmail.

XLDnaute Nouveau

• 28 Août 2023

• #7

Effectivement j'avais un raccourci Nvidia qui prenait le pas sur Excel, cependant j'ai cela qui s'affiche au lancement du éxécuter.

 

Vote positif 0 Vote négatif

T

tom.maisonshamster@gmail.

XLDnaute Nouveau

• 28 Août 2023

• #8

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 28 Août 2023

• #9

La macro du post #5 fonctionne correctement chez moi, je ne peux rien faire pour vous.

 

Vote positif 0 Vote négatif

T

tom.maisonshamster@gmail.

XLDnaute Nouveau

• 28 Août 2023

• #10

job75 à dit:

La macro du post #5 fonctionne correctement chez moi, je ne peux rien faire pour vous.

Cliquez pour agrandir...

Oui curieux ... la version d'excel est en rapport vous pensez? Car le message d'erreur dit clairement quil y a une erreur dans la ligne...

 

Vote positif 0 Vote négatif

kiki29

XLDnaute Barbatruc

• 28 Août 2023

• #11

Re, et si tu remplaces le Backslash par Application.PathSeparator ?

 

Vote positif 0 Vote négatif

T

tom.maisonshamster@gmail.

XLDnaute Nouveau

• 28 Août 2023

• #12

kiki29 à dit:

Re, et si tu remplaces le Backslash par Application.PathSeparator ?

Cliquez pour agrandir...

euhh la je suis perdu

 

Vote positif 0 Vote négatif

kiki29

XLDnaute Barbatruc

• 28 Août 2023

• #13

Re,,

Code:

Sheets(f).ExportAsFixedFormat xlTypePDF, _
                              ThisWorkbook.Path & Application.PathSeparator & f , _
                              OpenAfterPublish:=False

 

Dernière édition: 28 Août 2023

Vote positif 0 Vote négatif

T

tom.maisonshamster@gmail.

XLDnaute Nouveau

• 29 Août 2023

• #14

Bonjour,
J'ai toujours cette erreur ...

Petite précision, c'est excel 2007 et non 2010 je ne sais pas si cela change quelque chose...

 

Dernière édition: 29 Août 2023

Vote positif 0 Vote négatif

kiki29

XLDnaute Barbatruc

• 29 Août 2023

• #15

Re, ma réponse est la même que celle de Job75.

 

Vote positif 0 Vote négatif