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

[tom.maisonshamster@gmail.]

Bonjour,
Etant complètement novice dans excel sur les formules et réalisation de macro,

Dans l'idée j'aurai 11 onglets que je souhaite séparé en reprenant le nom de l'onglet quand je veux les imprimer en pdf en un seul coup.

Et également si c'est une macro, comment fait on pour l'intégrer dans le excel ?
En vous remerciant par avance.

 

[job75]

Bonjour,

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

A+

 

[job75]

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

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.

 

[kiki29]

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

 

[tom.maisonshamster@gmail.]

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

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.

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

 

[job75]

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

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

 

[tom.maisonshamster@gmail.]

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

 

[tom.maisonshamster@gmail.]

 

[job75]

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

 

[tom.maisonshamster@gmail.]

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

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

 

[kiki29]

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

 

[tom.maisonshamster@gmail.]

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

euhh la je suis perdu

 

[kiki29]

Re,,

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

 

[tom.maisonshamster@gmail.]

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

 

[kiki29]

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