Macro Excel générant un fichier PDF pour chaque ligne d'une feuille excel

Bonjour à tous,

Tout est dit dans le titre.

Ne me demandez surtout pas la raison, c'est une obligation interne pour suivi de documents.
Imaginons un tableau de 4 colonnes avec X lignes
Il faut que la macro génère X fichiers PDF comportant chacun une seule ligne avec les 4 cellules de la ligne.

Merci de ce que vous pourrez faire...

Bonjour,

Après une courte recherche, je pense que tu devrais utiliser utiliser un logiciel type PDF creator, pour pouvoir imprimer en PDF, avec une formule du type

Code:

---

Activesheet.("PLAGE").PrintOut Copies:=1, ActivePrinter:="PDFCreator"

---

En remplaçant ("PLAGE") par les 4 cellules à mettre sur le PDF et en faisant une boucle, sur toutes les lignes à mettre en PDF, et "PDFCreator" par le nom de l'imprimante virtuelle de PDFcreator.

Bien cordialement,

Mr Poulpe

Commence par découper ta feuilles en pages en insérant des sauts de page entre chaque ligne.
Voir la méthode HPageBreack de l'objet Worksheet.

Si tu veux avoir toutes tes pages dans un même PDF (avec une ligne par page), il te suffit d'utiliser les objets de PDFCreator.
Récupère PDFCreator sur un site fiable et installe-le.
Dans son répertoire d'installation, tu trouveras plusieurs exemples de code pour l'utiliser en VBA.

Si tu veux avoir un fichier par page, il suffit de les imprimer une par une, en les enchainant avec une boucle For to limitée au nombre de lignes non vides.
Il suffit de mettre le numéro de ligne dans les deux premiers paramètres de ta commande PrintOut qui génère tes PDF.

Merci Poulpe, je regarde ça

En parallèle, une macro qui marche :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Sub EnregLignePDF() Dim i%, n%, f% With ActiveSheet n = .Range("A" & .Rows.Count).End(xlUp).Row .Rows("1:" & n).Hidden = True For i = 3 To n .Rows(i).Hidden = False f = f + 1 .ExportAsFixedFormat xlTypePDF, ThisWorkbook.Path & "\Enreg " & f & ".pdf" .Rows(i).Hidden = True Next i .Rows.Hidden = False End With End Sub

---

En remplaçant Enreg par le nom générique à donner aux pdf.
Les PDF seront enregistrés dans le dossier contenant le classeur excel.

Je ne vois pas l'intérêt de mettre dans un code un "With ActiveSheet" :koi:

Essaye :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Sub EnregLignePDF() Dim i%, n%, f% n = Range("A" & Rows.Count).End(xlUp).Row Rows("1:" & n).Hidden = True For i = 3 To n Rows(i).Hidden = False f = f + 1 ExportAsFixedFormat xlTypePDF, ThisWorkbook.Path & "\Enreg " & f & ".pdf" Rows(i).Hidden = True Next i Rows.Hidden = False End Sub

---

Deux ligne et quelques "." en moins et ça marche aussi bien.:mrgreen:

je ne sais pas mais ca marche ! :D

Citation:

---

Envoyé par ZenJP

je ne sais pas

---

Recopier un code récupéré sans chercher à le comprendre, c'est la meilleure façon de stagner.