VBA impression feuilles via formulaire (choix possibles)

[grosquick59]

Bonjour,
je souhaite automatiser l'impression de plusieurs feuilles du classeur via un formulaire.
Le formulaire permet de choisir les feuilles que l'on veut imprimer.
J'ai trouvé la macro suivante mais je n'arrive pas à l'appliquer chez moi :

Private Sub CommandButton1_Click()
Dim i as Integer
UserForm1.Hide
With ListBox1
  For i = 0 To .ListCount - 1
    If .Selected(i) Then Sheets(.List(i)).PrintOut 'Preview:=True
  Next
End With
UserForm1.Show
End Sub

Private Sub UserForm_Initialize()
Dim s As Object
ListBox1.MultiSelect = fmMultiSelectExtended
For Each s In Sheets
  ListBox1.AddItem s.Name
Next
End Sub

Dès que je souhaite lancer cette macro via un bouton j'ai un message d'erreur 434 relatif à cette ligne de la macro :

For i = 0 To .ListCount - 1

En pièce jointe le fichier d'origine qui fonctionne pour avoir un aperçu.

 

[Staple1600]

Re : VBA impression feuilles via formulaire (choix possibles)

Bonjour


La réponse était là qui t'attendait 😉
https://www.excel-downloads.com/threads/macro-vba-choix-des-onglets-a-imprimer.137537/

Job75: si tu passes par là, peux-tu aider Grosquick59, stp ?

Mais pas tarder à aller au dodo
(Grosse journée de boulot demain )

 

[grosquick59]

Re : VBA impression feuilles via formulaire (choix possibles)

Bonjour Staple1600,

désolé je n'avais pas vu la réponse. Comme le topic date un peu je pensais que personne ne le verrai.
je réponds sur lautre topic ce sera plus simple

merci