[VBA-E]userform sur 2 classeurs

**fast&furious** · 13/12/2006, 21h20

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

) 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 !

**ouskel'n'or** · 13/12/2006, 21h38

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+

**fast&furious** · 13/12/2006, 22h27

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

fast

**ouskel'n'or** · 13/12/2006, 23h18

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...

**SfJ5Rpw8** · 14/12/2006, 08h37

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...

c'est quoi que tu appelle faire des aller retour ...? ton code il est ou ..?

**fast&furious** · 14/12/2006, 11h39

Essayons d'être plus clair, sans vous assommer (

):
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

**ouskel'n'or** · 14/12/2006, 11h48

C'était donc bien ma question,

"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.

A+

**SfJ5Rpw8** · 14/12/2006, 11h55

ben en mettant une procédure publique dans ton 1° classeur :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub CommandButton1_Click()
    Application.Run "MesMacros.xls!MonDepart"
 End Sub

**ouskel'n'or** · 14/12/2006, 14h15

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

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

**fast&furious** · 14/12/2006, 14h27

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

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

Fast

**fast&furious** · 14/12/2006, 14h29

ouaisousk'ln'or !

en plus d'être compliqué je radote !

fast

**ouskel'n'or** · 14/12/2006, 14h30

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

**fast&furious** · 14/12/2006, 14h52

comment sais-tu que c'est + compliqué

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

Ç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 ?

A+

**fast&furious** · 14/12/2006, 15h26

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

fas

**SfJ5Rpw8** · 14/12/2006, 17h37

essai :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**fast&furious** · 14/12/2006, 18h56

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

Bonsoir

fast

[VBA-E]userform sur 2 classeurs

Macros et VBA Excel

Discussions similaires

Partager

Partager