Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Re: Extraire le nb de feuilles crées ? for "Pounet95"

Re: Extraire le nb de feuilles crées ? for "Pounet95"

24 réponses
Avatar
J. Catelan
ReBonjour,

Je reprends contact au sujet de l'application de la fonction INFO("nbfich") :
- Bonne nouvelle, ça fonctionne......en partie,
- Mauvaise nouvelle, le résultat est erroné d'une constante (+21), toujours la même quel que
soit la longueur du chemin sur lequel le classeur est situé. En plus, pour info, je n'ai pas d'autre
fichier d'application *.xls ouvert.
D'autre part, le fichier PERSO.XLS semble ne pas être ouvert, il indique dans ses propriétés qu'il
est en [lecture seule] et [caché].
Je m'interroge sur l'origine de cette constante ?
Si vous avez une idée ?
Merci d'avance
J.C


----- Original Message -----
>> "Pounet95" <pasdepub@oneado.fr> a écrit dans le message de news:
>> eMDck5E8FHA.3804@TK2MSFTNGP12.phx.gbl...
>>> Bonsoir,
>>> la fonction INFO("nbfich") devrait faire l'affaire mais ..... attention si le fichier PERSO.XLS
>>> est ouvert et caché
>>> ou tout autre classeur d'ailleurs !
>>>
>>> --
>>> Pounet95
>>> on trouve tout ( ou presque ) http://www.excelabo.net/
>>> Conseillé :
>>> http://dj.joss.free.fr/netiquet.htm
>>> (charte, nétiquette, conseils, abréviations, souriettes...)
>>> http://www.excelabo.net/mpfe/connexion.php
>>> (connexion, conseils...)
>>>
>>> "J. Catelan" <j.catelan.maps@free.fr> a écrit dans le message de news:
>>> 43849bf3$0$652$626a14ce@news.free.fr...
>>>> Bonjour,
>>>> Dans un classeur *.xls je souhaiterais, à l'aide d'une formule, extraire le nombre de feuilles
>>>> crées (variable) qq soit la feuille ouverte.
>>>> Je sais extraire le nom d'une feuille, mais là je bute ! Si vous avez une idée ?
>>>> Merci d'avance
>>>> J. C
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2 3
Avatar
Pounet95
Re,
J'utilise XL2000 sous XP Pro ( et sous Windows2000 ).
Ne connaissant pas XL2003 et à la lecture du message, j'ai l'impression que
la fonction INFO s'est transformée en INFORMATION, mais visiblement le
résultat
n'est pas celui attendu.
S'il n'y a pas d'autre classeur ouvert, n'y aurait-il pas des feuilles
cachées par VBA ???
Question bête : le menu Afficher de Formats/Feuille est-il disponible ?
Que se passe-t-il quand on exécute les macros suivantes ( à copier dans un
module standard ) ?
Outils/Macros/Exécuter et sélectionner celle voulue

Sub cache_feuille_leger()
'dans ce cas, le menu Afficher reste accessible
For i = 2 To ThisWorkbook.Sheets.Count
Sheets(i).Visible = xlHidden
Next i
End Sub

Sub cache_feuille_lourd()
'dans ce cas, le menu Afficher reste accessible
For i = 2 To ThisWorkbook.Sheets.Count
Sheets(i).Visible = xlVeryHidden
Next i
End Sub

Sub affiche_feuille()
For i = 2 To ThisWorkbook.Sheets.Count
Sheets(i).Visible = True
Next i
End Sub


--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
Conseillé :
http://dj.joss.free.fr/netiquet.htm
(charte, nétiquette, conseils, abréviations, souriettes...)
http://www.excelabo.net/mpfe/connexion.php
(connexion, conseils...)

