bonjour
j'ai ce macro excel pour exporter de pdf pour chaque employés
en fait les pdf exportés comportent de pages blanches sans aucune données
ect quelqu'un peut l'aider pour apporter de modification pour que la génération de pages pdf sera que pour les pages qui contient des données
merci beaucoup
Sub createPdf()
Dim Dossier
Dim CheminFichier
Dim ws As Worksheet

Dossier = "situation"
CheminFichier = ThisWorkbook.Path & "/" & Dossier & "/"
Set ws = Sheets("filtre")
Application.ScreenUpdating = False
ActiveWorkbook.RefreshAll

On Error Resume Next
If CheminFichier = True Then
GetAttr (CheminFichier) And vbDirectory
Else
MkDir CheminFichier
End If
For ligne = 4 To Sheets("TCD").Range("A5000").End(xlUp).Row
ws.Range("D4").Value = Sheets("TCD").Cells(ligne, 1)
ws.ExportAsFixedFormat xlTypePDF, CheminFichier & ws.Range("D4").Value & ".pdf", _
xlQualityStandard, True, False, 1, , False
Next ligne

Application.ScreenUpdating = True

End Sub