[VBA-E]userform sur 2 classeurs

Version imprimable

13/12/2006, 21h20
fast&furious

[VBA-E]userform sur 2 classeurs

Bonsoir,
J'ai le problème suivant:
j'ai un classeur(1) qui, à partir d'une userform se trouvant dans un classeur, ouvre un autre classeur(2).
Je souhaiterais, après avoir fermé le classeur (2),revenir sur la userform du classeur (1).
MAIS (c'est là où ça se corse:marteau:) les solutions suivantes ne peuvent pas être utilisées:

1) Application.run (nomclasseur1.subpermettantd'ouvrilauserform)
car les macros seront protégées
2) mettre la subpermettantd'ouvrilauserform dans workbook.activate du classeur 1: car tout le long du programme je n'arrête pas de faire des aller-retour entre classeur (1) et (2) en cache

Je suis bloqué et c'est critique pour la fin de mon programme

Please I need your help !:triste:
13/12/2006, 21h38
ouskel'n'or

Importe l'userform situé dans book2, dans book1 et fais toutes tes manips depuis Book1
Ça, c'est la solution la plus facile à imaginer. Pour une autre, faut qu'j'réfléchisse
A+
13/12/2006, 22h27
fast&furious

je ne peux pas faire ce que tu me dis car en fait le classeur 1 est ce que j'appelle le classeur maitre et j'aurais à terme des centaines de "classeur2" donc je souhaite vraiment que la userform reste dans classeur "1".

pas si simple :koi:
fast
13/12/2006, 23h18
ouskel'n'or

Si je comprends, sur chacun de tes centaines de classeur2 tu dois pouvoir utiliser leurs userforms indémendamment... C'est ça ? Ou bien tes userforms sont spécifiques à chaque classeur.
Et ton classeur1, à quoi sert-il ? Dis-nous en plus...
14/12/2006, 08h37
SfJ5Rpw8

Citation:

Envoyé par fast&furious

...
2) mettre la subpermettantd'ouvrilauserform dans workbook.activate du classeur 1: car tout le long du programme je n'arrête pas de faire des aller-retour entre classeur (1) et (2) en cache...

:koi::koi: c'est quoi que tu appelle faire des aller retour ...? ton code il est ou ..?
14/12/2006, 11h39
fast&furious

Essayons d'être plus clair, sans vous assommer (:scarymov: ):
Dans un "classeur maître" j'ai une userform qui contient plusieurs boutons. 1 des boutons permets de créer des classeurs dans lesquels seront stockées les données futures (1 click = 1 classeur créé). Les classeurs sont créés à partir d'un classeur "blank".
Cela se passe de la manière suivante, schématiquement:

1)on appuie sur le bouton, cela mets quelques infos dans le classeur maître

2) cela créé un classeur à partir de blank qui est ensuite sauvegardé sur le disque dur sous un autre nom

3)L'utilisateur peut se "balader" dans le classeur qui vient de se créer. Il doit entrer quelques données de départ dans ce classeur et le refermer par un bouton "close and save"

4) et lorsque l'utilisateur referme le classeur je souhaiterais qu'il reviennent sur le "classeur maître" avec la userform affichée.

Et au fur et à mesure, par un autre bouton de la userform, l'utilisateur entrera des données dans des endroits spécifiés (j'aurais besoin aussi à ces moments là de pouvoir revenir sur le "classeur maître" avec userform affichée)

J'ai donc beaucoup de code dans le "classeur maître" et un peu de code dans le classeur "blank" (qui gèrent les quelques boutons que j'ai introduit)

Je vous remercie d'avoir pris le temps de lire mon problème afin d'essayer de le résoudre

fast
14/12/2006, 11h48
ouskel'n'or

C'était donc bien ma question,

Citation:

"tu dois pouvoir utiliser leurs userforms indépendamment dans chacun de tes centaines de classeur2"

Nouvelle question : Les userforms de ces classeurs ont-ils tous la même structure ?
Parce que, si oui, que te coûterait sur ton classeur principal, d'ajouter un userform identique à ceux de la foultitude de classeurs, qui lui permettrait de faire des "vas et viens" autant que t'en veux. :lol:
A+
14/12/2006, 11h55
SfJ5Rpw8
ben en mettant une procédure publique dans ton 1° classeur :
Code:

1 2 3 4 Public Sub MonDepart() UserForm1.Show End Sub
tu peu ensuite l'exécuter depuis le deuxiéme classeur par un run :
Code:

1 2 3 Private Sub CommandButton1_Click() Application.Run "MesMacros.xls!MonDepart" End Sub
14/12/2006, 14h15
ouskel'n'or

