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 CheckBox récalcitrant

CheckBox récalcitrant

14 réponses
Avatar
Grosmou
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("D\EXCELL\CDS\MEMBRES.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
Signaler un problème avec ce contenu

4 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
Avatar
Philippe.R
Re,
Je ne suis pas assez familier des UF pour t'aider d'avantage ; nul doute qu'un plus féru que moi va
prendre le relais.
Bon courage
--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002

"Grosmou" a écrit dans le message de
news:%
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 écrit dans le message news:

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" a écrit dans le message de
news:
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 écrit dans le message news:

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" a écrit dans le message de
news:
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 écrit dans le message news:

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" a écrit dans le message de
news:
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" a écrit dans
le






message
news: 1c98601c42260$31b81950$
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



.































Avatar
Grosmou
Merci quand même,

Mais je crois qu'il va falloir lorsqu'il va dans "Liste" il affiche un autre
userform avec des boutons me dirigeant vers d'autres userform.
C'est ce que j'essaie maintenant et il semble que cela fonctionne.
Je vais devoir chercher à cacher l'userform1;

"Philippe.R" a écrit dans le message news:
O4$
Re,
Je ne suis pas assez familier des UF pour t'aider d'avantage ; nul doute
qu'un plus féru que moi va

prendre le relais.
Bon courage
--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002

"Grosmou" a écrit dans le message de
news:%
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 écrit dans le message news:

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" a écrit dans le message de
news:
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 écrit dans le message news:

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" a écrit dans le message de
news:
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 écrit dans le message
news:







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" a écrit dans le
message de







news:
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" a écrit
dans








le
message
news: 1c98601c42260$31b81950$
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



.



































Avatar
michdenis
Bonjour Grosmou,


Si tu éprouves de la difficulté à ouvrir un formulaire dans le classeur que tu viens d'ouvrir par programmation, tu
peux utiliser ce qui suit :

Dans le classeur qui s'ouvre et dont tu veux afficher un formulaire (userform)

Ajoute une macro à ce formulaire :

Sub AfficherLeFormulaire()
MonFormulaire.Show
End sub


Et dans ton classeur qui doit ouvrir ce classeur et afficher son formulaire, ceci :


Application.Workbooks.Open "D:EXCELLCDSMEMBRES.xls"

With ActiveWorkbook
.Worksheets("Liste").Select
LaMacro = "'" & .Name & "'!AfficherLeFormulaire"
Application.Run LaMacro
End With



Salutations!





"Grosmou" a écrit dans le message de news:
Merci quand même,

Mais je crois qu'il va falloir lorsqu'il va dans "Liste" il affiche un autre
userform avec des boutons me dirigeant vers d'autres userform.
C'est ce que j'essaie maintenant et il semble que cela fonctionne.
Je vais devoir chercher à cacher l'userform1;

"Philippe.R" a écrit dans le message news:
O4$
Re,
Je ne suis pas assez familier des UF pour t'aider d'avantage ; nul doute
qu'un plus féru que moi va

prendre le relais.
Bon courage
--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002

"Grosmou" a écrit dans le message de
news:%
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 écrit dans le message news:

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" a écrit dans le message de
news:
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 écrit dans le message news:

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" a écrit dans le message de
news:
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 écrit dans le message
news:







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" a écrit dans le
message de







news:
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" a écrit
dans








le
message
news: 1c98601c42260$31b81950$
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



.



































Avatar
Cestmoi
Merci Michdenis

"michdenis" a écrit dans le message news:
e#

Bonjour Grosmou,


Si tu éprouves de la difficulté à ouvrir un formulaire dans le classeur
que tu viens d'ouvrir par programmation, tu

peux utiliser ce qui suit :

Dans le classeur qui s'ouvre et dont tu veux afficher un formulaire
(userform)


Ajoute une macro à ce formulaire :

Sub AfficherLeFormulaire()
MonFormulaire.Show
End sub


Et dans ton classeur qui doit ouvrir ce classeur et afficher son
formulaire, ceci :



Application.Workbooks.Open "D:EXCELLCDSMEMBRES.xls"

With ActiveWorkbook
.Worksheets("Liste").Select
LaMacro = "'" & .Name & "'!AfficherLeFormulaire"
Application.Run LaMacro
End With



Salutations!





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

Merci quand même,

Mais je crois qu'il va falloir lorsqu'il va dans "Liste" il affiche un
autre

userform avec des boutons me dirigeant vers d'autres userform.
C'est ce que j'essaie maintenant et il semble que cela fonctionne.
Je vais devoir chercher à cacher l'userform1;

"Philippe.R" a écrit dans le message news:
O4$
Re,
Je ne suis pas assez familier des UF pour t'aider d'avantage ; nul doute
qu'un plus féru que moi va

prendre le relais.
Bon courage
--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002

"Grosmou" a écrit dans le message de
news:%
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 écrit dans le message news:

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" a écrit dans le message de
news:
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 écrit dans le message
news:






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" a écrit dans le message
de






news:
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 écrit dans le message
news:







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" a écrit dans le
message de







news:
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" a écrit
dans








le
message
news: 1c98601c42260$31b81950$
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



.








































1 2