CheckBox récalcitrant

Bonsoir,
Essaie la syntaxe :

Workbooks.Open Filename:= _
"D:EXCELLCDSMEMBRES.xls"
Sheets("Liste").Select

--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002

"Grosmou" <nospam-af0509@teledisnet.be> a écrit dans le message de
news:uXWcCflIEHA.2480@tk2msftngp13.phx.gbl...

Bonsoir à Tous

Voilà mon problème
Sur un userform j'ai 4 checkbox
Lorsque je coche ce checkbox1 je vais dans un classeur qui doit me montrer
un autre userform à remplir
Mais voilà ca ne marche pas !!!
Quand je click sur le ChekBox1 je rempli tel que:
Private Sub CheckBox1_Click()

If CheckBox1 = True Then
Wordbooks.Open("DEXCELLCDSMEMBRES.xls").Worksheets("Liste").Select
End If
AJOUT.Show
End Sub

A chaque fois il me dit Dossier introuvable, vérifier l'orthographe ou le
chemin.

Où est mon erreur ???

Ce que j'ai fais à plusieurs reprises et c'est le bon chemin

Bonjour,

À première vue, il y a une erreur de syntaxe dans :

Wordbooks.Open("DEXCELLCDSMEMBRES.xls").Worksheets
("Liste").Select

On devrait plutôt lire :

Wordbooks.Open("D:EXCELLCDSMEMBRES.xls").Worksheets
("Liste").Select

mousnynao!

-----Message d'origine-----
Bonsoir à Tous

Voilà mon problème
Sur un userform j'ai 4 checkbox
Lorsque je coche ce checkbox1 je vais dans un classeur
qui doit me montrer

un autre userform à remplir
Mais voilà ca ne marche pas !!!
Quand je click sur le ChekBox1 je rempli tel que:
Private Sub CheckBox1_Click()

If CheckBox1 = True Then
Wordbooks.Open("DEXCELLCDSMEMBRES.xls").Worksheets
("Liste").Select

End If
AJOUT.Show
End Sub

A chaque fois il me dit Dossier introuvable, vérifier
l'orthographe ou le

chemin.

Où est mon erreur ???

Ce que j'ai fais à plusieurs reprises et c'est le bon
chemin

.

Merci Mousnynao et Philippe

Il va bien dans le classeur Membres car j'avais oublié de mettre les : comme
tu me l'as bien fait remarquer; mais maintenant après il doit me montrer
l'UserForm AJOUT et là il me dit Objet requis.
Là je coince aussi

"mousnynao" <anonymous@discussions.microsoft.com> a écrit dans le message
news: 1c98601c42260$31b81950$a501280a@phx.gbl...
Bonjour,

À première vue, il y a une erreur de syntaxe dans :

Wordbooks.Open("DEXCELLCDSMEMBRES.xls").Worksheets
("Liste").Select

On devrait plutôt lire :

Wordbooks.Open("D:EXCELLCDSMEMBRES.xls").Worksheets
("Liste").Select

mousnynao!

-----Message d'origine-----
Bonsoir à Tous

Voilà mon problème
Sur un userform j'ai 4 checkbox
Lorsque je coche ce checkbox1 je vais dans un classeur
qui doit me montrer

un autre userform à remplir
Mais voilà ca ne marche pas !!!
Quand je click sur le ChekBox1 je rempli tel que:
Private Sub CheckBox1_Click()

If CheckBox1 = True Then
Wordbooks.Open("DEXCELLCDSMEMBRES.xls").Worksheets
("Liste").Select

End If
AJOUT.Show
End Sub

A chaque fois il me dit Dossier introuvable, vérifier
l'orthographe ou le

chemin.

Où est mon erreur ???

Ce que j'ai fais à plusieurs reprises et c'est le bon
chemin

.

Bonjour,
Si le nom de ton Userform est bien AJOUT, la commande
AJOUT.show devrait fonctionner
--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002
Pour suivre le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"Grosmou" <nospam-af0509@teledisnet.be> a écrit dans le message de
news:OECAFGsIEHA.3528@TK2MSFTNGP09.phx.gbl...

