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: 14 ]
Hors Ligne
Rapport   Haut 


Vous pouvez voir les sujets.
Vous ne pouvez pas débuter de nouveaux sujets.
Vous ne pouvez pas répondre aux contributions.
Vous ne pouvez pas éditer vos contributions.
Vous ne pouvez pas effacez vos contributions.
Vous ne pouvez pas ajouter de nouveaux sondages.
Vous ne pouvez pas voter en sondage.
Vous ne pouvez pas attacher des fichiers à vos contributions.
Vous ne pouvez pas poster sans approbation.

[Recherche avancée]


Qui consulte actuellement ce sujet ?   1 Utilisateur(s) anonymes