"J. Catelan" a écrit dans le message de news:
438f022c$0$22410$
Bonjour,
Je justifie l'utilisation de la fonction =INFORMATIONS("nbfich") par le
fait que je me suis battu avec =INFO("nbfich")sans résultat, j'obtenais
toujours [#NOM?].
En regardant dans la fenêtre [Insérer une fonction], je n'ai pas trouvé la
fonction [INFO] par contre j'ai trouvé [INFORMATION(type)] et dans la
fenêtre [Argument de la fonction], en bas à gauche, il y a un lien [Aide
sur cette Fonction] où l'on parle de la syntaxe [INFO(no_type)] ==>
["nbfich"] (Nombre de feuilles de calcul actives dans les classeurs
ouverts).
PS :Pour info, j'utilise MS Office Professional 2003 + SP2.
A+
JC


"Pounet95" a écrit dans le message de news:

Bonjour,
J'ai essayé 'texto' ce qui est écrit, même si, pour moi
=INFORMATIONS("nbfich") ne représente rien
puisque cette fonction n'existe pas. PAr contre, avec INFO("nbfich"),
j'ai bien 11 parce qu'effectivement
mon classeur PERSO.XLS est ouvert et contient UNE feuille !!!!!

Question : d'où vient cette fonction INFORMATIONS ?
--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
Conseillé :
http://dj.joss.free.fr/netiquet.htm
(charte, nétiquette, conseils, abréviations, souriettes...)
http://www.excelabo.net/mpfe/connexion.php
(connexion, conseils...)

"J. Catelan" a écrit dans le message de news:
438e2408$0$11128$
Bonsoir,
J'ai testé les manips préconisées.....résultat inchangé, j'ai même pensé
à la corbeille !
Si vous avez le temps ce serait bien de vous placer dans la même
configuration et de faire le test ? à savoir :
- Créer un classeur dans [Mes documents] nommé [Classeur2_Test recherche
NBFeuilles.xls],
- Créer 10 feuilles dedans,
- Dans la cellule A1 de la [feuille1), saisir la fonction
[=INFORMATIONS("nbfich")],
Je trouve comme résultat 31 au lieu de 10
A demain, je décroche !
J.C
===================== >>> "Pounet95" a écrit dans le message de news:

Bonsoir,
Alors là, je sèche totalement. Je ne vois plus qu'une possibilité,
puisque ce fichier est encore
en lecture seule, via l'explorateur et les propriétés de perso.xls,
décocher la case lecture seule
ainsi que la case caché et voir ce que cela donne ?
Et pendant qu'on y est : avec la fonction rechercher de l'explorateur
de fichiers,
localiser le répertoire du fichier perso.xls et regarder dedans s'il y
a des fichiers qui pourraient
être chargés en même temps afin de leur faire éventuellement subir le
même traitement de décochage
des cases lecture seule et caché.
Après .......

Bonne soirée
--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
Conseillé :
http://dj.joss.free.fr/netiquet.htm
(charte, nétiquette, conseils, abréviations, souriettes...)
http://www.excelabo.net/mpfe/connexion.php
(connexion, conseils...)

"J. Catelan" a écrit dans le message de news:
438de434$0$794$
Bonjour,
J'avais vérifié le contenu de la fenêtre, elle affiche que le nom du
classeur sur lequel je travaille.
D'autre part, le fichier PERSO.XLS semble ne pas être ouvert, il
indique dans ses propriétés qu'il
est en [lecture seule] et [caché].
Peut-il y avoir autre chose d'ouvert et caché ?
J.C

"Pounet95" a écrit dans le message de news:
%
Bonjour,
Quand une instance Excel est ouverte, est-il possible d'atteindre le
menu Fenêtre/Afficher
et voir s'il n'y a pas le classeur Perso.xls ouvert et donc caché ?
Ainsi que d'autres éventuellement ?
Auquel cas, devenu(s) accessible(s), combien de feuille cela
représente-t-il ?


--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
Conseillé :
http://dj.joss.free.fr/netiquet.htm
(charte, nétiquette, conseils, abréviations, souriettes...)
http://www.excelabo.net/mpfe/connexion.php
(connexion, conseils...)

"J. Catelan" a écrit dans le message de
news: 438cc63a$0$7433$
ReBonjour,

Je reprends contact au sujet de l'application de la fonction
INFO("nbfich") :
- Bonne nouvelle, ça fonctionne......en partie,
- Mauvaise nouvelle, le résultat est erroné d'une constante
(+21), toujours la même quel que
soit la longueur du chemin sur lequel le classeur est situé. En
plus, pour info, je n'ai pas d'autre
fichier d'application *.xls ouvert.
D'autre part, le fichier PERSO.XLS semble ne pas être ouvert, il
indique dans ses propriétés qu'il
est en [lecture seule] et [caché].
Je m'interroge sur l'origine de cette constante ?
Si vous avez une idée ?
Merci d'avance
J.C


----- Original Message -----
"Pounet95" a écrit dans le message de news:

Bonsoir,
la fonction INFO("nbfich") devrait faire l'affaire mais .....
attention si le fichier PERSO.XLS
est ouvert et caché
ou tout autre classeur d'ailleurs !

--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
Conseillé :
http://dj.joss.free.fr/netiquet.htm
(charte, nétiquette, conseils, abréviations, souriettes...)
http://www.excelabo.net/mpfe/connexion.php
(connexion, conseils...)

"J. Catelan" a écrit dans le message de
news:
43849bf3$0$652$
Bonjour,
Dans un classeur *.xls je souhaiterais, à l'aide d'une formule,
extraire le nombre de feuilles
crées (variable) qq soit la feuille ouverte.
Je sais extraire le nom d'une feuille, mais là je bute ! Si vous
avez une idée ?
Merci d'avance
J. C

































Avatar
J. Catelan
Bien reçu.
Merci, mais je demande un peu de temps pour regarder tout cela, je ne suis pas dispo avant demain
soir.
A+
J.C


"Pounet95" a écrit dans le message de news:
%
Re,
J'utilise XL2000 sous XP Pro ( et sous Windows2000 ).
Ne connaissant pas XL2003 et à la lecture du message, j'ai l'impression que
la fonction INFO s'est transformée en INFORMATION, mais visiblement le résultat
n'est pas celui attendu.
S'il n'y a pas d'autre classeur ouvert, n'y aurait-il pas des feuilles cachées par VBA ???
Question bête : le menu Afficher de Formats/Feuille est-il disponible ?
Que se passe-t-il quand on exécute les macros suivantes ( à copier dans un module standard ) ?
Outils/Macros/Exécuter et sélectionner celle voulue

Sub cache_feuille_leger()
'dans ce cas, le menu Afficher reste accessible
For i = 2 To ThisWorkbook.Sheets.Count
Sheets(i).Visible = xlHidden
Next i
End Sub

Sub cache_feuille_lourd()
'dans ce cas, le menu Afficher reste accessible
For i = 2 To ThisWorkbook.Sheets.Count
Sheets(i).Visible = xlVeryHidden
Next i
End Sub

Sub affiche_feuille()
For i = 2 To ThisWorkbook.Sheets.Count
Sheets(i).Visible = True
Next i
End Sub


--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
Conseillé :
http://dj.joss.free.fr/netiquet.htm
(charte, nétiquette, conseils, abréviations, souriettes...)
http://www.excelabo.net/mpfe/connexion.php
(connexion, conseils...)

"J. Catelan" a écrit dans le message de news:
438f022c$0$22410$
Bonjour,
Je justifie l'utilisation de la fonction =INFORMATIONS("nbfich") par le fait que je me suis
battu avec =INFO("nbfich")sans résultat, j'obtenais toujours [#NOM?].
En regardant dans la fenêtre [Insérer une fonction], je n'ai pas trouvé la fonction [INFO] par
contre j'ai trouvé [INFORMATION(type)] et dans la fenêtre [Argument de la fonction], en bas à
gauche, il y a un lien [Aide sur cette Fonction] où l'on parle de la syntaxe [INFO(no_type)] ==>
["nbfich"] (Nombre de feuilles de calcul actives dans les classeurs ouverts).
PS :Pour info, j'utilise MS Office Professional 2003 + SP2.
A+
JC


"Pounet95" a écrit dans le message de news:

Bonjour,
J'ai essayé 'texto' ce qui est écrit, même si, pour moi =INFORMATIONS("nbfich") ne représente
rien
puisque cette fonction n'existe pas. PAr contre, avec INFO("nbfich"), j'ai bien 11 parce
qu'effectivement
mon classeur PERSO.XLS est ouvert et contient UNE feuille !!!!!

Question : d'où vient cette fonction INFORMATIONS ?
--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
Conseillé :
http://dj.joss.free.fr/netiquet.htm
(charte, nétiquette, conseils, abréviations, souriettes...)
http://www.excelabo.net/mpfe/connexion.php
(connexion, conseils...)

"J. Catelan" a écrit dans le message de news:
438e2408$0$11128$
Bonsoir,
J'ai testé les manips préconisées.....résultat inchangé, j'ai même pensé à la corbeille !
Si vous avez le temps ce serait bien de vous placer dans la même configuration et de faire le
test ? à savoir :
- Créer un classeur dans [Mes documents] nommé [Classeur2_Test recherche NBFeuilles.xls],
- Créer 10 feuilles dedans,
- Dans la cellule A1 de la [feuille1), saisir la fonction [=INFORMATIONS("nbfich")],
Je trouve comme résultat 31 au lieu de 10
A demain, je décroche !
J.C
===================== >>>> "Pounet95" a écrit dans le message de news:

Bonsoir,
Alors là, je sèche totalement. Je ne vois plus qu'une possibilité, puisque ce fichier est
encore
en lecture seule, via l'explorateur et les propriétés de perso.xls, décocher la case lecture
seule
ainsi que la case caché et voir ce que cela donne ?
Et pendant qu'on y est : avec la fonction rechercher de l'explorateur de fichiers,
localiser le répertoire du fichier perso.xls et regarder dedans s'il y a des fichiers qui
pourraient
être chargés en même temps afin de leur faire éventuellement subir le même traitement de
décochage
des cases lecture seule et caché.
Après .......

Bonne soirée
--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
Conseillé :
http://dj.joss.free.fr/netiquet.htm
(charte, nétiquette, conseils, abréviations, souriettes...)
http://www.excelabo.net/mpfe/connexion.php
(connexion, conseils...)

"J. Catelan" a écrit dans le message de news:
438de434$0$794$
Bonjour,
J'avais vérifié le contenu de la fenêtre, elle affiche que le nom du classeur sur lequel je
travaille.
D'autre part, le fichier PERSO.XLS semble ne pas être ouvert, il indique dans ses propriétés
qu'il
est en [lecture seule] et [caché].
Peut-il y avoir autre chose d'ouvert et caché ?
J.C

"Pounet95" a écrit dans le message de news:
%
Bonjour,
Quand une instance Excel est ouverte, est-il possible d'atteindre le menu Fenêtre/Afficher
et voir s'il n'y a pas le classeur Perso.xls ouvert et donc caché ? Ainsi que d'autres
éventuellement ?
Auquel cas, devenu(s) accessible(s), combien de feuille cela représente-t-il ?


--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
Conseillé :
http://dj.joss.free.fr/netiquet.htm
(charte, nétiquette, conseils, abréviations, souriettes...)
http://www.excelabo.net/mpfe/connexion.php
(connexion, conseils...)

"J. Catelan" a écrit dans le message de news:
438cc63a$0$7433$
ReBonjour,

Je reprends contact au sujet de l'application de la fonction INFO("nbfich") :
- Bonne nouvelle, ça fonctionne......en partie,
- Mauvaise nouvelle, le résultat est erroné d'une constante (+21), toujours la même quel
que
soit la longueur du chemin sur lequel le classeur est situé. En plus, pour info, je n'ai
pas d'autre
fichier d'application *.xls ouvert.
D'autre part, le fichier PERSO.XLS semble ne pas être ouvert, il indique dans ses
propriétés qu'il
est en [lecture seule] et [caché].
Je m'interroge sur l'origine de cette constante ?
Si vous avez une idée ?
Merci d'avance
J.C


----- Original Message -----
"Pounet95" a écrit dans le message de news:

Bonsoir,
la fonction INFO("nbfich") devrait faire l'affaire mais ..... attention si le fichier
PERSO.XLS
est ouvert et caché
ou tout autre classeur d'ailleurs !

--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
Conseillé :
http://dj.joss.free.fr/netiquet.htm
(charte, nétiquette, conseils, abréviations, souriettes...)
http://www.excelabo.net/mpfe/connexion.php
(connexion, conseils...)

"J. Catelan" a écrit dans le message de news:
43849bf3$0$652$
Bonjour,
Dans un classeur *.xls je souhaiterais, à l'aide d'une formule, extraire le nombre de
feuilles
crées (variable) qq soit la feuille ouverte.
Je sais extraire le nom d'une feuille, mais là je bute ! Si vous avez une idée ?
Merci d'avance
J. C




































Avatar
J. Catelan
"Pounet95" a écrit dans le message de news:
%
Re,
J'utilise XL2000 sous XP Pro ( et sous Windows2000 ).
Ne connaissant pas XL2003 et à la lecture du message, j'ai l'impression que
la fonction INFO s'est transformée en INFORMATION, mais visiblement le résultat
n'est pas celui attendu.


C'est aussi mon avis !
================================================ > S'il n'y a pas d'autre classeur ouvert, n'y aurait-il pas des feuilles cachées par VBA ???

Je ne vois pas où ?
Si j'ouvre VBA, il y a juste :
- 5 Répertoire macros complémentaires *.XLA liés à des installations (protégées par un mot de
passe),
- 1 répertoire [VBA Project (Classeur 1_ Test recherche NBFeuilles.xls)] contenant 1 classeur
[Microsoft Excel ObjetsVBA Project] avec ses 10 feuilles + This Workbook
================================================== > Question bête : le menu Afficher de Formats/Feuille est-il disponible ?

Non, il n'est pas disonible, il est grisé.
=================================================== > Que se passe-t-il quand on exécute les macros suivantes ( à copier dans un module standard ) ?

J'ai créé, dans VBA, du fichier à tester un module renfermant les 3 macros.
=================================================== > Outils/Macros/Exécuter et sélectionner celle voulue

Sub cache_feuille_leger()
'dans ce cas, le menu Afficher reste accessible
For i = 2 To ThisWorkbook.Sheets.Count
Sheets(i).Visible = xlHidden
Next i
End Sub

Sub cache_feuille_lourd()
'dans ce cas, le menu Afficher reste accessible
For i = 2 To ThisWorkbook.Sheets.Count
Sheets(i).Visible = xlVeryHidden
Next i
End Sub

Sub affiche_feuille()
For i = 2 To ThisWorkbook.Sheets.Count
Sheets(i).Visible = True
Next i
End Sub
================================================= Initialement avant de lancer les macros, la fonction =INFORMATIONS("nbfich") donne comme résultat

31 (10 Feuilles + 21 (?)).
-La macro [affiche_feuille] => Toutes les feuilles affichées & Menu Format / Feuille / Afficher
(inaccessible).
-La macro [cache_feuille_leger] => Seule la feuille1 est affichée & Menu Format / Feuille / Afficher
(accessible).
-La macro [cache_feuille_lourd] => Seule la feuille1 est affichée & Menu Format / Feuille / Afficher
(inaccessible).
Aucun changement dans le résultat de la fonction.
=================================================
Lorsque je créé simultanément un autre classeur,que je l'enregistre, l'indication donnée par la
fonction s'incrément du nb fe feuilles du nouveau classeur.



--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
Conseillé :
http://dj.joss.free.fr/netiquet.htm
(charte, nétiquette, conseils, abréviations, souriettes...)
http://www.excelabo.net/mpfe/connexion.php
(connexion, conseils...)




Avatar
Pounet95
Bonjour,
Le fait que le menu Format/Feuille Afficher soit grisé veut dire :
- il n'y a pas de feuille cachée pour le classeur actif, ou
- il y a des feuilles cachées pour le classeur actif en xlVeryHidden ( vba )

Un doute à lever :
Exécuter la macro qui rend accessible l'affichage des feuilles,
Ensuite, menu Fenêtre/Afficher est disponible ?
Si oui, sélectionner tous les fichiers éventuellement présents
et voir s'ils ont le nombre de feuilles qui font que le résultat de la
fonction est celui obtenu

Au fait, que sont ces 5 xla chargés ?

Si rien de tout cela, alors là, faire appel aux pros car je n'ai plus
d'idée.
A suivre
Bonne journée
--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
Conseillé :
http://dj.joss.free.fr/netiquet.htm
(charte, nétiquette, conseils, abréviations, souriettes...)
http://www.excelabo.net/mpfe/connexion.php
(connexion, conseils...)

"J. Catelan" a écrit dans le message de news:
4390ac6b$0$18842$

"Pounet95" a écrit dans le message de news:
%
Re,
J'utilise XL2000 sous XP Pro ( et sous Windows2000 ).
Ne connaissant pas XL2003 et à la lecture du message, j'ai l'impression
que
la fonction INFO s'est transformée en INFORMATION, mais visiblement le
résultat
n'est pas celui attendu.


C'est aussi mon avis !
================================================ >> S'il n'y a pas d'autre classeur ouvert, n'y aurait-il pas des feuilles
cachées par VBA ???


Je ne vois pas où ?
Si j'ouvre VBA, il y a juste :
- 5 Répertoire macros complémentaires *.XLA liés à des installations
(protégées par un mot de passe),
- 1 répertoire [VBA Project (Classeur 1_ Test recherche NBFeuilles.xls)]
contenant 1 classeur [Microsoft Excel ObjetsVBA Project] avec ses 10
feuilles + This Workbook
================================================== >> Question bête : le menu Afficher de Formats/Feuille est-il disponible ?

Non, il n'est pas disonible, il est grisé.
=================================================== >> Que se passe-t-il quand on exécute les macros suivantes ( à copier dans
un module standard ) ?


J'ai créé, dans VBA, du fichier à tester un module renfermant les 3
macros.
=================================================== >> Outils/Macros/Exécuter et sélectionner celle voulue

Sub cache_feuille_leger()
'dans ce cas, le menu Afficher reste accessible
For i = 2 To ThisWorkbook.Sheets.Count
Sheets(i).Visible = xlHidden
Next i
End Sub

Sub cache_feuille_lourd()
'dans ce cas, le menu Afficher reste accessible
For i = 2 To ThisWorkbook.Sheets.Count
Sheets(i).Visible = xlVeryHidden
Next i
End Sub

Sub affiche_feuille()
For i = 2 To ThisWorkbook.Sheets.Count
Sheets(i).Visible = True
Next i
End Sub
================================================= > Initialement avant de lancer les macros, la fonction

=INFORMATIONS("nbfich") donne comme résultat 31 (10 Feuilles + 21 (?)).
-La macro [affiche_feuille] => Toutes les feuilles affichées & Menu Format
/ Feuille / Afficher (inaccessible).
-La macro [cache_feuille_leger] => Seule la feuille1 est affichée & Menu
Format / Feuille / Afficher (accessible).
-La macro [cache_feuille_lourd] => Seule la feuille1 est affichée & Menu
Format / Feuille / Afficher (inaccessible).
Aucun changement dans le résultat de la fonction.
================================================= >
Lorsque je créé simultanément un autre classeur,que je l'enregistre,
l'indication donnée par la fonction s'incrément du nb fe feuilles du
nouveau classeur.



--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
Conseillé :
http://dj.joss.free.fr/netiquet.htm
(charte, nétiquette, conseils, abréviations, souriettes...)
http://www.excelabo.net/mpfe/connexion.php
(connexion, conseils...)








Avatar
J. Catelan
"Pounet95" a écrit dans le message de news:

Bonjour,
Le fait que le menu Format/Feuille Afficher soit grisé veut dire :
- il n'y a pas de feuille cachée pour le classeur actif, ou
- il y a des feuilles cachées pour le classeur actif en xlVeryHidden ( vba )

Un doute à lever :
Exécuter la macro qui rend accessible l'affichage des feuilles,
Ensuite, menu Fenêtre/Afficher est disponible ?
Si oui, sélectionner tous les fichiers éventuellement présents
et voir s'ils ont le nombre de feuilles qui font que le résultat de la
fonction est celui obtenu
Résultat de cette manip : NON


============================================= > Au fait, que sont ces 5 xla chargés ?
Voir fichier JPG joint,
avec demande de mot de passe inconnu pour ces 5 xla

============================================= > Si rien de tout cela, alors là, faire appel aux pros car je n'ai plus
d'idée.
Moi non plus, je crois que je vais abandonner pour l'instant, il y a peut-être un Bug !


============================================= > Au fait, que sont ces 5 xla chargés ?
- AcrobatPDFMaker (PDFMaker.xla)
- atpvbaen.Xls (ATPVBAEN.XLA)
- EuroTool (EUROTOOL.XLA)
- funcres (FRUNCRES.XLA)
- Internet_Assistant (HTML. XLA)
avec demande de mot de passe inconnu pour ces 5 premiers xla
- VBAProject (Classeur2_Test recherche NBFeuilles.xls)


============================================= > Si rien de tout cela, alors là, faire appel aux pros car je n'ai plus
d'idée.
Moi non plus, je crois que je vais abandonner pour l'instant, il y a peut-être un Bug !


============================================= Merci encore pour tous ces efforts de recheche.
A une autre occasion
J.C

Avatar
Clément Marcotte
Une macro complémentaire c'est un classeur Excel. Comme tout classeur Excel
doit avoir au moins une feuille, tu as au moins une feuille par macro
complémentaire.

Et comme une macro complémentaire chargée égale un classeur ouvert...


"J. Catelan" a écrit dans le message de news:
4392e476$0$4338$

"Pounet95" a écrit dans le message de news:

Bonjour,
Le fait que le menu Format/Feuille Afficher soit grisé veut dire :
- il n'y a pas de feuille cachée pour le classeur actif, ou
- il y a des feuilles cachées pour le classeur actif en xlVeryHidden (
vba )

Un doute à lever :
Exécuter la macro qui rend accessible l'affichage des feuilles,
Ensuite, menu Fenêtre/Afficher est disponible ?
Si oui, sélectionner tous les fichiers éventuellement présents
et voir s'ils ont le nombre de feuilles qui font que le résultat de la
fonction est celui obtenu
Résultat de cette manip : NON


============================================= >> Au fait, que sont ces 5 xla chargés ?
Voir fichier JPG joint,
avec demande de mot de passe inconnu pour ces 5 xla

============================================= >> Si rien de tout cela, alors là, faire appel aux pros car je n'ai plus
d'idée.
Moi non plus, je crois que je vais abandonner pour l'instant, il y

a peut-être un Bug !

============================================= >> Au fait, que sont ces 5 xla chargés ?
- AcrobatPDFMaker (PDFMaker.xla)
- atpvbaen.Xls (ATPVBAEN.XLA)
- EuroTool (EUROTOOL.XLA)
- funcres (FRUNCRES.XLA)
- Internet_Assistant (HTML. XLA)
avec demande de mot de passe inconnu pour ces 5 premiers xla
- VBAProject (Classeur2_Test recherche NBFeuilles.xls)


============================================= >> Si rien de tout cela, alors là, faire appel aux pros car je n'ai plus
d'idée.
Moi non plus, je crois que je vais abandonner pour l'instant, il y

a peut-être un Bug !

============================================= > Merci encore pour tous ces efforts de recheche.
A une autre occasion
J.C






Avatar
Pounet95
Bonjour Clément, Bonjour J.C

Il est vrai qu'un fichier .xla est un classeur et 'devrait' contenir au
moins une feuille.
Je dis 'devrait' car (sous XL2000 et XPPro ) si je lance l'apploication
Excel, par
défaut s'ouvre un classeur vierge avec 3 feuilles.
J'écris dans une cellule quelconque la formule =INFO("nbfich") et le
résultat obtenu est 4
Un petit coup d'oeil du côté du VBE et je vois que sont ouverts les xla qui
suivent :
ATPVBAEN, FUNCRES et PERSO en plus de mon classeur vierge, ce qui semble
dire qu'il manque
2 feuilles puisque ayant accès à Perso.xls, je sais qu'il n'a qu'une feuille
?
Y aurait-il des exceptions avec des classeurs n'ayant que des modules VBA ?

--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
Conseillé :
http://dj.joss.free.fr/netiquet.htm
(charte, nétiquette, conseils, abréviations, souriettes...)
http://www.excelabo.net/mpfe/connexion.php
(connexion, conseils...)

"Clément Marcotte" a écrit dans le message
de news: ePV98fO%
Une macro complémentaire c'est un classeur Excel. Comme tout classeur
Excel doit avoir au moins une feuille, tu as au moins une feuille par
macro complémentaire.

Et comme une macro complémentaire chargée égale un classeur ouvert...


"J. Catelan" a écrit dans le message de news:
4392e476$0$4338$

"Pounet95" a écrit dans le message de news:

Bonjour,
Le fait que le menu Format/Feuille Afficher soit grisé veut dire :
- il n'y a pas de feuille cachée pour le classeur actif, ou
- il y a des feuilles cachées pour le classeur actif en xlVeryHidden (
vba )

Un doute à lever :
Exécuter la macro qui rend accessible l'affichage des feuilles,
Ensuite, menu Fenêtre/Afficher est disponible ?
Si oui, sélectionner tous les fichiers éventuellement présents
et voir s'ils ont le nombre de feuilles qui font que le résultat de la
fonction est celui obtenu
Résultat de cette manip : NON


============================================= >>> Au fait, que sont ces 5 xla chargés ?
Voir fichier JPG joint,
avec demande de mot de passe inconnu pour ces 5 xla

============================================= >>> Si rien de tout cela, alors là, faire appel aux pros car je n'ai plus
d'idée.
Moi non plus, je crois que je vais abandonner pour l'instant, il y

a peut-être un Bug !

============================================= >>> Au fait, que sont ces 5 xla chargés ?
- AcrobatPDFMaker (PDFMaker.xla)
- atpvbaen.Xls (ATPVBAEN.XLA)
- EuroTool (EUROTOOL.XLA)
- funcres (FRUNCRES.XLA)
- Internet_Assistant (HTML. XLA)
avec demande de mot de passe inconnu pour ces 5 premiers xla
- VBAProject (Classeur2_Test recherche NBFeuilles.xls)


============================================= >>> Si rien de tout cela, alors là, faire appel aux pros car je n'ai plus
d'idée.
Moi non plus, je crois que je vais abandonner pour l'instant, il y

a peut-être un Bug !

============================================= >> Merci encore pour tous ces efforts de recheche.
A une autre occasion
J.C










Avatar
Modeste
Bonsour® Pounet95
gardes-toi bien d'affirmer que toutes les macros complémentaires ont une
feuille !!!!
eurotool pour sa part en à 16 !!!!!
les macros complémentaires de type XLL (Analys32.xll, Morefunc.xll) ne sont
pas des classeurs à proprement parler : ont-ils des feuilles ????

à titre de test :
Sub infos_feuilles()
On Error Resume Next
With Worksheets("feuil1")
.Rows(1).Font.Bold = True
.Range("a1:d1").Value = _
Array("Macro-complémentaire", "Nom", "Installé", "Nbr feuille(s)")
For i = 1 To AddIns.Count
.Cells(i + 1, 1) = AddIns(i).Title
.Cells(i + 1, 2) = AddIns(i).Name

.Cells(i + 1, 3) = AddIns(i).Installed
If AddIns(i).Installed Then
.Cells(i + 1, 4) = Workbooks(AddIns(i).Name).Sheets.Count
End If
Next
.Cells(i + 2, 2) = "Total macro Compl"
.Cells(i + 2, 4).FormulaR1C1 = "=SUM(R2C:R[-1]C)"
.Cells(i + 4, 2) = "Ce classeur"
.Cells(i + 4, 3) = ThisWorkbook.Name
.Cells(i + 4, 4) = ThisWorkbook.Worksheets.Count
.Cells(i + 5, 2) = "Fonction =INFO(''nbfich'')"
.Cells(i + 5, 4).FormulaLocal = "=INFO(""nbfich"")"
.Range("A:C").Columns.AutoFit
End With
End Sub


le mystere demeure ????
peut-etre encore un truc caché de EXCEL
;o)))
essaie de nommer une feuille du nom "Historique' ou bien "History"
http://j-walk.com/ss/excel/odd/odd14
la difference de nombre constatée vient éventuellement de là
il y a même peut-etre d'autres noms ou feuilles non listable ??????