Salut bbil, tu connais pas fast&furious, c'est un compliqué :mouarf:

Citation:

Envoyé par Il

MAIS (c'est là où ça se corse) les solutions suivantes ne peuvent pas être utilisées:
1) Application.run (nomclasseur1.subpermettantd'ouvrilauserform)
car les macros seront protégées

;)
14/12/2006, 14h27
fast&furious

ouskel'n'or,
en fait, c'est bien dans le classeur principal que se trouve la userform. Mon souci c'est de pouvoir la faire apparaître après avoir fermé les sous-classeurs.

bbil,
ce que tu me proposes marche (je ne pensais pas qu'on pouvait lancer une sub qui se trouve dans un classeur où les macros sont protégées à partir d'une autre sub. Je pense que cela marche parce que tu m'a indiqué qu'il fallait la déclarer en Public . Merci pour le truc) Mais...

Afin de pouvoir faire apparaître la userform après avoir fermé le classeur 2, je mets application.run () dans Workbook_beforeclose du 2eme classeur et là, bien sûr, le classeur 2 ne se ferme pas avant que la userform apparaisse.

En fait, pour que ça marche, il me faudrait un "afterclose" mais là, je vois pas !
ordi 1 - fast 0 :bug:

Si vous avez encore des idées....

Fast
14/12/2006, 14h29
fast&furious

ouaisousk'ln'or ! :mrgreen: en plus d'être compliqué je radote ! ;)

fast
14/12/2006, 14h30
ouskel'n'or

C'est tout simple, ouvre tes classeurs depuis l'userform, quand les classeurs sont fermés, ton userform est toujours ouvert.
Mais je sens que c'est plus compliqué que ça. ;)
Tu nous expliques :lol:

comment sais-tu que c'est + compliqué;)

En fait, pour la userform du classeur principal j'ai utilisé les fonctions suivantes:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Private Declare Function GetWindowLongA Lib "User32" _ (ByVal hWnd As Long, ByVal nIndex As Long) As Long Private Declare Function SetWindowLongA Lib "User32" _ (ByVal hWnd As Long, ByVal nIndex As Long, _ ByVal dwNewLong As Long) As Long Private Declare Function FindWindowA Lib "User32" _ (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Sub userform_initialize() Dim hWnd As Long hWnd = FindWindowA("Thunder" & IIf(Application.Version Like "8*", _ "X", "D") & "Frame", Me.Caption) SetWindowLongA hWnd, -16, GetWindowLongA(hWnd, -16) And &HFFF7FFFF End Sub
afin d'empêcher que les utilisateurs puissent se "balader" dans le classeur principal. Mais si je fais ce que tu me dis, la userform reste apparente quand on arrive dans le sous-classeur et là les utilisateurs ne peuvent ajouter les informations qu'ils sont obligés d'entrer dans ce classeur.

fast

14/12/2006, 15h06
ouskel'n'or

Ça s'éclaircit : Tu veux lancer une procédure depuis ton fichier principal et, sans interrompre ta procédure principale, que les utilisateurs puissent, chacun dans son coin, accéder aux classeurs secondaires, fassent leurs petites affaires, puis, enregistrer chaque classeur, les fermer, puis, revenir dans ton userform.
Si ce n'est pas ça, tu précises, sinon, ma première question : tu ouvres une session Excel pour chaque utilisateur ? :marteau:
A+
14/12/2006, 15h26
fast&furious

en fait,je souhaite que l'utilisateur lance la procédure du fichier principal à partir d'une userform. Cette procédure se finit par l'accès d'un des fichiers secondaires. Il fait ensuite ses petites affaires dans le fichier et ensuite il ferme and sauvegardant le fichier secondaire. Et c'est là, qu'il faut que l'on revienne au fichier principal sur la userform.

merci pour ta patience :aie:

fas

essai :

Code:

1
2
3
4
 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
 Application.OnTime Now, "MesMacros.xls!MonDepart"
End Sub

14/12/2006, 18h56
fast&furious

Ca marche ! Merci bbil !

Je ne comprends pas trop pourquoi cela marche avec ce code mais l'important c'est que cela marche !
Je l'ai essayer sur un fichier simple : nickel
Sur mon fichier ça ne marche pas à tout les coups cela doit venir de mon code (...compliqué comme dirait ouskel'n'or:) ) que je vais revoir.

En tout cas merci encore à bbil pour la solution finale et à ouskel'n'or qui m'a permis d'exprimer correctement mon problème
:hola: :king: :king:

Bonsoir

fast