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 Lancement d'un userform, suite....

Lancement d'un userform, suite....

9 réponses
Avatar
Michel HOLDERITH
Bonjour tout le monde,

Le 13.12.04 (08H11) j'avais demande comment lancer un Userform d'un autre
fichier.

Du classeur Classeur2.xls

Application.Run("Classeur1.xls!Affiche_UserForm")

Dans le classeur Classeur1.xls

Sub Affiche_UserForm ()
Userform1.show
End sub

Ma question est la suivante :

Si je me trouve dans Classeur2.xls, comment puis-je faire pour afficher
Userform1 du classeur Classeur1.xls et fermer le classeur Classeur2.xls ?

D'avance un grand merci,

@+
Michel.

P.S. : Pour l'explication de cette demande.....
J'ai un fichier 1 qui gere des userforms avec Excel en
application.visible=false
Apres une validation, cela a pour effet de fermer mon userform du fichier 1
pour ouvrir un fichier 2 en application.visible=true.
Je peux modifier mon fichier 2 a ma convenance, puis apres je dois actionner
une macro pour pouvoir fermer mon fichier 2 qui se sauvegarde
automatiquement et qui se ferme et (c'est la que ca coince....) ouvrir le
userform du fichier 1.
* Instruction :
activeworsheet.close
Application.Run("Classeur1.xls!Affiche_UserForm")
- si je ferme mon fichier 2 il n'executera pas le userform du fichier 1
(puisqu'il est ferme....)

* Instruction :
Application.Run("Classeur1.xls!Affiche_UserForm")
activeworsheet.close
- si j'ouvre le userform du fichier 1, le fichier 2 ne se fermera pas temps
que le userform du fichier 1 n'est pas ferme......

C'est le serpent qui se mord la queue...........




----------------------------------------------------------------------
Michel HOLDERITH
Fund Administration
VP Bank (Luxembourg) S.A.
B.P. 923, L-2019 Luxembourg
Tel. (+352) 404 770 262, Fax (+352) 404 770 283
michel.holderith@vpbank.com
www.vpbank.com
----------------------------------------------------------------------
Signaler un problème avec ce contenu

9 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
Avatar
pascal engelmajer
Bonjour tout le monde,

Le 13.12.04 (08H11) j'avais demande comment lancer un Userform d'un autre
fichier.

Du classeur Classeur2.xls

Application.Run("Classeur1.xls!Affiche_UserForm")

Dans le classeur Classeur1.xls

Sub Affiche_UserForm ()
Userform1.show
End sub

Ma question est la suivante :

Si je me trouve dans Classeur2.xls, comment puis-je faire pour afficher
Userform1 du classeur Classeur1.xls et fermer le classeur Classeur2.xls ?

D'avance un grand merci,

@+
Michel.

P.S. : Pour l'explication de cette demande.....
J'ai un fichier 1 qui gere des userforms avec Excel en
application.visibleúlse
Apres une validation, cela a pour effet de fermer mon userform du fichier 1
pour ouvrir un fichier 2 en application.visible=true.
Je peux modifier mon fichier 2 a ma convenance, puis apres je dois actionner
une macro pour pouvoir fermer mon fichier 2 qui se sauvegarde
automatiquement et qui se ferme et (c'est la que ca coince....) ouvrir le
userform du fichier 1.
* Instruction :
activeworsheet.close
Application.Run("Classeur1.xls!Affiche_UserForm")
- si je ferme mon fichier 2 il n'executera pas le userform du fichier 1
(puisqu'il est ferme....)

* Instruction :
Application.Run("Classeur1.xls!Affiche_UserForm")
activeworsheet.close
- si j'ouvre le userform du fichier 1, le fichier 2 ne se fermera pas temps
que le userform du fichier 1 n'est pas ferme......

C'est le serpent qui se mord la queue...........




----------------------------------------------------------------------
Michel HOLDERITH
Fund Administration
VP Bank (Luxembourg) S.A.
B.P. 923, L-2019 Luxembourg
Tel. (+352) 404 770 262, Fax (+352) 404 770 283

www.vpbank.com
----------------------------------------------------------------------


Salut Michel

ne peux-tu dans la procédure UserForm_Initialize() du classeur1.xls
opérer de la sorte ?
Private Sub UserForm_Initialize()
Workbooks("classeur2.xls").Close
End Sub

Amicalement
Pascal
www.ilyapa.net

Avatar
Michel HOLDERITH
Salut,
J'ai essaye mais cela ne marche pas....
meme dans userform_activate c'est pareil.... des que le userform (ou meme
dans un module) du fichier1 ferme le fichier 2 et ben toute la procedure a
l'air de s'arreter.....
ca par contre je ne comprend pas pourquoi il s'arrete alors qu'il y a du
code apres worksheet(fichier2).close

Merci de tes conseils,
@+
Michel.

"pascal engelmajer" wrote in message
news:
Bonjour tout le monde,

Le 13.12.04 (08H11) j'avais demande comment lancer un Userform d'un
autre


fichier.

Du classeur Classeur2.xls

Application.Run("Classeur1.xls!Affiche_UserForm")

Dans le classeur Classeur1.xls

Sub Affiche_UserForm ()
Userform1.show
End sub

Ma question est la suivante :

Si je me trouve dans Classeur2.xls, comment puis-je faire pour afficher
Userform1 du classeur Classeur1.xls et fermer le classeur Classeur2.xls
?



D'avance un grand merci,

@+
Michel.

P.S. : Pour l'explication de cette demande.....
J'ai un fichier 1 qui gere des userforms avec Excel en
application.visibleúlse
Apres une validation, cela a pour effet de fermer mon userform du
fichier 1


pour ouvrir un fichier 2 en application.visible=true.
Je peux modifier mon fichier 2 a ma convenance, puis apres je dois
actionner


une macro pour pouvoir fermer mon fichier 2 qui se sauvegarde
automatiquement et qui se ferme et (c'est la que ca coince....) ouvrir
le


userform du fichier 1.
* Instruction :
activeworsheet.close
Application.Run("Classeur1.xls!Affiche_UserForm")
- si je ferme mon fichier 2 il n'executera pas le userform du fichier 1
(puisqu'il est ferme....)

* Instruction :
Application.Run("Classeur1.xls!Affiche_UserForm")
activeworsheet.close
- si j'ouvre le userform du fichier 1, le fichier 2 ne se fermera pas
temps


que le userform du fichier 1 n'est pas ferme......

C'est le serpent qui se mord la queue...........




----------------------------------------------------------------------
Michel HOLDERITH
Fund Administration
VP Bank (Luxembourg) S.A.
B.P. 923, L-2019 Luxembourg
Tel. (+352) 404 770 262, Fax (+352) 404 770 283

www.vpbank.com
----------------------------------------------------------------------


Salut Michel

ne peux-tu dans la procédure UserForm_Initialize() du classeur1.xls
opérer de la sorte ?
Private Sub UserForm_Initialize()
Workbooks("classeur2.xls").Close
End Sub

Amicalement
Pascal
www.ilyapa.net



Avatar
pascal engelmajer
Salut,
J'ai essaye mais cela ne marche pas....
meme dans userform_activate c'est pareil.... des que le userform (ou meme
dans un module) du fichier1 ferme le fichier 2 et ben toute la procedure a
l'air de s'arreter.....
ca par contre je ne comprend pas pourquoi il s'arrete alors qu'il y a du
code apres worksheet(fichier2).close

Merci de tes conseils,
@+
Michel.

"pascal engelmajer" wrote in message
news:


Bonjour tout le monde,

Le 13.12.04 (08H11) j'avais demande comment lancer un Userform d'un



autre

fichier.

Du classeur Classeur2.xls

Application.Run("Classeur1.xls!Affiche_UserForm")

Dans le classeur Classeur1.xls

Sub Affiche_UserForm ()
Userform1.show
End sub

Ma question est la suivante :

Si je me trouve dans Classeur2.xls, comment puis-je faire pour afficher
Userform1 du classeur Classeur1.xls et fermer le classeur Classeur2.xls



?

D'avance un grand merci,

@+
Michel.

P.S. : Pour l'explication de cette demande.....
J'ai un fichier 1 qui gere des userforms avec Excel en
application.visibleúlse
Apres une validation, cela a pour effet de fermer mon userform du



fichier 1

pour ouvrir un fichier 2 en application.visible=true.
Je peux modifier mon fichier 2 a ma convenance, puis apres je dois



actionner

une macro pour pouvoir fermer mon fichier 2 qui se sauvegarde
automatiquement et qui se ferme et (c'est la que ca coince....) ouvrir



le

userform du fichier 1.
* Instruction :
activeworsheet.close
Application.Run("Classeur1.xls!Affiche_UserForm")
- si je ferme mon fichier 2 il n'executera pas le userform du fichier 1
(puisqu'il est ferme....)

* Instruction :
Application.Run("Classeur1.xls!Affiche_UserForm")
activeworsheet.close
- si j'ouvre le userform du fichier 1, le fichier 2 ne se fermera pas



temps

que le userform du fichier 1 n'est pas ferme......

C'est le serpent qui se mord la queue...........




----------------------------------------------------------------------
Michel HOLDERITH
Fund Administration
VP Bank (Luxembourg) S.A.
B.P. 923, L-2019 Luxembourg
Tel. (+352) 404 770 262, Fax (+352) 404 770 283

www.vpbank.com
----------------------------------------------------------------------




Salut Michel
ne peux-tu dans la procédure UserForm_Initialize() du classeur1.xls
opérer de la sorte ?
Private Sub UserForm_Initialize()
Workbooks("classeur2.xls").Close
End Sub

Amicalement
Pascal
www.ilyapa.net




Salut Michel,

vois mon test sur ilyapa :
http://www.ilyapa.net/baseExcel/test1.xls
http://www.ilyapa.net/baseExcel/test2.xls
Amicalement
Pascal



Avatar
Michel HOLDERITH
Salut,
J'ai regarde tes deux fichiers, mais ce n'est pas exactement ca que je
voudrais faire....

Mais dans ton cas lors de la fermeture du fichier1, le userform2 du fichier
test2, ne s'affiche pas....
pour info j'ai excel 2000

Est-ce que chez toi le userform2 s'affiche ?

@+
Michel.


"pascal engelmajer" wrote in message
news:%
Salut,
J'ai essaye mais cela ne marche pas....
meme dans userform_activate c'est pareil.... des que le userform (ou
meme


dans un module) du fichier1 ferme le fichier 2 et ben toute la procedure
a


l'air de s'arreter.....
ca par contre je ne comprend pas pourquoi il s'arrete alors qu'il y a du
code apres worksheet(fichier2).close

Merci de tes conseils,
@+
Michel.

"pascal engelmajer" wrote in message
news:


Bonjour tout le monde,

Le 13.12.04 (08H11) j'avais demande comment lancer un Userform d'un



autre

fichier.

Du classeur Classeur2.xls

Application.Run("Classeur1.xls!Affiche_UserForm")

Dans le classeur Classeur1.xls

Sub Affiche_UserForm ()
Userform1.show
End sub

Ma question est la suivante :

Si je me trouve dans Classeur2.xls, comment puis-je faire pour afficher
Userform1 du classeur Classeur1.xls et fermer le classeur Classeur2.xls



?

D'avance un grand merci,

@+
Michel.

P.S. : Pour l'explication de cette demande.....
J'ai un fichier 1 qui gere des userforms avec Excel en
application.visibleúlse
Apres une validation, cela a pour effet de fermer mon userform du



fichier 1

pour ouvrir un fichier 2 en application.visible=true.
Je peux modifier mon fichier 2 a ma convenance, puis apres je dois



actionner

une macro pour pouvoir fermer mon fichier 2 qui se sauvegarde
automatiquement et qui se ferme et (c'est la que ca coince....) ouvrir



le

userform du fichier 1.
* Instruction :
activeworsheet.close
Application.Run("Classeur1.xls!Affiche_UserForm")
- si je ferme mon fichier 2 il n'executera pas le userform du fichier 1
(puisqu'il est ferme....)

* Instruction :
Application.Run("Classeur1.xls!Affiche_UserForm")
activeworsheet.close
- si j'ouvre le userform du fichier 1, le fichier 2 ne se fermera pas



temps

que le userform du fichier 1 n'est pas ferme......

C'est le serpent qui se mord la queue...........




----------------------------------------------------------------------
Michel HOLDERITH
Fund Administration
VP Bank (Luxembourg) S.A.
B.P. 923, L-2019 Luxembourg
Tel. (+352) 404 770 262, Fax (+352) 404 770 283

www.vpbank.com
----------------------------------------------------------------------




Salut Michel
ne peux-tu dans la procédure UserForm_Initialize() du classeur1.xls
opérer de la sorte ?
Private Sub UserForm_Initialize()
Workbooks("classeur2.xls").Close
End Sub

Amicalement
Pascal
www.ilyapa.net




Salut Michel,

vois mon test sur ilyapa :
http://www.ilyapa.net/baseExcel/test1.xls
http://www.ilyapa.net/baseExcel/test2.xls
Amicalement
Pascal





Avatar
pascal engelmajer
Salut Michel,
Ma proposition est mauvaise.
Il ne m'est pas possible d'ouvrir l'userform si je ferme test1
Après reflexion il m'apparais que la tâche qui ouvre l'userform de
test2.xls est la fille de la tâche qui ouvre l'userform de test1.xls.
Lorsque l'on ferme cette dernière tâche avec
Workbooks("test1.xls").Close les tâches filles sont également fermées.
Je ne vois pas de solution simple (aller, peut-être, chercher dans la
librairie "kernel32" des "OpenProcess" et autre "CloseHandle"...)
Je serais curieux de voir résoudre ce pb.
Amicalement
Pascal

Salut,
J'ai regarde tes deux fichiers, mais ce n'est pas exactement ca que je
voudrais faire....

Mais dans ton cas lors de la fermeture du fichier1, le userform2 du fichier
test2, ne s'affiche pas....
pour info j'ai excel 2000

Est-ce que chez toi le userform2 s'affiche ?

@+
Michel.


"pascal engelmajer" wrote in message
news:%


Salut,
J'ai essaye mais cela ne marche pas....
meme dans userform_activate c'est pareil.... des que le userform (ou



meme

dans un module) du fichier1 ferme le fichier 2 et ben toute la procedure



a

l'air de s'arreter.....
ca par contre je ne comprend pas pourquoi il s'arrete alors qu'il y a du
code apres worksheet(fichier2).close

Merci de tes conseils,
@+
Michel.

"pascal engelmajer" wrote in message
news:




Bonjour tout le monde,

Le 13.12.04 (08H11) j'avais demande comment lancer un Userform d'un



autre


fichier.

Du classeur Classeur2.xls

Application.Run("Classeur1.xls!Affiche_UserForm")

Dans le classeur Classeur1.xls

Sub Affiche_UserForm ()
Userform1.show
End sub

Ma question est la suivante :

Si je me trouve dans Classeur2.xls, comment puis-je faire pour afficher
Userform1 du classeur Classeur1.xls et fermer le classeur Classeur2.xls



?


D'avance un grand merci,

@+
Michel.

P.S. : Pour l'explication de cette demande.....
J'ai un fichier 1 qui gere des userforms avec Excel en
application.visibleúlse
Apres une validation, cela a pour effet de fermer mon userform du



fichier 1


pour ouvrir un fichier 2 en application.visible=true.
Je peux modifier mon fichier 2 a ma convenance, puis apres je dois



actionner


une macro pour pouvoir fermer mon fichier 2 qui se sauvegarde
automatiquement et qui se ferme et (c'est la que ca coince....) ouvrir



le


userform du fichier 1.
* Instruction :
activeworsheet.close
Application.Run("Classeur1.xls!Affiche_UserForm")
- si je ferme mon fichier 2 il n'executera pas le userform du fichier 1
(puisqu'il est ferme....)

* Instruction :
Application.Run("Classeur1.xls!Affiche_UserForm")
activeworsheet.close
- si j'ouvre le userform du fichier 1, le fichier 2 ne se fermera pas



temps


que le userform du fichier 1 n'est pas ferme......

C'est le serpent qui se mord la queue...........




----------------------------------------------------------------------
Michel HOLDERITH
Fund Administration
VP Bank (Luxembourg) S.A.
B.P. 923, L-2019 Luxembourg
Tel. (+352) 404 770 262, Fax (+352) 404 770 283

www.vpbank.com
----------------------------------------------------------------------




Salut Michel
ne peux-tu dans la procédure UserForm_Initialize() du classeur1.xls
opérer de la sorte ?
Private Sub UserForm_Initialize()
Workbooks("classeur2.xls").Close
End Sub

Amicalement
Pascal
www.ilyapa.net




Salut Michel,

vois mon test sur ilyapa :
http://www.ilyapa.net/baseExcel/test1.xls
http://www.ilyapa.net/baseExcel/test2.xls
Amicalement
Pascal










Avatar
Alain CROS
Bonjour.

Application.OnTime Now + TimeSerial(0, 0, 1), "Classeur1.xls!Affiche_UserForm"
ThisWorkbook.Close False

Alain CROS

Je serais curieux de voir résoudre ce pb.
Amicalement
Pascal



Avatar
Michel HOLDERITH
J'ai essaye mais cela n'a pas l'air de fonctionner...
Pourrais-tu me donner un exemple dans ma BAL si ce n'est pas trop de boulot
pour toi ?

Merci d'avance,
@+
Michel.

"Alain CROS" wrote in message
news:
Bonjour.

Application.OnTime Now + TimeSerial(0, 0, 1),
"Classeur1.xls!Affiche_UserForm"

ThisWorkbook.Close False

Alain CROS

Je serais curieux de voir résoudre ce pb.
Amicalement
Pascal







Avatar
Alain CROS
Bonjour.

http://cjoint.com/?mxkTWFqQpH

Alain CROS

"Michel HOLDERITH" <#nospam# a écrit dans le message de news:
J'ai essaye mais cela n'a pas l'air de fonctionner...
Pourrais-tu me donner un exemple dans ma BAL si ce n'est pas trop de boulot
pour toi ?

Merci d'avance,
@+
Michel.



Avatar
Michel HOLDERITH
Salut,
Un tres tres tres grand merci a toi....

Apres des petits ajustements selon mes besoin, c'est tip-top ca marche comme
je veux.

Joyeux noel,

@+
Michel.

"Alain CROS" wrote in message
news:
Bonjour.

http://cjoint.com/?mxkTWFqQpH

Alain CROS

"Michel HOLDERITH" <#nospam# a écrit dans le message de
news:

J'ai essaye mais cela n'a pas l'air de fonctionner...
Pourrais-tu me donner un exemple dans ma BAL si ce n'est pas trop de
boulot


pour toi ?

Merci d'avance,
@+
Michel.