Merci !!!!!!!
je cherchais absolument pas au bonne endroit
Finalement ça ne règle pas mon problème, j'avais du le modifier pour que cela fonctionne.
Sur le classeur que j'utilise, j'ai plusieurs feuille de calcul que je dois pouvoir imprimer de façon indépendante avec des noms de fichier différents. en copiant la macro pour faire préparer une autre génération VBA me renvoie a une erreur 1004 se qui n'arrive pas avec FileName:=PDFFullName, _
Il doit me manquer quelque-chose
Sub Impression_AT_DE_PRESENCE()
Dim PDFFullName As String
Dim WBPath As String
Dim Dot As Integer
With Worksheets("AT_DE_PRESENCE")
.Activate
Application.ScreenUpdating = False
WBPath = ActiveWorkbook.Path
For Dot = 1 To 12 Step 1
Sheets("AT_DE_PRESENCE").Range("x16").Value = Sheets("AT_DE_PRESENCE").Cells(Dot, 1).Value
PDFFullName = Sheets("AT_DE_PRESENCE").Range("x16") & " - " & Sheets("Renseignement").Range("B3") & " - AT de présence - " & Sheets("AT_DE_PRESENCE").Range("O18") & " - " & Sheets("AT_DE_PRESENCE").Range("M27") & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
FileName:=WBPath & "/" & PDFFullName, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
Next Dot
MsgBox "Fichier """ & "Document généré dans le dossier " & ActiveWorkbook.Path & """ enregistré !"
End With
End Sub