problème au niveau du macro impression

[yannick63430]

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!!!!!!!!!!

 

[yannick63430]

Re : problème au niveau du macro impression

bonjour à tous,


est-ce que quelqu'un à des idées pour mon petit problème?
Malgré mes recherches, je n'arrive toujours pas à m'en défaire

merci d'avance
Cordialement
Yannick

 

[JNP]

Re : problème au niveau du macro impression

Bonjour Yannick63430 ,
Vu que tu es sous 2007, il te suffit de charger le complément qui va bien et tu pourras directement Enregistrer sous en PDF .
Bon courage

 

[yannick63430]

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

 

[JNP]

Re : problème au niveau du macro impression

Re ,
Essaie de modifier avec

Sheets(Me.ListBox1.List(x)).Select

ton problème vient certainement de la multi sélection.
A +