Usf à activer

[la croisée des pains]

😱 Bonsoir à tous,

j'aimerais savoir s'il existe une solution à ma demande.

j'ai un classeur appelé "A" avec un USF qui ouvre d'autres classeurs.("B";"C";"D"; etc....)

voila est-il possible à la fermeture du classeur "B" ou autre,après la sauvegarde et la fermeture du fichier "B" de revenir automatiquement sur le classeur "A" avec l'USF activate pour me permettre de changer à nouveau de classeur.

merci de votre aide
bonne soirée😎

 

[la croisée des pains]

Re : Usf à activer

je pense que je m'explique mal.
Mon code marche bien mais mon problème est mal compris,je pense.

J'ouvre mon classeur appelé "A", dedans ce trouve un ecran d'accueil(feuille "0") avec demande de mot de passe pour accéder à l'Usf2 (appeler mes programmes).Sur cette Usf ce trouves des cmd pour acceder à différentes fichier sur l'ordinateur.

La je cliques sur un cmd qui vas ouvrir un classeur appelé "B",donc l'Usf2 ce ferme pour me permmettre de travailler avec ce nouveau classeur.
Après avoir travailler avec celui-ci,je le fermes et je reviens sur la feuille nommé "0".Ce que je souhaites c'est que l'usf2 se réactive après la fermeture du classeur "B".

Dis-moi si tu as compris mon souhait?

Laurent
Amicalement

 

[flo2002]

Re : Usf à activer

re oui je pense avoir compris. Cependant, je pense que tu ne peut remettre ta usf2 que quand tu reactive le classeur A et non quand tu ferme B.
(a moins de mettre un code sur ce fichier B)


et donc avec:

Private Sub Workbook_Activate()
UserForm2.Show
End Sub
Private Sub Workbook_Select()
UserForm2.Show
End Sub

quand tu revient sur ton fichier il te met ta usf2.
actuellement ta usf2 doit apparaitre des que tu es sur le classeur A.


Donc je ne vois pas le probleme.....
surtout que chez moi ca a l'air de marcher comme tu le souhaite...

 

[flo2002]

Re : Usf à activer

re
effectivement ca bug aussi chez moi.....
mais sur
Sheets("Config").Range("LoggedInAs") = UserNameTextBox.Value

ou est cette feuille???? veryhidden??

je continue à gratter ton fichier

 

[la croisée des pains]

Re : Usf à activer

non elle n'est pas caché, c'est la feuille des mots de passe
cliques sur les flèches en bas de la feuille à gauche ,elle va apparaitre

 

[flo2002]

Re : Usf à activer

c'est bon je l'ai retrouver lol.
Je vais essayer de voire ca ce soir ou demain( mais faut que je bosse sur un barbatruc aussi).
Par contre ne pas quitter avec le bouton, ca m'a mis aurevoire et bonne journée et la mega plantage avec multi demarage de prog????!!!???
bon courage, je te tiens au courant.

 

[la croisée des pains]

Re : Usf à activer

c'est bon je l'ai retrouver lol.
Je vais essayer de voire ca ce soir ou demain( mais faut que je bosse sur un barbatruc aussi).
Par contre ne pas quitter avec le bouton, ca m'a mis aurevoire et bonne journée et la mega plantage avec multi demarage de prog????!!!???
bon courage, je te tiens au courant.

ok merci,tiens moi au courant

chez moi pas de problème au niveau de quitter ,pas de multi démarrage

laurent

 

[flo2002]

Re : Usf à activer

Bonjour,
je viens de rejeter un coup d'oeil sur ton projet et mo probleme est sur le login.
Quand je mets le mot de passe et le login, il bug.
Perso, je crois que j'aurais mis une conditionnel à ce niveau, c'est à dire:
si le mot de passe correspond au login alors goto sinon msgbox et goto.
Je ne sais pas si cependant chez toi aussi ca bloque la?
quel ligne bug?

 

[la croisée des pains]

Re : Usf à activer

re oui je pense avoir compris. Cependant, je pense que tu ne peut remettre ta usf2 que quand tu reactive le classeur A et non quand tu ferme B.
(a moins de mettre un code sur ce fichier B)je pense que la solution est ici



quand tu revient sur ton fichier"A" il te met ta usf2.non
actuellement ta usf2 doit apparaitre des que tu es sur le classeur A.oui à l'ouverture

Bonjour le forum,
Bonjour Flo,

Perso, le login ne bloques pas.Je n'ai pas de bug spécifique sauf la non ouverture de l'usf2 après la fermeture du classeur"B".En rouge estécrit ce qui ne marches pas chez moi.

amicalement
Laurent

 

[flo2002]

Re : Usf à activer

Et c'est bien ce qui m'étonne puisque avec ca:

Private Sub Workbook_Activate()
UserForm2.Show
End Sub
Private Sub Workbook_Select()
UserForm2.Show
End Sub

ca doit marcher sauf si tu as deja un Workbook_Activate ou un Workbook_Select dans le workbook.

quand tu ferme B tu te retrouve sur A donc tu l'active donc il doit te mettre ta USF2.
Je n'y comprend plus rien....

 

[la croisée des pains]

Re : Usf à activer

re,
je pense que j'ai trouver peut-etre la solution sur internet.

Minimiser un userform
Est-il possible de minimiser un userform ?
Dans ce Ce lien n'existe plus,
tu verras que tu peux non seulement le minimiser mais en plus le rétablir au passage de la souris !


je teste et je te dis, car le code est assez dur à modifier.

Laurent

 

[la croisée des pains]

Re : Usf à activer

re,
quel code faudrait mettre sur le fichier "B" à la fermeture pour activer l'usf2 du classeur "A" ?

laurent

 

[ziopizza]

Re : Usf à activer

Bonjour le Fil,
Peut être pas tous compris ? à voir
Dans le ClasseuB
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Workbooks(1).Activate
End Sub

Dans le ClasseurA
Private Sub Workbook_Activate()
tt
End Sub

Dans un Module du ClasseurA
Sub tt()
UserForm1.Show
End Sub
Salut Yves
Oups pas la peine de créer une macro mettre directement dans le workbook
Private Sub Workbook_Activate()
UserForm1.Show
End Sub

 

[la croisée des pains]

Re : Usf à activer

🙂 re à tous,

super c'est ce que je voulais, plus qu'a mettre de sauvegarder avant de quitter et hop.

un grand merci à toi Yves et Flo.

Bonne journée

laurent

amicalement😉