faire apparaitre une feuille des l'ouverture du fichier

bonjour

ceci devrait faire

pour ouvrir la première feuille

mettre dans ThisWorkbook

Private Sub Workbook_Open()
Sheets(1).Activate
End Sub


salutations

RGI

Bonjour à tous

voila j'ai un petit truc à vous demander, mon fichier excel contient
plusieurs feuilles dans une est le menu, je voudrais qu'a chaque
ouverture de mon fichier que mon menu apparaissent

Cordialement
kaji

*kaji <jaafar.kabli@gmail.com> que je salut a écrit *:

Bonjour à tous

voila j'ai un petit truc à vous demander, mon fichier excel contient
plusieurs feuilles dans une est le menu, je voudrais qu'a chaque
ouverture de mon fichier que mon menu apparaissent

Cordialement
kaji

Dans thisworkbook

Private Sub Workbook_Open()
Sheets("menu").Select
End Sub

--
--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Have a nice day
Oliv'
Pour me joindre : http://cerbermail.com/?V8r2o1YHl4
les sites références:
Excel :http://www.excelabo.net http://xcell05.free.fr/
http://dj.joss.free.fr/
http://frederic.sigonneau.free.fr/ http://www.excel-vba-francais.com/
Word : http://faqword.free.fr/
Outlook : http://faq.outlook.free.fr/
les archives : http://groups.google.com/group/microsoft.public.fr.outlook
OE6 : http://www.faqoe.com/
Sql : http://sqlpro.developpez.com/
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

merci bcp a tous les deux
ca marche

est ce que je pourrais encore vous demander un truc, voila j'ai
restrint l'acces a des feuilles en demandant un mot de passe lorsque
j'appuie sur un boutton, le probleme c'est que lorsque je fais rentrer
mon mot de passe, il apparait dans la zone de texte normalement, je
voudrais si c possible qu'io puisse apparaitre en astérixe, voila le
code que j'ai rentré

Private sub Commandbutton1_click()

if Application.inputbox(prompt:="mot de passe vers feuille
1",Type:=2)<>"toto" then
Msgbox " mauvais mot de passe"
else
with thisworkbook.Sheets("feuille1").visible = true
.Activate
end with
end if

end sub

et merci pour votre aide
Cordialement Kaji

Oliv' (supprimerceci) wrote:

*kaji <jaafar.kabli@gmail.com> que je salut a écrit *:

Bonjour à tous

voila j'ai un petit truc à vous demander, mon fichier excel contient
plusieurs feuilles dans une est le menu, je voudrais qu'a chaque
ouverture de mon fichier que mon menu apparaissent

Cordialement
kaji

Dans thisworkbook

Private Sub Workbook_Open()
Sheets("menu").Select
End Sub

--
--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Have a nice day
Oliv'
Pour me joindre : http://cerbermail.com/?V8r2o1YHl4
les sites références:
Excel :http://www.excelabo.net http://xcell05.free.fr/
http://dj.joss.free.fr/
http://frederic.sigonneau.free.fr/ http://www.excel-vba-francais.com/
Word : http://faqword.free.fr/
Outlook : http://faq.outlook.free.fr/
les archives : http://groups.google.com/group/microsoft.public.fr.outlook
OE6 : http://www.faqoe.com/
Sql : http://sqlpro.developpez.com/
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

*kaji <jaafar.kabli@gmail.com> que je salut a écrit *:

merci bcp a tous les deux
ca marche

est ce que je pourrais encore vous demander un truc, voila j'ai
restrint l'acces a des feuilles en demandant un mot de passe lorsque
j'appuie sur un boutton, le probleme c'est que lorsque je fais rentrer
mon mot de passe, il apparait dans la zone de texte normalement, je
voudrais si c possible qu'io puisse apparaitre en astérixe, voila le
code que j'ai rentré

à la place d'un inputbox il faut utiliser un userform sur lequel tu auras un
textbox avec en propriété

PasswordChar="*"

--
--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Have a nice day
Oliv'
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

merci Oliv' pour ton aide, mais voila je sais pas encore comment ecrire
le code j'ai ma useforme que j'ai crée avec un textbox
mais comment ecrire le code je sais pas
merci d'avance pour ton aide


Oliv' supprimerceci wrote:

*kaji <jaafar.kabli@gmail.com> que je salut a écrit *:

merci bcp a tous les deux
ca marche

est ce que je pourrais encore vous demander un truc, voila j'ai
restrint l'acces a des feuilles en demandant un mot de passe lorsque
j'appuie sur un boutton, le probleme c'est que lorsque je fais rentrer
mon mot de passe, il apparait dans la zone de texte normalement, je
voudrais si c possible qu'io puisse apparaitre en astérixe, voila le
code que j'ai rentré

à la place d'un inputbox il faut utiliser un userform sur lequel tu aur as un
textbox avec en propriété

PasswordChar="*"

--
--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Have a nice day
Oliv'
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

*kaji <jaafar.kabli@gmail.com> que je salut a écrit *:

merci Oliv' pour ton aide, mais voila je sais pas encore comment
ecrire le code j'ai ma useforme que j'ai crée avec un textbox
mais comment ecrire le code je sais pas
merci d'avance pour ton aide

Donc dans un userform un Textbox1 pour le pass et un bouton
CommandButton1_Click pour OK

Private Sub CommandButton1_Click()
Me.Hide
End Sub

Private Sub UserForm_Initialize()
TextBox1.PasswordChar = "*"
End Sub

dans ta macro

' pour afficher la boite de dialogue
userform1.show

if userform1.TextBox1.Text= "toto" then

...
' à la fin
unload userform1

OK ?

Oliv' supprimerceci wrote:

*kaji <jaafar.kabli@gmail.com> que je salut a écrit *:

merci bcp a tous les deux
ca marche

est ce que je pourrais encore vous demander un truc, voila j'ai
restrint l'acces a des feuilles en demandant un mot de passe lorsque
j'appuie sur un boutton, le probleme c'est que lorsque je fais
rentrer mon mot de passe, il apparait dans la zone de texte
normalement, je voudrais si c possible qu'io puisse apparaitre en
astérixe, voila le code que j'ai rentré

à la place d'un inputbox il faut utiliser un userform sur lequel tu
auras un textbox avec en propriété

PasswordChar="*"

J4AI FAIT COME TU M4AS DIT MAIS CA MARCHE PAS JE COMPREND PAS VOILA CE
QUE J4AI ECRIS DANS MA MACRO

Private Sub CommandButton1_Click()

userform1.Show
if userform1.TextBox1.Text= "toto" then
with thisworkbook.sheets("feuille1")
.visible = true
.Activate
end with
Else
msgbox("mdp faux")
end if
unload userform1

end sub

quand je lance ma macro il me fait erreur et je sais pas pourquoi,
merci bcp pour ton aide, je suis coincé avec ca depuis le matin


Oliv' (supprimerceci) wrote:

*kaji <jaafar.kabli@gmail.com> que je salut a écrit *:

merci Oliv' pour ton aide, mais voila je sais pas encore comment
ecrire le code j'ai ma useforme que j'ai crée avec un textbox
mais comment ecrire le code je sais pas
merci d'avance pour ton aide

Donc dans un userform un Textbox1 pour le pass et un bouton
CommandButton1_Click pour OK

Private Sub CommandButton1_Click()
Me.Hide
End Sub

Private Sub UserForm_Initialize()
TextBox1.PasswordChar = "*"
End Sub

dans ta macro

' pour afficher la boite de dialogue
userform1.show

if userform1.TextBox1.Text= "toto" then

...
' à la fin
unload userform1

OK ?

Oliv' supprimerceci wrote:

*kaji <jaafar.kabli@gmail.com> que je salut a écrit *:

merci bcp a tous les deux
ca marche

est ce que je pourrais encore vous demander un truc, voila j'ai
restrint l'acces a des feuilles en demandant un mot de passe lorsque
j'appuie sur un boutton, le probleme c'est que lorsque je fais
rentrer mon mot de passe, il apparait dans la zone de texte
normalement, je voudrais si c possible qu'io puisse apparaitre en
astérixe, voila le code que j'ai rentré

à la place d'un inputbox il faut utiliser un userform sur lequel tu
auras un textbox avec en propriété

PasswordChar="*"

*kaji <jaafar.kabli@gmail.com> que je salut a écrit *:

J4AI FAIT COME TU M4AS DIT MAIS CA MARCHE PAS JE COMPREND PAS VOILA CE
QUE J4AI ECRIS DANS MA MACRO

euh presque ;-)))

