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