Merci Mousnynao et Philippe

Il va bien dans le classeur Membres car j'avais oublié de mettre les : comme
tu me l'as bien fait remarquer; mais maintenant après il doit me montrer
l'UserForm AJOUT et là il me dit Objet requis.
Là je coince aussi

"mousnynao" <anonymous@discussions.microsoft.com> a écrit dans le message
news: 1c98601c42260$31b81950$a501280a@phx.gbl...
Bonjour,

À première vue, il y a une erreur de syntaxe dans :

Wordbooks.Open("DEXCELLCDSMEMBRES.xls").Worksheets
("Liste").Select

On devrait plutôt lire :

Wordbooks.Open("D:EXCELLCDSMEMBRES.xls").Worksheets
("Liste").Select

mousnynao!

-----Message d'origine-----
Bonsoir à Tous

Voilà mon problème
Sur un userform j'ai 4 checkbox
Lorsque je coche ce checkbox1 je vais dans un classeur
qui doit me montrer

un autre userform à remplir
Mais voilà ca ne marche pas !!!
Quand je click sur le ChekBox1 je rempli tel que:
Private Sub CheckBox1_Click()

If CheckBox1 = True Then
Wordbooks.Open("DEXCELLCDSMEMBRES.xls").Worksheets
("Liste").Select

End If
AJOUT.Show
End Sub

A chaque fois il me dit Dossier introuvable, vérifier
l'orthographe ou le

chemin.

Où est mon erreur ???

Ce que j'ai fais à plusieurs reprises et c'est le bon
chemin

.

Merci Philippe,
Mais il ne le fait pas.
Je précise que l'UserForm d'appel est dans un classeur qui quand je l'ouvre
il m'affiche un UF. Quand je clique sur le checkBox 1, de cet UF il va bien
dans le classeur demandé (grâce à vous) mais il n'affiche pas l'UF AJOUT:
Objet requis dit-il. Cet UF se trouve sur la feuille "Liste" du
classeur"Membres" Cela peut-il jouer un rôle ?
Je lui demande d'aller dans le classeur X puis dans la feuille Y et la de
m'afficher l'UF. Peut-être après le End If je devrais mettre quelque chose
mais je ne sais pas ?

"Philippe.R" <A_S_rauphil@wanadoo.fr> a écrit dans le message news:
OR03lUsIEHA.2928@TK2MSFTNGP10.phx.gbl...

Bonjour,
Si le nom de ton Userform est bien AJOUT, la commande
AJOUT.show devrait fonctionner
--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002
Pour suivre le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"Grosmou" <nospam-af0509@teledisnet.be> a écrit dans le message de
news:OECAFGsIEHA.3528@TK2MSFTNGP09.phx.gbl...

Merci Mousnynao et Philippe

Il va bien dans le classeur Membres car j'avais oublié de mettre les :
comme

tu me l'as bien fait remarquer; mais maintenant après il doit me montrer
l'UserForm AJOUT et là il me dit Objet requis.
Là je coince aussi

"mousnynao" <anonymous@discussions.microsoft.com> a écrit dans le
message

news: 1c98601c42260$31b81950$a501280a@phx.gbl...
Bonjour,

À première vue, il y a une erreur de syntaxe dans :

Wordbooks.Open("DEXCELLCDSMEMBRES.xls").Worksheets
("Liste").Select

On devrait plutôt lire :

Wordbooks.Open("D:EXCELLCDSMEMBRES.xls").Worksheets
("Liste").Select

mousnynao!

-----Message d'origine-----
Bonsoir à Tous

Voilà mon problème
Sur un userform j'ai 4 checkbox
Lorsque je coche ce checkbox1 je vais dans un classeur
qui doit me montrer

un autre userform à remplir
Mais voilà ca ne marche pas !!!
Quand je click sur le ChekBox1 je rempli tel que:
Private Sub CheckBox1_Click()

If CheckBox1 = True Then
Wordbooks.Open("DEXCELLCDSMEMBRES.xls").Worksheets
("Liste").Select

End If
AJOUT.Show
End Sub

A chaque fois il me dit Dossier introuvable, vérifier
l'orthographe ou le