tu met les 2 macros ci dessous dans le code de userform1

Private Sub CommandButton1_Click()
Me.Hide
End Sub

Private Sub UserForm_Initialize()
TextBox1.PasswordChar = "*"
End Sub

dans ta macro dans un module

sub mamacro()
userform1.Show
if userform1.TextBox1.Text= "toto" then
with thisworkbook.sheets("feuille1")
.visible = true
.Activate
end with
Else
msgbox("mdp faux")
end if
unload userform1
end sub

et la macro à executer c'est MAMACRO

OK ?

Oliv' supprimerceci wrote:

*kaji <jaafar.kabli@gmail.com> que je salut a écrit *:

merci bcp a tous les deux
ca marche

est ce que je pourrais encore vous demander un truc, voila j'ai
restrint l'acces a des feuilles en demandant un mot de passe
lorsque j'appuie sur un boutton, le probleme c'est que lorsque je
fais rentrer mon mot de passe, il apparait dans la zone de texte
normalement, je voudrais si c possible qu'io puisse apparaitre en
astérixe, voila le code que j'ai rentré

à la place d'un inputbox il faut utiliser un userform sur lequel tu
auras un textbox avec en propriété

PasswordChar="*"

un grand merci, j'ai refait la manip et ca marche cette fois, c
géniale,
merci encore une fois pour ton aide


Oliv' (supprimerceci) wrote:

*kaji <jaafar.kabli@gmail.com> que je salut a écrit *:

merci Oliv' pour ton aide, mais voila je sais pas encore comment
ecrire le code j'ai ma useforme que j'ai crée avec un textbox
mais comment ecrire le code je sais pas
merci d'avance pour ton aide

Donc dans un userform un Textbox1 pour le pass et un bouton
CommandButton1_Click pour OK

Private Sub CommandButton1_Click()
Me.Hide
End Sub

Private Sub UserForm_Initialize()
TextBox1.PasswordChar = "*"
End Sub

dans ta macro

' pour afficher la boite de dialogue
userform1.show

if userform1.TextBox1.Text= "toto" then

...
' à la fin
unload userform1

OK ?

Oliv' supprimerceci wrote:

*kaji <jaafar.kabli@gmail.com> que je salut a écrit *:

merci bcp a tous les deux
ca marche

est ce que je pourrais encore vous demander un truc, voila j'ai
restrint l'acces a des feuilles en demandant un mot de passe lorsque
j'appuie sur un boutton, le probleme c'est que lorsque je fais
rentrer mon mot de passe, il apparait dans la zone de texte
normalement, je voudrais si c possible qu'io puisse apparaitre en
astérixe, voila le code que j'ai rentré

à la place d'un inputbox il faut utiliser un userform sur lequel tu
auras un textbox avec en propriété

PasswordChar="*"