Forums XLPages

Tous les messages (ibru)

exporter pdf plusieurs feuilles générées par une liste déroulante
#1
Débutant XLPages

Inscription: 18/04/2020
De BELGIQUE

Messages: 1

Système d'exploitation:
pc
Version Excel utilisée:
2016
Posté le : 18-04 18h35

Sub Image2_Cliquer()

Dim Liste As String, A As Range
With Sheets("Bulletin")
Dim nom As String
Dim chemin 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
nom = "Bulletin" & Range("C1") & " _ " & Range("G1")
chemin = "D:\Bulletin\BULLETIN_1" & nom

If nom = "" Then Exit Sub

'Enregistrement au format PDF

Sheets("Bulletin").ExportAsFixedFormat Type:=xlTypePDF, Filename:=chemin & ".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")
Dim nom As String
Dim chemin As String
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 & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

Next A
End With
End Sub

Bonjour, J'essaie d'exporter en PDF plusieurs feuilles "Bulletin" générées par une liste déroulante en I1 reprenant les numéros des élèves dans sheets "ELEVES" A3 à A32 mais j'ai systématiquement la même erreur : l'objet s'est déconnecté de ses clients

 

 

 

 

Pièce jointe:
xlsm Classeurtest.xlsm   [ Taille: 81.39 Ko - Téléchargements: 22 ]
Hors Ligne
Rapport   Haut