OVH Cloud OVH Cloud

this woorkbook

13 réponses
Avatar
JEAN
bonsoir,
ce code est placé dans mon this workbook pour cacher ma feuille 1
Sheets("Feuil1").Visible = xlSheetVeryHidden
J'ai une feuille qui copie a chaque fois la feuille 2 sur une autre feuille
qui^prendra comme nom une date.
mais je veux qu'a chaque fois que mon classeur se ferme
cette feuille soit masquer aussi
Etant donnée que c'est une copie de la feuille 2
comment ecrire le code en vba pour que cette feuille soit masqué
pour la feuille 1 et 2 je sais, mais pour cette feuille je souhaite un peu
d'aide.
feuil1 'Sheets("Feuil1").Visible = xlSheetVeryHidden
feuil2 'Sheets("Feuil2").Visible = xlSheetVeryHidden

merci de votre aide.

3 réponses

1 2
Avatar
Joël GARBE
c'est donc que :

soit Feuil2 n'existe pas dans la liste des noms de feuilles,
soit ce qui est écrit en B1 de la feuille nommée Feuil2 n'existe pas dans la
liste des noms de feuille

Il n'y a pas (sauf erreur de ma part) d'autre source d'erreur !
--

Bien cordialement,

Joël GARBE
www.joelgarbe.fr
"JEAN" a écrit dans le message de news:

non mais ca ne marche pas j'ai toujours l'indice n'appartient pas à la
selection




Merci Raimond ;-)

Je n'avais pas essayé le code de Denis (désolé Denis d'avoir mis en doute
le
code !!!)

Espérons que Jean trouve l'origine de son Pb

On peut toujours rêver ;-)

--

Bien cordialement,

Joël GARBE
www.joelgarbe.fr
"Rai" a écrit dans le message de news:
41b31ab2$0$9057$
Salut,

Y fatigue pas Denis,
Sa ligne de code fonctionne a merveille et est 'grammaticalement'
correcte.

je soupçonne un PB d'un autre ordre.
Comme Jean parle de date, je crains fort que sa date soit du genre
05/12/2004
dans ce cas, il est normal que l'indice n'appartienne pas à la sélection.
le
'/' n'est pas autorisé en nom de feuille.

Il faudrait que Jean mette la date concernée au format jj-mm-aaaa, et là
ça
devrait marcher sans souci.

Bon Dimanche

Rai


"Joël GARBE" a écrit dans le message de news:
41b31489$0$16352$
Ma BA du dimanche ;-)))))

Sheets(worksheets("Feuil2").Range("B1").text).Visible =
xlSheetVeryHidden

Denis commence à fatiguer sns doute ;-)))
--

Bien cordialement,

Joël GARBE
www.joelgarbe.fr
"JEAN" a écrit dans le message de
news:

j'ai essayé avec les guimets, mais du coup j'ai une nouvelle erreur,
l'indice n'appartient pas à la selection

j'ai pourtant bien le nom de ma feuille qui est sur la cellule E3 de
la
feuille 2
donc "Feuil2!E3"

mais ca ne passe pas??????

"michdenis" wrote:

Bonjour Jean,

J'ai omis les guillemets entourant l'adresse de la plage

Utilise ceci :
Sheets(Range("Feuil2!B1").text).Visible = xlSheetVeryHidden


Salutations!



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

Sheets(Range(Feuil2!B1).text).Visible = xlSheetVeryHidden
cette ligne me genere un message d'erreur "objet requis".

ca ne passe pas pour tant j'ai bien mit les bonnes valeurs

merci


"michdenis" wrote:

Bonsoir Jean,

L'autre feuille, celle que tu viens d'insérer avec une date comme
nom
de l'onglet, il s'agit simplement que tu
utilises
son nom (sa date) dans la ligne de code suivante :

feuil1 'Sheets("Feuil1").Visible = xlSheetVeryHidden
feuil2 'Sheets("Feuil2").Visible = xlSheetVeryHidden

LA NOUVELLE FEUILLE AVEC UNE DATE COMME NOM:

'Si la date que prendra le nom de la feuille est dans la cellule B1
de
la feuil2, tu peux inscrire :

Sheets(Range(Feuil2!B1).text).Visible = xlSheetVeryHidden

Observe le point d'exclamation entre Feuil2 et la Cellule B1



Salutations !







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

