XL 2016 vba exporter plusieurs feuilles générées par une liste déroulante

Bonjour,

J’essaie d’exporter plusieurs feuilles « Bulletin » générées par une liste déroulante en I1 liée à la feuille « ELEVES » mais j’obtiens systématiquement le même message d’erreur.


Voici les codes qui génèrent l'erreur l'objet s'est déconnecté de ses clients

Sub Image2_Cliquer()

Dim Liste As String, A As Range
With Sheets(« Bulletin »)
Dim NomDossier As String
Dim CheminDossier As String
Liste = .Range(« I1 »).Validation.Formula1
Liste = Right(Liste, Len(Liste) - 1)
For Each A In Range(Liste)
.[I1] = A.Value

On Error GoTo 1

'Nom de dossier
NomDossier = « Bulletin » & Range(« C1 ») & " _ " & Range(« G1 »)
CheminDossier = « D:\Bulletin\BULLETIN 1\ » & NomDossier & « »

If NomDossier = « » Then Exit Sub

'Enregistrement au format PDF

Sheets(« Bulletin »).ExportAsFixedFormat Type:=xlTypePDF, Filename:=CheminDossier & « Bulletin » & NomDossier & « .pdf », quality:= _
xlQualityStandard, includedocproperties:=True, ignoreprintareas:=False, from:=1, to:=1, openafterpublish:=False
1
Next A
End With
End Sub

Sub Image3_Cliquer()

Dim Liste As String, A As Range
With Sheets(« Bulletin »)
Liste = .Range(« I1 »).Validation.Formula1
Liste = Right(Liste, Len(Liste) - 1)

For Each A In Range(Liste)
.[I1] = A.Value
'.PrintPreview
nom = « Bulletin » & Range(« C1 ») & " _ " & Range(« G1 »)
chemin = « D:\bulletin\BULLETIN 1 \» & nom & « »

Sheets(« Bulletin »).ExportAsFixedFormat Type:=xlTypePDF, Filename:=chemin & nom & « .pdf », _
quality:=xlQualityStandard, includedocproperties:=True, ignoreprintareas:=False, openafterpublish:=False

Next A
End With
End Sub



Quelqu’un pourrait-il m’aider?
Merci d’avance