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

[troopers87]

Bonjour à tous,

Dans mon fichier Excel, j'ai une feuille Excel par commercial.
Je dois leur envoyer leur propre feuille, sans les autres tous les mois, et au format pdf.
Comme je suis flemmard, je n'ai pas envie d'enregistrer 15 fois le même fichier en masquant les feuilles des autres commerciaux. Je me dis qu'il existe certainement une combine, éventuellement en VBA, pour permettre cela.

Merci d'avance pour votre aide !

 

[Yurperqod]

Bonjour le forum

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

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.

 

[troopers87]

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

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

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 ?

 

[jecherche]

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


Jecherche

 

[troopers87]

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" :/

 

[jecherche]

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

Je cherche

 

[troopers87]

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 ?

 

[jecherche]

Bonjour,
À tester ...

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

 

[troopers87]

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 !

 

[jecherche]

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

 

[Yurperqod]

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

Merci à jecherche d'avoir pris la suite.

 

[troopers87]

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

 

[troopers87]

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

 

[Yurperqod]

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.

 

[troopers87]

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.