--
;o)))
@+

Les news à la source !!!
news://news.microsoft.com/microsoft.public.fr.excel
et répondez OUI

n'oubliez pas les FAQ :http://www.excelabo.net
http://dj.joss.free.fr/faq.htm http://www.faqoe.com http://faqword.free.fr
Avatar
J. Catelan
Bonjour à tous,
J'étais sur le point de baisser les bras, mais l'autre fois en parlant des fichiers XLA, j'ai eu
l'idée de les explorer avec [Drag and view] un petit utilitaire bien pratique.
Sur 5 XLA présent dans VBA, 3 possédaient des feuilles, à savoir :
- AcrobatPDFMaker (PDFMaker.xla) => 2 feuilles
- atpvbaen.Xls (ATPVBAEN.XLA) => 3 feuilles
- EuroTool (EUROTOOL.XLA) => 16 feuilles
- funcres (FRUNCRES.XLA) => 0 feuille
- Internet_Assistant (HTML. XLA) => 0 feuille
Ce qui fait 21, l'origine de la constante qui me gâchait la vie. Vive le trie sélectif !!
Conclusion :
Cette fonction est complètement nulle et inutile à mon avis.
Je reste sur ma faim, moi qui ne voulait compter que les feuilles d'un classeur ouvert et actualiser
automatiquement lors d'un ajout ou d'une suppression d'une ou plusieurs feuilles.
Si vous avez une idée en VBA pour résoudre mon pb je suis preneur, car moi je suis faible de ce côté
là.
Merci d'avance.
J.C

