Macro enregistrer en pdf

Résolu

Pdf

s21imon06 Messages postés 91 Date d'inscription Statut Membre Dernière intervention -
s21imon06 Messages postés 91 Date d'inscription Statut Membre Dernière intervention - 4 nov. 2015 à 09:31

Bonjour,
Je cherche une macro qui me permet d'enregistrer chaque feuille dans plusieurs fichiers pdf (un fichier pdf par feuille) dont le nom du fichier pdf serait le nom de la feuille dans le classeur. Pour etre plus clair, quand j'appuye sur un bouton, chaque feuille s'enregistre dans plusieurs fichier pdf dans un dossier (toujours le même : mes documents) avec comme nom le nom de la feuille.
Si quelqu'un pourrait m'aider c'est pour mon stage, je galère un peu ...
merci

A voir également:

Macro pdf
Lire le coran en français pdf - Télécharger - Histoire & Religion
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Save as pdf office 2007 - Télécharger - Bureautique
Télécharger dictionnaire larousse pdf gratuit - Télécharger - Dictionnaires & Langues
Notices gratuites pdf - Guide

5 réponses

Réponse 1 / 5

cs_Le Pivert Messages postés 7904 Date d'inscription Statut Contributeur Dernière intervention 729

Bonjour,

Il suffit de se servir de l'enregistreur de macro et de procéder à l'enregistrement en PDF. Tu auras ton code, il te suffira de modifier les chemins et les noms pour chaque enregistrement.

s21imon06 Messages postés 91 Date d'inscription Statut Membre Dernière intervention 2

Je n'y arrive pas, ça me dit qu'il y a une erreur. Je suis un débutant en macro. Existe un code dejà généré ?

Réponse 2 / 5

cs_Le Pivert Messages postés 7904 Date d'inscription Statut Contributeur Dernière intervention 729

Y a qu'a demander:

Option Explicit
Dim nom, chemin  As String
Dim ctr
Private Sub CommandButton1_Click()
For ctr = 1 To Sheets.Count
   Sheets(ctr).Select
   nom = Sheets(ctr).Name 'parcourt les feuilles
    Save_pdf
 Next
End Sub
Private Sub Save_pdf()
chemin = "C:\Users\...\Documents\" '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

s21imon06 Messages postés 91 Date d'inscription Statut Membre Dernière intervention 2

Désolé d'encore vous embêter mais lorsque que je lance la macro cela me met "Erreur d'exécution 1004 : Document non enregistré. Le document est peut-être ouvert ou une erreur s'est produite lors de l'enregistrement."
Je comprends pas car je suis obligé d'avoir le document ouvert si je veux lancer la macro pour l'enregistrer

Réponse 3 / 5

cs_Le Pivert Messages postés 7904 Date d'inscription Statut Contributeur Dernière intervention 729

D'où lances-tu ta macro?

s21imon06 Messages postés 91 Date d'inscription Statut Membre Dernière intervention 2

D'un bouton nommé "ENREGISTRER" créé sur la première feuille. J'ai changé le nom du bouton dans la macro. Elle se lance parfaitement mais ça affiche ça

Réponse 4 / 5

cs_Le Pivert Messages postés 7904 Date d'inscription Statut Contributeur Dernière intervention 729

J'ai essayer a partir d'un bouton sur la feuille, cela fonctionne.
Vérifier le chemin de l'enregistrement

s21imon06 Messages postés 91 Date d'inscription Statut Membre Dernière intervention 2

Faut-il que je nomme ma macro d'un nom spécifique ?
Car quand je fais afficher les macro après ça ne l'affiche plus dans la fenetre mais il faut que jetape son nom pour que ça m'affiche modifier, executer etc ...

s21imon06 Messages postés 91 Date d'inscription Statut Membre Dernière intervention 2

Et elle ne s'affiche pas à chaque fois que je met le code que vous m'aviez donné. Sinon tout si j'en refais une différentes elle s'affiche

s21imon06 Messages postés 91 Date d'inscription Statut Membre Dernière intervention 2

Le chemin d'enregistrement est bon

Réponse 5 / 5

cs_Le Pivert Messages postés 7904 Date d'inscription Statut Contributeur Dernière intervention 729

C'est un bouton formulaire, il faut faire un clic droit dessus, affecter une macro
Ensuite mettre ceci dans le module:

Option Explicit
Dim nom, chemin  As String
Dim ctr
Sub Bouton1_Clic()'adapter nom bouton
For ctr = 1 To Sheets.Count
   Sheets(ctr).Select
   nom = Sheets(ctr).Name 'parcourt les feuilles
    Save_pdf
 Next
End Sub
Private Sub Save_pdf()
chemin = "C:\Users\...\Documents\" '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

s21imon06 Messages postés 91 Date d'inscription Statut Membre Dernière intervention 2

Encore désolé mais ça me met exactement le même message.
Le point positif est que ça règle les autres problèmes ....

s21imon06 Messages postés 91 Date d'inscription Statut Membre Dernière intervention 2

AAAAAAAAAAAH NON ! CA MARCHE !
Merci enormement à vous pour votre patience !

Discussions similaires

memoire de fin d'etude en réseaux et télécom

Cours de preparation comptia A+ en francais

Lire un fichier PDF en ligne sans l'enregistrer

Comment enregistrer une partie d'un fichier PDF

Cocher des cases réponses sur un document PDF

Insérer un pdf de plusieurs pages dans word.

Forum Excel

Questions et réponses sur Excel