IMPRESSION FEUILLE NON MASQUEE

Re Chris,

Tu peux faire une boucle pour savoir si ta feuille est affichée.
dim I as Integer

For I = 1 to Sheets.count
If Sheets(I).visible = True then
Là tu imprimes ou tu fais ce que tu veux
end if
next I


ça devrait marcher

Bon courage

Salut Chris,

J'ai moi même été confronter au problème. Je l'ai résolut par un tableau de selection :

Option explicite

Sub recherche_fls_impression
dim tab_impression() as string
dim int_nb_fls as integer
dim fls as worksheets
dim classeur as workbooks

set classeur =activeworkbook
set fls=activesheet

int_nb_fls=classeur.worksheets.count

for each fls in classeur
if fls.visible=true then
selection.add
end if
next

end sub

C'est de mémoire si il y a un message d'erreur fait le moi savoir et je recopirait ma macro.

A+

Bonsoir le Forum,

Merci à Luki et wilfried pour votre assistance. J'essaie tout cela ce soir et reviens vers vous si ça ne fonctionne pas.

Encore merci,
Bye Bye
Chris33