'A INSERER DANS LE MODULE DE LA FEUILLE PUBLIPOSTAGE
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
On Error Resume Next
Application.DisplayAlerts = False
With Sheets("Données").Range("e2:e50")
Set cel = .Find(Range("b3"), , xlValues)
If Not cel Is Nothing Then
Range("b2") = cel.Offset(0, -1)
Range("b4") = cel.Offset(0, 1)
Range("b5") = cel.Offset(0, -2)
Range("b7") = cel.Offset(0, -4)
Range("b8") = cel.Offset(0, -3)
Range("b9") = "C-0" & cel.Offset(0, 0).Row
End If
End With
If Range("b2") = "" Then Range("b2:b9").ClearContents
Application.EnableEvents = True
End Sub
Sub enrg_pdf()
Dim Chemin$, Nom$
Chemin = "C:\Users\Christophe\Desktop\Publipostage\"
Nom = Sheets("Publipostage").Range("b3") & " " & Sheets("Publipostage").Range("b4")
Sheets("Publipostage").Activate
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Chemin & Nom & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
From:=1, To:=1, OpenAfterPublish:=False
End Sub