Imprimer fiche pdf / boucle

Bonjours

J'aimerai imprimer plusieurs fiches PDF à partir du même onglet mais avec des données différentes.

Le but étant d'imprimer les fiches pour tous les noms dont l'activité est "1".

J'ai réussi à le faire "manuellement" mais, je me demandais si il y avait une autre façon de le faire plus dynamique, de sorte à ce que lorsque la liste des noms changent, la macro s'adapte.

Je ne sais pas si je suis assez clair dans mes explications

Merci d'avance pour votre aider

Ardoudoux

Bonjour,

Un essai ... utiliser le bouton "Imprimer en .PDF".

Il y a plusieurs impressions en pdf, j'ai mis "OpenAfterPublish:=False"

ric

Bonjour

voila une boucle pour ton fichier

Sub FicheAct()
Set Sh = Feuil2
Feuil1.Select
Application.ScreenUpdating = False
    x = ThisWorkbook.Path
 Derligne = Sh.Range("A" & Rows.Count).End(xlUp).Row
    For L = 3 To Derligne
        If Sh.Range("B" & L).Value = 1 Then
            Range("B5").Value = Sh.Range("A" & L).Value
            Range("B6").Value = Sh.Range("B" & L).Value
            Range("B7").Value = DateValue(Now)
            Range("B10").Value = Sh.Range("C" & L).Value
            Range("B11").Value = Sh.Range("D" & L).Value
                ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
            x & "\" & Range("B5") & "_" & Format(Range("B7"), "yyyy-mm") & "_" & Range("B6") & ".pdf", Quality:=xlQualityMinimum, _
            IncludeDocProperties:=True, IgnorePrintAreas:=False, From:=1, To:=1, _
            OpenAfterPublish:=False
        End If
    Next
End Sub

A voir si ca te va

A+

Maurice

C'est parfait c'est exactement ce que je voulais !

Merci !!