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

ibru

XLDnaute Nouveau
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

capture 3.JPG

Capture 4.JPG

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

Robert

XLDnaute Barbatruc
Repose en paix
Bonjour Ibru, bonjour le forum,

L'autre jour je crève... Je prends un photo et l'amène à mon garagiste. Il s'est foutu de moi en me disant que c'était de la roue dont il avait besoin et pas d'une photo. Quel grossier personnage !...
 

Discussions similaires

Réponses
22
Affichages
1 K