chemin.

Où est mon erreur ???

Ce que j'ai fais à plusieurs reprises et c'est le bon
chemin

.

Re,
Si ce n'est pas secret, copie ici l'ensemble de ton code, ce sera peut être plus facile de t'aider.
--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002

"Grosmou" <nospam-af0509@teledisnet.be> a écrit dans le message de
news:OaN00jsIEHA.3440@TK2MSFTNGP09.phx.gbl...

Merci Philippe,
Mais il ne le fait pas.
Je précise que l'UserForm d'appel est dans un classeur qui quand je l'ouvre
il m'affiche un UF. Quand je clique sur le checkBox 1, de cet UF il va bien
dans le classeur demandé (grâce à vous) mais il n'affiche pas l'UF AJOUT:
Objet requis dit-il. Cet UF se trouve sur la feuille "Liste" du
classeur"Membres" Cela peut-il jouer un rôle ?
Je lui demande d'aller dans le classeur X puis dans la feuille Y et la de
m'afficher l'UF. Peut-être après le End If je devrais mettre quelque chose
mais je ne sais pas ?

"Philippe.R" <A_S_rauphil@wanadoo.fr> a écrit dans le message news:
OR03lUsIEHA.2928@TK2MSFTNGP10.phx.gbl...

Bonjour,
Si le nom de ton Userform est bien AJOUT, la commande
AJOUT.show devrait fonctionner
--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002
Pour suivre le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"Grosmou" <nospam-af0509@teledisnet.be> a écrit dans le message de
news:OECAFGsIEHA.3528@TK2MSFTNGP09.phx.gbl...

Merci Mousnynao et Philippe

Il va bien dans le classeur Membres car j'avais oublié de mettre les :
comme

tu me l'as bien fait remarquer; mais maintenant après il doit me montrer
l'UserForm AJOUT et là il me dit Objet requis.
Là je coince aussi

"mousnynao" <anonymous@discussions.microsoft.com> a écrit dans le
message

news: 1c98601c42260$31b81950$a501280a@phx.gbl...
Bonjour,

À première vue, il y a une erreur de syntaxe dans :

Wordbooks.Open("DEXCELLCDSMEMBRES.xls").Worksheets
("Liste").Select

On devrait plutôt lire :

Wordbooks.Open("D:EXCELLCDSMEMBRES.xls").Worksheets
("Liste").Select

mousnynao!

-----Message d'origine-----
Bonsoir à Tous

Voilà mon problème
Sur un userform j'ai 4 checkbox
Lorsque je coche ce checkbox1 je vais dans un classeur
qui doit me montrer

un autre userform à remplir
Mais voilà ca ne marche pas !!!
Quand je click sur le ChekBox1 je rempli tel que:
Private Sub CheckBox1_Click()

If CheckBox1 = True Then
Wordbooks.Open("DEXCELLCDSMEMBRES.xls").Worksheets
("Liste").Select

End If
AJOUT.Show
End Sub

A chaque fois il me dit Dossier introuvable, vérifier
l'orthographe ou le

chemin.

Où est mon erreur ???

Ce que j'ai fais à plusieurs reprises et c'est le bon
chemin

.

Voilà Philippe et encore merci

Ceci est le code du 1er UserForm lorsque j’ouvre le classeur CDS
Private Sub Workbook_Open()

UserForm1.Show

End Sub

Sur cet userform j’ai plusieurs CheckBox

Private Sub CheckBox1_Click()

If CheckBox1 = True Then

Workbooks.Open Filename:="D:EXCELLCDSMEMBRES.xls"

Sheets("liste").Select

End If

AJOUT.Show

End Sub



Et c’est ici qu’il me dit Objet requis à AJOUT.Show

Qui est un userform du classeur « Membres » feuille « liste » qui me permet
de remplir les données.

"Philippe.R" <A_S_rauphil@wanadoo.fr> a écrit dans le message news:
OhSyr4sIEHA.2744@TK2MSFTNGP10.phx.gbl...

Re,
Si ce n'est pas secret, copie ici l'ensemble de ton code, ce sera peut
être plus facile de t'aider.

--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002

