Discussion :

[ohlol]

Bonjour,

J'utilise ExportAsFixedFormat dans une boucle pour couvertir un worksheet en pdf.
Mon worksheet à 4 pages et aucun shape.

Au bout de 354 pdfs créés, je me retrouve avec la page 4 blanche.

Les bons PDF font 323 ko, et les mauvais 299ko.
Le derniers pdf avec aucune page blanche fait 328ko.

Si je relance la macro, les pdf font 299ko avec la page 4 blanche.
Si je ferme Excel et relance la macro, j'ai les 354 1er pdfs qui font 323ko.

Je ne fais aucune modification sur le worksheet, juste je change le nom du pdf.

On dirait un problème de mémoire, seriez-vous comment faire pour ne pas flinguer ma mémoire ? Utiliser une autre méthode pour créer un pdf ?

Merci à vous pour votre aide.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
Public Sub Edition_Enquetes_x()
''
'' Variable
''
Dim i As Integer
Dim ws As Worksheet
  ''
  '' Init
  ''
  With Application
    .EnableEvents = False
    .ScreenUpdating = False
    For i = 1 To 357
      Set ws = ThisWorkbook.Sheets(2)
      Call ws.ExportAsFixedFormat(xlTypePDF, "zTest_" & i & ".pdf", xlQualityStandard, True, False, OpenAfterPublish:=False)
      Set ws = Nothing
    Next i
    .ScreenUpdating = True
    .EnableEvents = True
  End With
End
End Sub

[Jean-Philippe André]

Salut,
en lisant ton code, peux-tu nous confirmer que tu effectues 357 export pdf de la feuille 2

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set ws = ThisWorkbook.Sheets(2)

Si c'est le cas, pourquoi ne pas faire un seul export + dupliquer les fichiers ?