problème au niveau du macro impression

yannick63430

XLDnaute Junior
bonsoir à tous,

je suis entrain de réaliser un fichier excel où j'ai plusieurs onglets.
j'ai utiliser le travail de PascalXLD (merci encore)
Lien supprimé
pour des impressions.
j'ai fait quelque modifications pour que cela s'adapte à mon projet.
cependant je bloque sur une nouvelle macro :

Private Sub CommandButton5_Click()

Dim x As Byte
Dim verif As Boolean
verif = False

For x = 0 To Me.ListBox1.ListCount - 1
If Me.ListBox1.Selected(x) = True Then
verif = True
Sheets(Me.ListBox1.List(x)).Activate
SavePdf
End If
Next
If verif = False Then MsgBox "Pas de selection pour impression"
End Sub

en fait je voudrais que cette macro (lancé via le bouton new version du userform imprimer) lance ma seconde macro, ici SavePdf (qui imprime en pdf de façon spécifique) pour tous mes sélection.
le problème est que dès qu'il au moins deux onglets sélectionnés : ERREUR
par contre aucun problème si je le fais un par un.

Pour infos, à la base j'avais l'écriture suivante :
Sheets(Me.ListBox1.List(x)).PrintOut , copies:=1, ActivePrinter:="PDFCreator"
Mais elle ne convient plus à mon projet

En espérant avoir été clair.
Merci d'avance

Cordialement
Yannick

PS : le bouton Données pr save déterminer le nom de l'onglet et le chemin d'accès pour enregistrer!!!!!!!!!!
 

Pièces jointes

  • D - DA.zip
    38.5 KB · Affichages: 35

yannick63430

XLDnaute Junior
Re : problème au niveau du macro impression

bonjour JNP,

j'ai déjà installé ce module pour enregistrer en pdf via excel mais cette macro peut permet de choisir les onglets à imprimer via une liste des onglets mise à jour à chaque ouverture.
A moins de ne pas avoir compris ton conseil, mon problème se situe dans l'enregistrement des onglets en même temps.
Peut-on au sein de la macro savepdf, lui dire qu’après un enregistrement en pdf, elle ferme l'imprimante virtuelle et recommence avec le prochain onglet sélectionné.
je ne sais pas si c'est la solution mais c'est peut-être une piste

Merci d'avance

Cordialement
yannick

ps: la macro d'impression
Private Sub CommandButton5_Click()

Dim x As Byte
Dim verif As Boolean
verif = False

For x = 0 To Me.ListBox1.ListCount - 1
If Me.ListBox1.Selected(x) = True Then
verif = True
Sheets(Me.ListBox1.List(x)).Activate
SavePdf
End If
Next
If verif = False Then MsgBox "Pas de selection pour impression"
End Sub
 

Membres actuellement en ligne

Aucun membre en ligne actuellement.

Statistiques des forums

Discussions
283 465
Messages
1 852 013
Membres
151 502
dernier inscrit
tyr
Haut Bas