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.

10 réponses

1 2
Avatar
michdenis
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
JEAN
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,

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
'tain, denis, fais gaffe oh....
ta facture va souffrir de quelques déductions bien légitimes...
jps

"michdenis" a écrit dans le message de
news:
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
JEAN
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
Joël GARBE
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
Rai
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
Joël GARBE
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
Rai
C'est un peu le suspense du Dimanche,
mieux que les niaiseries dominicales télévisuelles !

Jean trouvera-t-il ? ou ne trouvera-t-il pas ?

Amicalement,

Rai

P.S. : Ouh-là !! J'ai l'impression de devenir un éleveur de troll

"Joël GARBE" a écrit dans le message de news: 41b31ba0$0$11786$
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 ;-)

--



Avatar
JEAN
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