"Grosmou" <nospam-af0509@teledisnet.be> a écrit dans le message de
news:OaN00jsIEHA.3440@TK2MSFTNGP09.phx.gbl...

Merci Philippe,
Mais il ne le fait pas.
Je précise que l'UserForm d'appel est dans un classeur qui quand je
l'ouvre

il m'affiche un UF. Quand je clique sur le checkBox 1, de cet UF il va
bien

dans le classeur demandé (grâce à vous) mais il n'affiche pas l'UF
AJOUT:

Objet requis dit-il. Cet UF se trouve sur la feuille "Liste" du
classeur"Membres" Cela peut-il jouer un rôle ?
Je lui demande d'aller dans le classeur X puis dans la feuille Y et la
de

m'afficher l'UF. Peut-être après le End If je devrais mettre quelque
chose

mais je ne sais pas ?

"Philippe.R" <A_S_rauphil@wanadoo.fr> a écrit dans le message news:
OR03lUsIEHA.2928@TK2MSFTNGP10.phx.gbl...

Bonjour,
Si le nom de ton Userform est bien AJOUT, la commande
AJOUT.show devrait fonctionner
--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002
Pour suivre le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"Grosmou" <nospam-af0509@teledisnet.be> a écrit dans le message de
news:OECAFGsIEHA.3528@TK2MSFTNGP09.phx.gbl...

Merci Mousnynao et Philippe

Il va bien dans le classeur Membres car j'avais oublié de mettre les
:

comme

tu me l'as bien fait remarquer; mais maintenant après il doit me
montrer

l'UserForm AJOUT et là il me dit Objet requis.
Là je coince aussi

"mousnynao" <anonymous@discussions.microsoft.com> a écrit dans le
message

news: 1c98601c42260$31b81950$a501280a@phx.gbl...
Bonjour,

À première vue, il y a une erreur de syntaxe dans :

Wordbooks.Open("DEXCELLCDSMEMBRES.xls").Worksheets
("Liste").Select

On devrait plutôt lire :

Wordbooks.Open("D:EXCELLCDSMEMBRES.xls").Worksheets
("Liste").Select

mousnynao!

-----Message d'origine-----
Bonsoir à Tous

Voilà mon problème
Sur un userform j'ai 4 checkbox
Lorsque je coche ce checkbox1 je vais dans un classeur
qui doit me montrer

un autre userform à remplir
Mais voilà ca ne marche pas !!!
Quand je click sur le ChekBox1 je rempli tel que:
Private Sub CheckBox1_Click()

If CheckBox1 = True Then
Wordbooks.Open("DEXCELLCDSMEMBRES.xls").Worksheets
("Liste").Select

End If
AJOUT.Show
End Sub

A chaque fois il me dit Dossier introuvable, vérifier
l'orthographe ou le

chemin.

Où est mon erreur ???

Ce que j'ai fais à plusieurs reprises et c'est le bon
chemin

.

Philippe,

J'ai oublié:

Les CheckBox ouvrent systématiquement le même classeur"Membres"et la même
feuille "liste" mais avec un userform différent.
CB1 montre UF AJOUT
CB2 montre UF Afficher
CB3 montre UF Suppression
CB4 montre UF Modifier
J'espère avoir été suffisamment clair ??

"Grosmou" <nospam-af0509@teledisnet.be> a écrit dans le message news:
eGaOEotIEHA.3440@TK2MSFTNGP09.phx.gbl...

Voilà Philippe et encore merci

Ceci est le code du 1er UserForm lorsque j’ouvre le classeur CDS
Private Sub Workbook_Open()

UserForm1.Show

End Sub

Sur cet userform j’ai plusieurs CheckBox

Private Sub CheckBox1_Click()

If CheckBox1 = True Then

Workbooks.Open Filename:="D:EXCELLCDSMEMBRES.xls"

Sheets("liste").Select

End If

AJOUT.Show

End Sub



Et c’est ici qu’il me dit Objet requis à AJOUT.Show

Qui est un userform du classeur « Membres » feuille « liste » qui me
permet

de remplir les données.

