le code s'arrete juste apres la fermeture d'un classeur

[soune26]

bonjour le forum,

Je reviens avec un petit souci de code qui s'arrête aprés fermeture d'un classeur, je m'explique:

J'ai deux classeurs avec un userform qui s'ouvre à l'ouverture des classeurs, chaque userform à deux bouton "entrée"et "sortie".
J'ouvre le Classeur1 donc l'userform s'ouvre, quand je clique sur entrée je voudrais que le classeur2 s'ouvre (donc avec son propre userform2) et que le classeur 1 se ferme (donc avec son userform1).Le problème n'est pas la fermeture du classeur1 ni l'ouverture du classeur2 mais mon userform2 ne se montre pas.Car le code s'arrête juste aprés la fermeture du classeur1.

J'ai cherché un moment sur le web mais je n'ai rien trouvé en solution pour mon problème.

Bien sur je vous met un petit fichier joint.
Je vous remercie d'avance de vous penchez sur mon problème.

 

[Hippolite]

Re : le code s'arrete juste apres la fermeture d'un classeur

Bonjour,
SI tu fermes un classeur, il est impossible de continuer à utiliser ses macros.
Il y a qu'une solution, mettre les macros qui pilotent l'ensemble dans un troisième classeur ou ce qui est semblable, en macro complémentaite.
A+

 

[Pierrot93]

Re : le code s'arrete juste apres la fermeture d'un classeur

Bonjour,

utilise des usf non modale :

NomUSF.Show 0

et modifie le code du classeur 2 ainsi :

Private Sub Workbook_Open()
UserForm2.Show 0
Workbooks("Classeur1.xls").Close
End Sub

bon après midi
@+

 

[soune26]

Re : le code s'arrete juste apres la fermeture d'un classeur

Bonjour Hippolite et Pierrot93,

Merci pour vos réponse.
Pierrot ta solution me donne le même resulta qu'auparavant!
pourtant j'ai bien le zero aprés la nom de mon userform et la cloture en suivant!!
Je ne comprand pas pourquoi mon userform ne reste pas affiché.
Quand je fais du pas pas aprés la fermeture du fichier le code repart à au private sub

 

[Pierrot93]

Re : le code s'arrete juste apres la fermeture d'un classeur

Re,

dans ton classeur 2, dans le module "thisworkbook" :

Private Sub Workbook_Open()
Application.OnTime Now + TimeValue("00:00:01"), "lanceusf"
Workbooks("Classeur1.xls").Close
End Sub

dans un module standard, toujours dans le classeur 2 :

Option Explicit
Sub lanceusf()
UserForm2.Show 0
End Sub

bonne soirée
@+

 

[soune26]

Re : le code s'arrete juste apres la fermeture d'un classeur

Bonjour le forum, salut Pierrot93,

Impec!!! Ca marche nickel!!
Je te remercie Pierrot.

soune26