"Modeste" a écrit dans le message de news:
ejxm$7X%
Bonsour® Pounet95
gardes-toi bien d'affirmer que toutes les macros complémentaires ont une feuille !!!!
eurotool pour sa part en à 16 !!!!!
les macros complémentaires de type XLL (Analys32.xll, Morefunc.xll) ne sont pas des classeurs à
proprement parler : ont-ils des feuilles ????

à titre de test :
Sub infos_feuilles()
On Error Resume Next
With Worksheets("feuil1")
.Rows(1).Font.Bold = True
.Range("a1:d1").Value = _
Array("Macro-complémentaire", "Nom", "Installé", "Nbr feuille(s)")
For i = 1 To AddIns.Count
.Cells(i + 1, 1) = AddIns(i).Title
.Cells(i + 1, 2) = AddIns(i).Name

.Cells(i + 1, 3) = AddIns(i).Installed
If AddIns(i).Installed Then
.Cells(i + 1, 4) = Workbooks(AddIns(i).Name).Sheets.Count
End If
Next
.Cells(i + 2, 2) = "Total macro Compl"
.Cells(i + 2, 4).FormulaR1C1 = "=SUM(R2C:R[-1]C)"
.Cells(i + 4, 2) = "Ce classeur"
.Cells(i + 4, 3) = ThisWorkbook.Name
.Cells(i + 4, 4) = ThisWorkbook.Worksheets.Count
.Cells(i + 5, 2) = "Fonction =INFO(''nbfich'')"
.Cells(i + 5, 4).FormulaLocal = "=INFO(""nbfich"")"
.Range("A:C").Columns.AutoFit
End With
End Sub


