Discussion :

[ZenJP]

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

[Mr Poulpe]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Menhir]

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.

[ZenJP]

Merci Poulpe, je regarde ça

En parallèle, une macro qui marche :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Menhir]

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

Essaye :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[ZenJP]

je ne sais pas mais ca marche !

[Menhir]

je ne sais pas

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