bonsoir,
ce code est placé dans mon this workbook pour cacher ma feuille 1
Sheets("Feuil1").Visible = xlSheetVeryHidden
J'ai une feuille qui copie a chaque fois la feuille 2 sur une autre
feuille
qui^prendra comme nom une date.
mais je veux qu'a chaque fois que mon classeur se ferme
cette feuille soit masquer aussi
Etant donnée que c'est une copie de la feuille 2
comment ecrire le code en vba pour que cette feuille soit masqué
pour la feuille 1 et 2 je sais, mais pour cette feuille je souhaite
un
peu
d'aide.
feuil1 'Sheets("Feuil1").Visible = xlSheetVeryHidden
feuil2 'Sheets("Feuil2").Visible = xlSheetVeryHidden

merci de votre aide.























Avatar
michdenis
Bonjour Jean,

Comme je te l'ai conseillé, fait d'abord tout ton programme ... et assure-toi que tout fonctionne comme tu le veux.
Durant le temps que durera élaboration de ton projet, travaille seulement sur un classeur où rien n'est protégé. Ça va
te faciliter la tâche. Seulement après, tu t'occuperas de la protection de tes feuilles et des circonstances
particulières où elles seront ou non protégées.


Salutations!



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

non mais ca ne marche pas j'ai toujours l'indice n'appartient pas à la
selection




Merci Raimond ;-)

Je n'avais pas essayé le code de Denis (désolé Denis d'avoir mis en doute le
code !!!)

Espérons que Jean trouve l'origine de son Pb

On peut toujours rêver ;-)

--

Bien cordialement,

Joël GARBE
www.joelgarbe.fr
"Rai" a écrit dans le message de news:
41b31ab2$0$9057$
Salut,

Y fatigue pas Denis,
Sa ligne de code fonctionne a merveille et est 'grammaticalement' correcte.

je soupçonne un PB d'un autre ordre.
Comme Jean parle de date, je crains fort que sa date soit du genre
05/12/2004
dans ce cas, il est normal que l'indice n'appartienne pas à la sélection. le
'/' n'est pas autorisé en nom de feuille.

Il faudrait que Jean mette la date concernée au format jj-mm-aaaa, et là ça
devrait marcher sans souci.

Bon Dimanche

Rai


"Joël GARBE" a écrit dans le message de news:
41b31489$0$16352$
Ma BA du dimanche ;-)))))

Sheets(worksheets("Feuil2").Range("B1").text).Visible = xlSheetVeryHidden

Denis commence à fatiguer sns doute ;-)))
--

Bien cordialement,

Joël GARBE
www.joelgarbe.fr
"JEAN" a écrit dans le message de news:

j'ai essayé avec les guimets, mais du coup j'ai une nouvelle erreur,
l'indice n'appartient pas à la selection

j'ai pourtant bien le nom de ma feuille qui est sur la cellule E3 de la
feuille 2
donc "Feuil2!E3"

mais ca ne passe pas??????

"michdenis" wrote:

Bonjour Jean,

J'ai omis les guillemets entourant l'adresse de la plage

Utilise ceci :
Sheets(Range("Feuil2!B1").text).Visible = xlSheetVeryHidden


Salutations!



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

Sheets(Range(Feuil2!B1).text).Visible = xlSheetVeryHidden
cette ligne me genere un message d'erreur "objet requis".

ca ne passe pas pour tant j'ai bien mit les bonnes valeurs

merci


"michdenis" wrote:

Bonsoir Jean,

L'autre feuille, celle que tu viens d'insérer avec une date comme nom
de l'onglet, il s'agit simplement que tu
utilises
son nom (sa date) dans la ligne de code suivante :

feuil1 'Sheets("Feuil1").Visible = xlSheetVeryHidden
feuil2 'Sheets("Feuil2").Visible = xlSheetVeryHidden

LA NOUVELLE FEUILLE AVEC UNE DATE COMME NOM:

'Si la date que prendra le nom de la feuille est dans la cellule B1 de
la feuil2, tu peux inscrire :

Sheets(Range(Feuil2!B1).text).Visible = xlSheetVeryHidden

Observe le point d'exclamation entre Feuil2 et la Cellule B1



Salutations !







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

bonsoir,
ce code est placé dans mon this workbook pour cacher ma feuille 1
Sheets("Feuil1").Visible = xlSheetVeryHidden
J'ai une feuille qui copie a chaque fois la feuille 2 sur une autre
feuille
qui^prendra comme nom une date.
mais je veux qu'a chaque fois que mon classeur se ferme
cette feuille soit masquer aussi
Etant donnée que c'est une copie de la feuille 2
comment ecrire le code en vba pour que cette feuille soit masqué
pour la feuille 1 et 2 je sais, mais pour cette feuille je souhaite un
peu
d'aide.
feuil1 'Sheets("Feuil1").Visible = xlSheetVeryHidden
feuil2 'Sheets("Feuil2").Visible = xlSheetVeryHidden

