Export pdf [Résolu]

Signaler
Messages postés
7
Date d'inscription
mercredi 8 janvier 2020
Statut
Membre
Dernière intervention
20 mars 2020
-
vince0708_3121
Messages postés
7
Date d'inscription
mercredi 8 janvier 2020
Statut
Membre
Dernière intervention
20 mars 2020
-
Bonjour à tous.

Je vous explique ma demande.

J'ai un fichier excel avec 250 onglets (feuilles en bas de l'écran) qui correspond a du personnel par ex 1 feuille Matthieu, 1 feuille Pierre..... donc à l'impression 250 pages.... je voudrais extraire chacune de ces pages individuellement avec leur nom et en pdf pour les envoyer 1 par 1 par mail à la personne concernée, .Est ce possible?

Autrement dit je voudrais envoyer la feuille pierre en pdf à pierre, la feuille matthieu à matthieu mais n'avoir qu'une seule manip pour les enregistrer individuellement sous le nom qu'elle porte et en pdf...
Merci par avance.

4 réponses

Messages postés
6616
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
24 mars 2020
471
Bonjour,

comme ceci:

Option Explicit
Dim nom, chemin  As String
Dim sh As Worksheet
 Sub Save_onglet()
'Boucle sur toutes les feuille de calcul du classeur. Les onglets graphiques ne sont pas pris
'en compte.
'ThisWorkbook correspond à l'objet classeur contenant la macro
For Each sh In ThisWorkbook.Worksheets
nom = sh.Name
  Sheets(nom).Select
    Save_pdf
 Next
End Sub
Private Sub Save_pdf()
chemin = ActiveWorkbook.Path & "\" 'chemin du dossier destination à adapter
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        chemin & "\" & nom & ".pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        False
        MsgBox "Enregistrer" 'on peut supprimer
End Sub


Messages postés
7
Date d'inscription
mercredi 8 janvier 2020
Statut
Membre
Dernière intervention
20 mars 2020

Re....

Merci pour cette réponse, mais pour moi, total amateur sur excel, je ne comprends rien, désolé de cette ignorance certainement, mais là ça me parait de l'hebreux pour moi!
cs_Le Pivert
Messages postés
6616
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
24 mars 2020
471
Messages postés
7
Date d'inscription
mercredi 8 janvier 2020
Statut
Membre
Dernière intervention
20 mars 2020

Super! encore merci.

Je sentais que ça touché aux macros... Chise que je ne maitrise pas. je vais donc suivre vos tuto. Ensuite je fais un simple copié collé de votre premier message? c'est ça?
cs_Le Pivert
Messages postés
6616
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
24 mars 2020
471
Oui dans un module que vous aurez inséré.

Voir Ruban Insertion - Module

Ensuite l'associer à un bouton pour lancer l'opération, voir le lien

Ce n'est pas très compliqué en suivant les instructions dans les lien fournis

@+ Le Pivert
Messages postés
7
Date d'inscription
mercredi 8 janvier 2020
Statut
Membre
Dernière intervention
20 mars 2020

Genial merci ca fonctionne!!!!! Champagne!!! vous etes trop fort!