"Philippe.R" <A_S_rauphil@wanadoo.fr> a écrit dans le message news:
OhSyr4sIEHA.2744@TK2MSFTNGP10.phx.gbl...

Re,
Si ce n'est pas secret, copie ici l'ensemble de ton code, ce sera peut
être plus facile de t'aider.

--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002

"Grosmou" <nospam-af0509@teledisnet.be> a écrit dans le message de
news:OaN00jsIEHA.3440@TK2MSFTNGP09.phx.gbl...

Merci Philippe,
Mais il ne le fait pas.
Je précise que l'UserForm d'appel est dans un classeur qui quand je
l'ouvre

il m'affiche un UF. Quand je clique sur le checkBox 1, de cet UF il va
bien

dans le classeur demandé (grâce à vous) mais il n'affiche pas l'UF
AJOUT:

Objet requis dit-il. Cet UF se trouve sur la feuille "Liste" du
classeur"Membres" Cela peut-il jouer un rôle ?
Je lui demande d'aller dans le classeur X puis dans la feuille Y et la
de

m'afficher l'UF. Peut-être après le End If je devrais mettre quelque
chose

mais je ne sais pas ?

"Philippe.R" <A_S_rauphil@wanadoo.fr> a écrit dans le message news:
OR03lUsIEHA.2928@TK2MSFTNGP10.phx.gbl...

Bonjour,
Si le nom de ton Userform est bien AJOUT, la commande
AJOUT.show devrait fonctionner
--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002
Pour suivre le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"Grosmou" <nospam-af0509@teledisnet.be> a écrit dans le message de
news:OECAFGsIEHA.3528@TK2MSFTNGP09.phx.gbl...

Merci Mousnynao et Philippe

Il va bien dans le classeur Membres car j'avais oublié de mettre
les

:

comme

tu me l'as bien fait remarquer; mais maintenant après il doit me
montrer

l'UserForm AJOUT et là il me dit Objet requis.
Là je coince aussi

"mousnynao" <anonymous@discussions.microsoft.com> a écrit dans le
message

news: 1c98601c42260$31b81950$a501280a@phx.gbl...
Bonjour,

À première vue, il y a une erreur de syntaxe dans :

Wordbooks.Open("DEXCELLCDSMEMBRES.xls").Worksheets
("Liste").Select

On devrait plutôt lire :

Wordbooks.Open("D:EXCELLCDSMEMBRES.xls").Worksheets
("Liste").Select

mousnynao!

-----Message d'origine-----
Bonsoir à Tous

Voilà mon problème
Sur un userform j'ai 4 checkbox
Lorsque je coche ce checkbox1 je vais dans un classeur
qui doit me montrer

un autre userform à remplir
Mais voilà ca ne marche pas !!!
Quand je click sur le ChekBox1 je rempli tel que:
Private Sub CheckBox1_Click()

If CheckBox1 = True Then
Wordbooks.Open("DEXCELLCDSMEMBRES.xls").Worksheets
("Liste").Select

End If
AJOUT.Show
End Sub

A chaque fois il me dit Dossier introuvable, vérifier
l'orthographe ou le

chemin.

Où est mon erreur ???

Ce que j'ai fais à plusieurs reprises et c'est le bon
chemin

.

Re,
Deux pistes me semble t il :
passer AJOUT.Show dans le test, avant le end if, de manière à bien le lier au bon classeur
ou bien placer AJOUT.Show dans la procédure open du classeur MEMBRES.xls ou activate de la feuille
liste dudit classeur
--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002

"Grosmou" <nospam-af0509@teledisnet.be> a écrit dans le message de
news:eGaOEotIEHA.3440@TK2MSFTNGP09.phx.gbl...

Voilà Philippe et encore merci

Ceci est le code du 1er UserForm lorsque j'ouvre le classeur CDS
Private Sub Workbook_Open()

UserForm1.Show

End Sub

Sur cet userform j'ai plusieurs CheckBox

Private Sub CheckBox1_Click()

If CheckBox1 = True Then

Workbooks.Open Filename:="D:EXCELLCDSMEMBRES.xls"

Sheets("liste").Select

End If

AJOUT.Show

End Sub



