XL 2013 [RESOLU] Imprimer chaque feuille dans un fichier différent

Yurperqod

XLDnaute Occasionnel

• 7 Septembre 2016

• #2

Bonjour le forum

Pour créer un fichier PDF par feuille dans un classeur

VB:

Sub Test()
Dim Chemin As String
Dim Feuille As Worksheet
Chemin = "C:\TEMP\" ' mettre le nom du dossier où enregistrer les PDF
For Each Feuille In Worksheets
Feuille.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin & Feuille.Name & ".pdf", Quality:= _
        xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, _
        OpenAfterPublish:=False
Next
End Sub

Pour l'envoi par mail, parcourir les exemples de macros VBA qu'on peut trouver sur le forum à ce sujet.

 

Vote positif 0 Vote négatif

troopers87

XLDnaute Occasionnel

• 7 Septembre 2016

• #3

Salut Yurperqod et merci pour ton intérêt,

la macro me renvoit une erreur de procédure dans le bloc "Feuille.Export..."

VB:

Sub Test()
Dim Chemin As String
Dim Feuille As Worksheet
Chemin = "C:\Users\camil\Desktop\Nouveau dossier" ' mettre le nom du dossier où enregistrer les PDF
For Each Feuille In Worksheets
Feuille.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin & Feuille.Name & ".pdf", Quality:= _
        xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, _
        OpenAfterPublish:=False
Next
End Sub

Aurais-tu une idée de la cause ?

 

Vote positif 0 Vote négatif

jecherche

XLDnaute Occasionnel

• 7 Septembre 2016

• #4

Bonjour,
Un chemin doit toujours se terminer par un \
Chemin = "C:\Users\camil\Desktop\Nouveau dossier\"


Jecherche

 

Vote positif 0 Vote négatif

troopers87

XLDnaute Occasionnel

• 7 Septembre 2016

• #5

Bonjour Jecherche et merci pour ton aide !

Ah oui, effectivement ça règle en partie le problème !
En revanche, par la suite, je reçois un nouveau message me disant "Argument ou appel de procédure incorrect" :/

 

Vote positif 0 Vote négatif

jecherche

XLDnaute Occasionnel

• 7 Septembre 2016

• #6

Bonjour,
J'ai testé ton code et il fonctionne bien chez moi.
Le chemin est bon ? Il existe bien ?

Je cherche

 

Vote positif 0 Vote négatif

troopers87

XLDnaute Occasionnel

• 7 Septembre 2016

• #7

Au temps pour moi ! J'ai fait le test directement sur un énorme fichier et je pense que c'est pour cela que ça ne collait pas. J'ai tenté avec un fichier de test : aucun souci.

Je me demande maintenant si on ne pourrait pas imprimer les feuilles sélectionnées, par exemple ?

 

Vote positif 0 Vote négatif

jecherche

XLDnaute Occasionnel

• 7 Septembre 2016

• #8

Bonjour,
À tester ...

Code:

Option Explicit

Sub Sample()
Dim Feuille As Worksheet
Dim n As Long ', i As Long
Dim Chemin As String

Chemin = "C:\Users\camil\Desktop\Nouveau dossier\" ' mettre le nom du dossier où enregistrer les PDF

n = 0
For Each Feuille In ActiveWindow.SelectedSheets
   Feuille.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin & Feuille.Name & ".pdf", Quality:= _
        xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, _
        OpenAfterPublish:=False
Next
End Sub

Jecherche

 

Vote positif 0 Vote négatif

troopers87

XLDnaute Occasionnel

• 7 Septembre 2016

• #9

Hum, je ne connais pas "Option Explicite", qu'est-ce que ça signifie ?

Dans tous les cas, ça fonctionne parfaitement, je te remercie beaucoup ! Je suis vraiment admiratif de la facilité avec laquelle vous produisez ces codes Bravo !

 

Vote positif 0 Vote négatif

jecherche

XLDnaute Occasionnel

• 7 Septembre 2016

• #10

Bonjour,

Option Explicit est une commande placée en début de module VBA. Elle vous oblige à déclarer toutes vos variables dans le code du module. Ça peut paraître un peu contraignant, mais il y a aussi des avantages :

• votre code sera plus structuré et plus “propre” ;
• vous pourrez détecter certaines erreurs plus facilement.

Je cherche

 

Vote positif 0 Vote négatif

Yurperqod

XLDnaute Occasionnel

• 8 Septembre 2016

• #11

Bonjour le forum

J'ai bien mis le \ final dans ma macro du message N° 2

Chemin = "C:\TEMP\" ' mettre le nom du dossier où enregistrer les PDF

Cliquez pour agrandir...

Merci à jecherche d'avoir pris la suite.

 

Vote positif 0 Vote négatif

troopers87

XLDnaute Occasionnel

• 8 Septembre 2016

• #12

Oui, oui, tout à fait, l'erreur venait de moi

 

Vote positif 0 Vote négatif

troopers87

XLDnaute Occasionnel

• 8 Septembre 2016

• #13

Oula ! Juste avant d'envoyer mon mail, je me suis rendu compte qu'en fait :
- Excel me créait bien un fichier .pdf par commercial,
- Mais que chaque fichier contenait le contenu de toutes les feuilles sélectionnées !

Gros problème pour ma part ^^

 

Vote positif 0 Vote négatif

Yurperqod

XLDnaute Occasionnel

• 8 Septembre 2016

• #14

Ma macro créait bien un PDF par feuille
Si il faut exclure des feuilles dans la boucle, il faudrait le nom des feuilles à exclure.

 

Vote positif 0 Vote négatif

troopers87

XLDnaute Occasionnel

• 8 Septembre 2016

• #15

Arf, j'ai peur qu'on ne se comprenne pas (difficile sans discuter de vive voix ^^).

Voici en pièce jointe un fichier d'exemple assez simple je pense pour que ce soit plus explicite.

 

Pièces jointes

• Classeur1.xlsm

  24.5 KB · Affichages: 54

Vote positif 0 Vote négatif