Bonjour,
Néophyte en VBA, j'ai réussi à bricoler/récupérer un code pour pouvoir enregistrer en pdf un ensemble de feuilles (une quarantaine) selon certaines conditions. Mon problème est que l'enregistrement se déroule bien jusqu'à 23 enregistrements et me renvoie une erreur 1004 que je ne comprends pas vu que des enregistrements ont été correctement fait.
Voici le code actuel
Toute aide est la bienvenue, soit pour une amélioration/simplification du code, soit pour des orientations sur des sujets qui traitent de la situation (le sujet est vaste et je n'ai pas eu le temps de tout fouiller).
Merci de votre lecture
Néophyte en VBA, j'ai réussi à bricoler/récupérer un code pour pouvoir enregistrer en pdf un ensemble de feuilles (une quarantaine) selon certaines conditions. Mon problème est que l'enregistrement se déroule bien jusqu'à 23 enregistrements et me renvoie une erreur 1004 que je ne comprends pas vu que des enregistrements ont été correctement fait.
Voici le code actuel
VB:
Sub PDF()
For i = 4 To Worksheets.Count
If Worksheets(i).Name <> "Suivi" And Worksheets(i).Name <> "Menu" And Worksheets(i).Name <> "Fiche MODELE" Then
Worksheets(i).PageSetup.PrintArea = "$A$1:$H$21"
Worksheets(i).ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\Users\za\Documents\" & Worksheets(i).Range("F3").Value, quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
End If
Next i
End Sub
Toute aide est la bienvenue, soit pour une amélioration/simplification du code, soit pour des orientations sur des sujets qui traitent de la situation (le sujet est vaste et je n'ai pas eu le temps de tout fouiller).
Merci de votre lecture