Et c'est ici qu'il me dit Objet requis à AJOUT.Show

Qui est un userform du classeur « Membres » feuille « liste » qui me permet
de remplir les données.

"Philippe.R" <A_S_rauphil@wanadoo.fr> a écrit dans le message news:
OhSyr4sIEHA.2744@TK2MSFTNGP10.phx.gbl...

Re,
Si ce n'est pas secret, copie ici l'ensemble de ton code, ce sera peut
être plus facile de t'aider.

--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002

"Grosmou" <nospam-af0509@teledisnet.be> a écrit dans le message de
news:OaN00jsIEHA.3440@TK2MSFTNGP09.phx.gbl...

Merci Philippe,
Mais il ne le fait pas.
Je précise que l'UserForm d'appel est dans un classeur qui quand je
l'ouvre

il m'affiche un UF. Quand je clique sur le checkBox 1, de cet UF il va
bien

dans le classeur demandé (grâce à vous) mais il n'affiche pas l'UF
AJOUT:

Objet requis dit-il. Cet UF se trouve sur la feuille "Liste" du
classeur"Membres" Cela peut-il jouer un rôle ?
Je lui demande d'aller dans le classeur X puis dans la feuille Y et la
de

m'afficher l'UF. Peut-être après le End If je devrais mettre quelque
chose

mais je ne sais pas ?

"Philippe.R" <A_S_rauphil@wanadoo.fr> a écrit dans le message news:
OR03lUsIEHA.2928@TK2MSFTNGP10.phx.gbl...

Bonjour,
Si le nom de ton Userform est bien AJOUT, la commande
AJOUT.show devrait fonctionner
--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002
Pour suivre le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"Grosmou" <nospam-af0509@teledisnet.be> a écrit dans le message de
news:OECAFGsIEHA.3528@TK2MSFTNGP09.phx.gbl...

Merci Mousnynao et Philippe

Il va bien dans le classeur Membres car j'avais oublié de mettre les
:

comme

tu me l'as bien fait remarquer; mais maintenant après il doit me
montrer

l'UserForm AJOUT et là il me dit Objet requis.
Là je coince aussi

"mousnynao" <anonymous@discussions.microsoft.com> a écrit dans le
message

news: 1c98601c42260$31b81950$a501280a@phx.gbl...
Bonjour,

À première vue, il y a une erreur de syntaxe dans :

Wordbooks.Open("DEXCELLCDSMEMBRES.xls").Worksheets
("Liste").Select

On devrait plutôt lire :

Wordbooks.Open("D:EXCELLCDSMEMBRES.xls").Worksheets
("Liste").Select

mousnynao!

-----Message d'origine-----
Bonsoir à Tous

Voilà mon problème
Sur un userform j'ai 4 checkbox
Lorsque je coche ce checkbox1 je vais dans un classeur
qui doit me montrer

un autre userform à remplir
Mais voilà ca ne marche pas !!!
Quand je click sur le ChekBox1 je rempli tel que:
Private Sub CheckBox1_Click()

If CheckBox1 = True Then
Wordbooks.Open("DEXCELLCDSMEMBRES.xls").Worksheets
("Liste").Select

End If
AJOUT.Show
End Sub

A chaque fois il me dit Dossier introuvable, vérifier
l'orthographe ou le

chemin.

Où est mon erreur ???

Ce que j'ai fais à plusieurs reprises et c'est le bon
chemin

.

Ca ne marche pas, toujours Objet requis. Devant AJOUT.Show !!
Si j'ajoute dans la feuille "Membres" Liste" lors de l'ouverture de la
feuille cela va mais alors il faut que je click sur l'UF pour atteindre le 2
d UF et ainsi de suite et c'est ce que je voulais éviter.

"Philippe.R" <A_S_rauphil@wanadoo.fr> a écrit dans le message news:
efN3zwtIEHA.2764@TK2MSFTNGP10.phx.gbl...

Re,
Deux pistes me semble t il :
passer AJOUT.Show dans le test, avant le end if, de manière à bien le
lier au bon classeur

ou bien placer AJOUT.Show dans la procédure open du classeur MEMBRES.xls
ou activate de la feuille

