Erreur selection d'une feuille par son indice

Bonjour,

J 'ai un souci avec la selection de certaines feuilles.

J ai 17 onglets représentant 17 themes.

Je dois masquer les thèmes non actif .

je ne mettrais pas tout le code , j ai bien évidemment crée une boucle avec un compteur représentant mon nuémro de feuille. Tel que si theme inactif on masque.

Sheets(Numéro de ma feuille).Select// Erreur générée ici
ActiveWindow.SelectedSheets.Visible =False

En fait le souci c est que tout fonctionne jusqu au feuilet numero 14 et à partir de la 15 il me genère une erreur au niveau de la selection de la feuille.

Je vous remercie

Christine[/code]

Bonjour,

Envoie le code complet, pour juger le pourquoi du comment !

Amicalement

Claude.

Le souci c est que je développe sur windev.

J ai créé un objet OLE afin d 'exporter mes données.

Avec cet objet on peut facilement manipuler excel.

Mon code windev est correct .

J ai fait un simple test sur mon fichier excel.

J ai simplement créé une macro qui masque ma feuille(15)

Pour les autres feuilles jusqu à 14 ma macro fonctionne et à partir de 15 elle me génère une erreur.

Par contre j ai oublié de dire : lorsque je mets son nom en dur ça fonctionne.

sheets("Archives").select fonctionne

Ma macro toute simple :

Sub Macro1()
'
' Macro1 Macro
'
        Sheets(15).Select
       ActiveWindow.SelectedSheets.Visible = False
'
End Sub
J'ai créé cette macro avant que ma feuille ne soit masquée.

Merci

re,

essaye simplement:

Sheets(15).Visible = False

Claude.

Ta solution ne fonctionne pas

Par contre omis de dire aussi que ce fichier m'a été livré . C est un modèle

Ce que j ai fait j'ai créé un autre fichier vierge avec 17 onglets .

Ma macro fonctionne

Pour moi le souci vient du fichier livré et etant donné que je ne connais pas trop excel ,

y aurait il une sécurité activée ou autre?

Ce qui est embêtant c est que je voudrais pas reproduire ce modèle. Trop long

Merci pour tes réponses

Amicalement

re,

Cette feuille qui coince, ne serait pas protégée des fois ?

En cliquant droit sur ces 3 onglets

Protéger feuille :

j 'obtiens :

1.sélectionné les cellules verrouillées

2.selectionné les cellules déverrouillées

3.Modifier les objets

4.Modifier des scénrios

concernant les onglets qui fonctionnent , j en ai quelques-un avec les mêmes options

sinon j ai essaye ce code :

    Sheets(15).Visible = xlVeryHidden
Sheets(15).Visible = xlSheetVeryHidden
Sheets(15).Visible = False
Sheets(15).Visible = 0

Il ne me génère aucune erreur mais il ne me masque pas ma feuille

Par contre ça fonctionne pour les autres [/code]

re,

on a l'impression que la Feuil(15) n'est pas reconnue

Est-tu sur d'avoir au moins 15 feuilles ?

et sont-elles bien déclarées en amont ?

pour tester essaye de déplacer la feuille avec

Sheets(15).Move Before:=Sheets(1)

Claude.

Résolu je pense.

En fait j'ai fait un trace de toutes les feuilles existantes.

Dim Ws As Worksheet

For Each Ws In ThisWorkbook.Worksheets
        MsgBox Ws.Name
Next Ws

Avant cette feuille j 'ai découvert deux autres feuilles qui étaient masquées.

Ils me l'ont livré comme ceci ,j ai donc un fichier avec 19 onglets.

C est un peu fâcheux pour si peu sourire

Je vais garder le modèle avec ces onglets et les ferais glisser à la fin.

Je le saurai pour la prochaine fois sourire.

Merci pour ton aide

Amicalement

[/code]

re,

N'oublie pas la petite formalité,

en bas à gauche et en étant connecté(e)

Claude