impression feuilles masquees

[biomed]

bonjour,
j'ai recupere une macro permettant d'imprimer des feuillesau choix via un usf
mon probleme, c'est qu'elle ne prend pas en compte les feilles masquee
quel serait le code pour qu'elle affiche les feuilles masquees sauf celle que je ne veut pas qu'elle soit visible pour l'impression
merci

 

[ERIC S]

Re : impression feuilles masquees

Bonjour

ce serait plus simple avec un fichier

 

[biomed]

Re : impression feuilles masquees

bonjour et merci
voici une partie du fichier
la feuille TYPE est masquee mais il faut savoir qu'apres d'autres feuilles viennent se creer

 

[ERIC S]

Re : impression feuilles masquees

re

If AvailableSheet.Visible = xlSheetVisible Then
LbFeuilles.AddItem (AvailableSheet.Name)
Else
End If

constitue ta liste de feuilles si elles sont visibles, si tu les veux toutes

LbFeuilles.AddItem (AvailableSheet.Name)

si tu veux exclure selon un nom

If not AvailableSheet.name = "toto" Then
LbFeuilles.AddItem (AvailableSheet.Name)
End If

tu as plusieurs possibilités mais il faut que tu saches comment choisir les feuilles imprimables ou non

 

[biomed]

Re : impression feuilles masquees

merci de ton aide
j'ai essaye d'inclure des code dans la macro, mais cela ne fonctionne pas
les feuilles masquee ne s'affichent pas dans le usf
merci de m'aider encore un peu

 

[ERIC S]

Re : impression feuilles masquees

Bonjour

essai à faire

Sub MarqueFeuillesListbox()
Dim AvailableSheet As Worksheet
For Each AvailableSheet In ActiveWorkbook.Worksheets
'If AvailableSheet.Visible = xlSheetVisible Then
LbFeuilles.AddItem (AvailableSheet.Name)
'Else
'End If
Next AvailableSheet
On Error GoTo 0
End Sub

j'ai mis les 3 lignes du if en commentaire, sur ton fichier exemple du forum, les 2 feuilles s'affichent