Impression aux choix de plusieurs feuilles

bonjour à tous

j'ai un fichier Excel avec des macros que certains de ce Forum reconnaitront (merci)

Il fonctionnait parfaitement bien en version Excel 2007

Nous venons de passer en version Excel 2019 et depuis en cliquant sur le bouton "IMPRIMER" je ne peux imprimer que deux feuilles par deux feuilles alors que dans la feuille "whole class" j'ai sélectionné par des "1" (par exemple) 8 feuilles.

En passant par Alt F11 , puis en sélectionnant Module 4 , et enfin F5 la macro fonctionne. je n'y comprends rien.

Merci pour votre aide précieuse

Bonjour 62pasqqual et

Ce code devrait mieux fonctionner

Public Sub Imprimer()
  Dim Lig As Long
  Dim ShtWC As Worksheet
  Set ShtWC = ThisWorkbook.Sheets("Whole class")
  Application.ScreenUpdating = False
  For Lig = 3 To ShtWC.Range("A" & Rows.Count).End(xlUp).Row
    If ShtWC.Range("B" & Lig).Value = 1 Then
      With Sheets(ShtWC.Range("A" & Lig).Value)
        .Activate
        .PrintOut        ' envoi imprimante par défaut
      End With
    End If
  Next Lig
  ShtWC.Activate
  Set ShtWC = Nothing
  Application.ScreenUpdating = True
End Sub

A+

bonjour BrunoM45, 62pasqual,

la seule chose que je vois à améliorer, c'est utiliser un cstr(...) pour chaque feuille, dans le cas que le nom de la feuille est numérique (integer) mais je ne pas pas que c'est le cas ici. Et un "activate", cela est un "péché mortel" Il y aura 8 feuilles à imprimer, donc il se passe quelque chose inconnue.

Public Sub Imprimer()

     Dim lig   As Long
     With Sheets("Whole Class")
          For lig = 2 To .Cells(Rows.Count, 2).End(xlUp).Row
               If .Cells(lig, 2).Value = 1 Then
                    'Sheets(CStr(.Cells(lig, 1).Value)).PrintOut        ' envoi imprimante par défaut
                    Sheets(CStr(.Cells(lig, 1).Value)).PrintPreview     ' affichage écran aperçu
               End If
          Next lig
     End With
End Sub

Bonjour

merci beaucoup pour votre aide et votre réactivité

cela fonctionne parfaitement bien

je vous souhaite une très bonne journée

62pasqual

Bonsoir

Et comme de bien sur... on est nouveau et on ne lit pas la charte