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

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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

Effectivement j'avais un raccourci Nvidia qui prenait le pas sur Excel, cependant j'ai cela qui s'affiche au lancement du éxécuter.
1693225775568.png
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
16
Affichages
2 K
Retour