le mystere demeure ????
peut-etre encore un truc caché de EXCEL
;o)))
essaie de nommer une feuille du nom "Historique' ou bien "History"
http://j-walk.com/ss/excel/odd/odd14
la difference de nombre constatée vient éventuellement de là
il y a même peut-etre d'autres noms ou feuilles non listable ??????



--
;o)))
@+

Les news à la source !!!
news://news.microsoft.com/microsoft.public.fr.excel
et répondez OUI

n'oubliez pas les FAQ :http://www.excelabo.net http://dj.joss.free.fr/faq.htm http://www.faqoe.com
http://faqword.free.fr




Avatar
Pounet95
Bonjour à tous,
Je m'en suis gardé, ou du moins telle était mon intention.
Au moins on aura avancé et appris a minima que la fonction INFO ( RMATION )
ne fait pas ce qu'elle veut faire croire qu'elle fait ou est-ce encore une
mauvaise
traduction ?

Bonne journée à vous
--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
Conseillé :
http://dj.joss.free.fr/netiquet.htm
(charte, nétiquette, conseils, abréviations, souriettes...)
http://www.excelabo.net/mpfe/connexion.php
(connexion, conseils...)

"J. Catelan" a écrit dans le message de news:
43943666$0$21695$
Bonjour à tous,
J'étais sur le point de baisser les bras, mais l'autre fois en parlant des
fichiers XLA, j'ai eu l'idée de les explorer avec [Drag and view] un petit
utilitaire bien pratique.
Sur 5 XLA présent dans VBA, 3 possédaient des feuilles, à savoir :
- AcrobatPDFMaker (PDFMaker.xla) => 2 feuilles
- atpvbaen.Xls (ATPVBAEN.XLA) => 3 feuilles
- EuroTool (EUROTOOL.XLA) => 16 feuilles
- funcres (FRUNCRES.XLA) => 0 feuille
- Internet_Assistant (HTML. XLA) => 0 feuille
Ce qui fait 21, l'origine de la constante qui me gâchait la vie. Vive le
trie sélectif !!
Conclusion :
Cette fonction est complètement nulle et inutile à mon avis.
Je reste sur ma faim, moi qui ne voulait compter que les feuilles d'un
classeur ouvert et actualiser automatiquement lors d'un ajout ou d'une
suppression d'une ou plusieurs feuilles.
Si vous avez une idée en VBA pour résoudre mon pb je suis preneur, car moi
je suis faible de ce côté là.
Merci d'avance.
J.C