liste dudit classeur
--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002

"Grosmou" <nospam-af0509@teledisnet.be> a écrit dans le message de
news:eGaOEotIEHA.3440@TK2MSFTNGP09.phx.gbl...

Voilà Philippe et encore merci

Ceci est le code du 1er UserForm lorsque j'ouvre le classeur CDS
Private Sub Workbook_Open()

UserForm1.Show

End Sub

Sur cet userform j'ai plusieurs CheckBox

Private Sub CheckBox1_Click()

If CheckBox1 = True Then

Workbooks.Open Filename:="D:EXCELLCDSMEMBRES.xls"

Sheets("liste").Select

End If

AJOUT.Show

End Sub



Et c'est ici qu'il me dit Objet requis à AJOUT.Show

Qui est un userform du classeur « Membres » feuille « liste » qui me
permet

de remplir les données.

"Philippe.R" <A_S_rauphil@wanadoo.fr> a écrit dans le message news:
OhSyr4sIEHA.2744@TK2MSFTNGP10.phx.gbl...

Re,
Si ce n'est pas secret, copie ici l'ensemble de ton code, ce sera peut
être plus facile de t'aider.

--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002

"Grosmou" <nospam-af0509@teledisnet.be> a écrit dans le message de
news:OaN00jsIEHA.3440@TK2MSFTNGP09.phx.gbl...

Merci Philippe,
Mais il ne le fait pas.
Je précise que l'UserForm d'appel est dans un classeur qui quand je
l'ouvre

il m'affiche un UF. Quand je clique sur le checkBox 1, de cet UF il
va

bien

dans le classeur demandé (grâce à vous) mais il n'affiche pas l'UF
AJOUT:

Objet requis dit-il. Cet UF se trouve sur la feuille "Liste" du
classeur"Membres" Cela peut-il jouer un rôle ?
Je lui demande d'aller dans le classeur X puis dans la feuille Y et
la

de

m'afficher l'UF. Peut-être après le End If je devrais mettre quelque
chose

mais je ne sais pas ?

"Philippe.R" <A_S_rauphil@wanadoo.fr> a écrit dans le message news:
OR03lUsIEHA.2928@TK2MSFTNGP10.phx.gbl...

Bonjour,
Si le nom de ton Userform est bien AJOUT, la commande
AJOUT.show devrait fonctionner
--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002
Pour suivre le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"Grosmou" <nospam-af0509@teledisnet.be> a écrit dans le message de
news:OECAFGsIEHA.3528@TK2MSFTNGP09.phx.gbl...

Merci Mousnynao et Philippe

Il va bien dans le classeur Membres car j'avais oublié de mettre
les

:

comme

tu me l'as bien fait remarquer; mais maintenant après il doit me
montrer

l'UserForm AJOUT et là il me dit Objet requis.
Là je coince aussi

"mousnynao" <anonymous@discussions.microsoft.com> a écrit dans
le

message

news: 1c98601c42260$31b81950$a501280a@phx.gbl...
Bonjour,

À première vue, il y a une erreur de syntaxe dans :

Wordbooks.Open("DEXCELLCDSMEMBRES.xls").Worksheets
("Liste").Select

On devrait plutôt lire :

Wordbooks.Open("D:EXCELLCDSMEMBRES.xls").Worksheets
("Liste").Select

mousnynao!

-----Message d'origine-----
Bonsoir à Tous

Voilà mon problème
Sur un userform j'ai 4 checkbox
Lorsque je coche ce checkbox1 je vais dans un classeur
qui doit me montrer

un autre userform à remplir
Mais voilà ca ne marche pas !!!
Quand je click sur le ChekBox1 je rempli tel que:
Private Sub CheckBox1_Click()

If CheckBox1 = True Then
Wordbooks.Open("DEXCELLCDSMEMBRES.xls").Worksheets
("Liste").Select

End If
AJOUT.Show
End Sub

A chaque fois il me dit Dossier introuvable, vérifier
l'orthographe ou le

chemin.

Où est mon erreur ???

Ce que j'ai fais à plusieurs reprises et c'est le bon
chemin

.