Générer PDF pour chaque ligne de données

Bonjour,

Je me tourne vers ce forum puisque je bloque sur le codage VBA que j'aimerais réaliser.

Mon but est de générer 1 PDF pour chaque ligne de ma sheet "données", avec les informations listées propres à chaque facture.

J'ai tenté de reprendre les formules proposées dans ce forum mais n'arrive pas à les faire fonctionner. Pourriez-vous m'éclairer, s'il-vous-plaît ?

Bonjour et

Il faudra indiquer l'emplacement reseau sur

DosFacture = "Z:\Facture\"

Private Sub GenererFacture_Click()
    Application.ScreenUpdating = False

DosFacture = "Z:\Facture\"

'derniere ligne de facture a generer
DerLig = Sheets("Données").Cells(Rows.Count, 2).End(xlUp).Row
    'pour chaque facture
    For LigPDF = 4 To DerLig
        'N° facture
        Sheets("Facture").Cells(36, 3).Value = Sheets("Données").Cells(LigPDF, 4).Value
        'Name Entreprise
        Sheets("Facture").Cells(25, 7).Value = Sheets("Données").Cells(LigPDF, 6).Value
        'Address
        Sheets("Facture").Cells(26, 7).Value = Sheets("Données").Cells(LigPDF, 8).Value
        'Postal code
        Sheets("Facture").Cells(27, 7).Value = Sheets("Données").Cells(LigPDF, 10).Value
        'Titre du PDF
        TitreDuPDF = Sheets("Données").Cells(LigPDF, 2).Value
        'enregistrement pdf
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=DosFacture & TitreDuPDF & ".pdf", _
        Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
    Next LigPDF
    MsgBox ("Enregisrement Facture fait")

    Application.ScreenUpdating = True
End Sub

A+

Merci beaucoup pour votre retour et pour l'accueil ! :)

C'était très clair et facile à reprendre, le problème est résolu !

Merci pour votre temps :D