Discussion :

[Denis_67]

Bonjour,
J'ai besoin de récupérer les listes des feuilles des classeurs.

j'ai consulté le tuto très intéressant sur le sujet.
http://excel.developpez.com/faq/?pag...e#ListeOnglets.

Le plus souvent la liste n'est pas exportable car apparait dans un popup.

J'ai donc créé une macro dans mes outils perso qui permet de générer cette liste sur une nouvelle feuille.
Par contre je n'arrive pas à afficher la propriété des feuilles à savoir si elle est cachées ou visible.
Déjà il y a une ambiguité sur les propriétés
xlSheetVisible et xlsheethidden et xlveryhiden.
Quelle valeur devrais-je tester pour savoir si la feuille est cachée ou pas?

Je suis parti sur xlsheetvisible mais dans mon cas je tombe en erreur.

Voici le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Dim i As Integer
Dim visible As XlSheetVisibility
Sheets.Add
Cells(2, 2) = ActiveWorkbook.Name
For i = 1 To Sheets.Count
Cells(2 + i, 2) = Sheets(i).Name
visible = Sheets(i).xlSheetVisible =======> Là je récupère une erreur 438
If visible <> -1 Then
Cells(2 + i, 3) = "Cachée"
End If
Next i
MsgBox "Liste Terminée"

Merci pour votre aide
Denis

[Denis_67]

En fait, suite à un plantage, j'ai réinitialisé mon classeur de macro perso et redémarré Excel,
corrigé comme suggéré par Fred.dz
visible = Sheets(i).visible
et là ça fonctionne.
Merci

Donc avis à ceux qui sont intéressés.
Par contre je serais intéressé de savoir quelle est la signification des différentes proriétés
xlSheetVisible et xlsheethidden et xlveryhiden.

[Fred.dz]

Je pense que tu devrais pouvoir t'en sortir avec:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
dim visible as boolean
 
visible=sheets(i).visbible

xlsheetvisible: ta feuille est visible.

xlsheethidden: ta feuille est caché mais il suffit de faire clic droit "Afficher..." pour pouvoir la démasquer.

xlsheetveryhidden: la solution précédente ne marche pas il faut passer par de la programmation pour démasquer la feuille.