merci de votre aide.





















Avatar
jps
un peu comme le gars qui peint le sol de son bureau et commence du côté de
la porte
jps

"michdenis" a écrit dans le message de
news:
Bonjour Jean,

Comme je te l'ai conseillé, fait d'abord tout ton programme ... et
assure-toi que tout fonctionne comme tu le veux.

Durant le temps que durera élaboration de ton projet, travaille seulement
sur un classeur où rien n'est protégé. Ça va

te faciliter la tâche. Seulement après, tu t'occuperas de la protection de
tes feuilles et des circonstances

particulières où elles seront ou non protégées.


Salutations!



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

non mais ca ne marche pas j'ai toujours l'indice n'appartient pas à la
selection




Merci Raimond ;-)

Je n'avais pas essayé le code de Denis (désolé Denis d'avoir mis en
doute le


code !!!)

Espérons que Jean trouve l'origine de son Pb

On peut toujours rêver ;-)

--

Bien cordialement,

Joël GARBE
www.joelgarbe.fr
"Rai" a écrit dans le message de news:
41b31ab2$0$9057$
Salut,

Y fatigue pas Denis,
Sa ligne de code fonctionne a merveille et est 'grammaticalement'
correcte.



je soupçonne un PB d'un autre ordre.
Comme Jean parle de date, je crains fort que sa date soit du genre
05/12/2004
dans ce cas, il est normal que l'indice n'appartienne pas à la
sélection. le


'/' n'est pas autorisé en nom de feuille.

Il faudrait que Jean mette la date concernée au format jj-mm-aaaa, et là
ça


devrait marcher sans souci.

Bon Dimanche

Rai


"Joël GARBE" a écrit dans le message de news:
41b31489$0$16352$
Ma BA du dimanche ;-)))))

Sheets(worksheets("Feuil2").Range("B1").text).Visible xlSheetVeryHidden

Denis commence à fatiguer sns doute ;-)))
--

Bien cordialement,

Joël GARBE
www.joelgarbe.fr
"JEAN" a écrit dans le message de
news:




j'ai essayé avec les guimets, mais du coup j'ai une nouvelle erreur,
l'indice n'appartient pas à la selection

j'ai pourtant bien le nom de ma feuille qui est sur la cellule E3 de
la




feuille 2
donc "Feuil2!E3"

mais ca ne passe pas??????

"michdenis" wrote:

Bonjour Jean,

J'ai omis les guillemets entourant l'adresse de la plage

Utilise ceci :
Sheets(Range("Feuil2!B1").text).Visible = xlSheetVeryHidden


Salutations!



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






Sheets(Range(Feuil2!B1).text).Visible = xlSheetVeryHidden
cette ligne me genere un message d'erreur "objet requis".

ca ne passe pas pour tant j'ai bien mit les bonnes valeurs

merci


"michdenis" wrote:

Bonsoir Jean,

L'autre feuille, celle que tu viens d'insérer avec une date comme
nom






de l'onglet, il s'agit simplement que tu
utilises
son nom (sa date) dans la ligne de code suivante :

feuil1 'Sheets("Feuil1").Visible = xlSheetVeryHidden
feuil2 'Sheets("Feuil2").Visible = xlSheetVeryHidden

LA NOUVELLE FEUILLE AVEC UNE DATE COMME NOM:

'Si la date que prendra le nom de la feuille est dans la cellule
B1 de






la feuil2, tu peux inscrire :

Sheets(Range(Feuil2!B1).text).Visible = xlSheetVeryHidden

Observe le point d'exclamation entre Feuil2 et la Cellule B1



Salutations !







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

bonsoir,
ce code est placé dans mon this workbook pour cacher ma feuille 1
Sheets("Feuil1").Visible = xlSheetVeryHidden
J'ai une feuille qui copie a chaque fois la feuille 2 sur une
autre






feuille
qui^prendra comme nom une date.
mais je veux qu'a chaque fois que mon classeur se ferme
cette feuille soit masquer aussi
Etant donnée que c'est une copie de la feuille 2
comment ecrire le code en vba pour que cette feuille soit masqué
pour la feuille 1 et 2 je sais, mais pour cette feuille je
souhaite un






peu
d'aide.
feuil1 'Sheets("Feuil1").Visible = xlSheetVeryHidden
feuil2 'Sheets("Feuil2").Visible = xlSheetVeryHidden

merci de votre aide.

























1 2