"Modeste" a écrit dans le message de news:
ejxm$7X%
Bonsour® Pounet95
gardes-toi bien d'affirmer que toutes les macros complémentaires ont une
feuille !!!!
eurotool pour sa part en à 16 !!!!!
les macros complémentaires de type XLL (Analys32.xll, Morefunc.xll) ne
sont pas des classeurs à proprement parler : ont-ils des feuilles ????

à titre de test :
Sub infos_feuilles()
On Error Resume Next
With Worksheets("feuil1")
.Rows(1).Font.Bold = True
.Range("a1:d1").Value = _
Array("Macro-complémentaire", "Nom", "Installé", "Nbr feuille(s)")
For i = 1 To AddIns.Count
.Cells(i + 1, 1) = AddIns(i).Title
.Cells(i + 1, 2) = AddIns(i).Name

.Cells(i + 1, 3) = AddIns(i).Installed
If AddIns(i).Installed Then
.Cells(i + 1, 4) = Workbooks(AddIns(i).Name).Sheets.Count
End If
Next
.Cells(i + 2, 2) = "Total macro Compl"
.Cells(i + 2, 4).FormulaR1C1 = "=SUM(R2C:R[-1]C)"
.Cells(i + 4, 2) = "Ce classeur"
.Cells(i + 4, 3) = ThisWorkbook.Name
.Cells(i + 4, 4) = ThisWorkbook.Worksheets.Count
.Cells(i + 5, 2) = "Fonction =INFO(''nbfich'')"
.Cells(i + 5, 4).FormulaLocal = "=INFO(""nbfich"")"
.Range("A:C").Columns.AutoFit
End With
End Sub


le mystere demeure ????
peut-etre encore un truc caché de EXCEL
;o)))
essaie de nommer une feuille du nom "Historique' ou bien "History"
http://j-walk.com/ss/excel/odd/odd14
la difference de nombre constatée vient éventuellement de là
il y a même peut-etre d'autres noms ou feuilles non listable ??????



--
;o)))
@+

Les news à la source !!!
news://news.microsoft.com/microsoft.public.fr.excel
et répondez OUI

n'oubliez pas les FAQ :http://www.excelabo.net
http://dj.joss.free.fr/faq.htm http://www.faqoe.com
http://faqword.free.fr








1 2 3