Bonjour StepLof, Pascal, Jco et tout le Forum
Je ne pense pas qu'il faille utiliser la méthode de Frédérique pour ce cas de figure.
Pour Steplof, j'ai dû zaper ta question... Mais j'ai abordé un sujet un peu similaire
Sur ce Fil de Discussion
En fait la clef est dans la désignation/déclaration des Objets. En effet dès que l'on veut travailler en Multi-Classeurs à partir d'un seul UserForm. Et il faut être très rigoureux, sinon c'est le plantage assuré.
Je ne peux faire de démo multi classeurs sur ce forum, car il faut (of course) plusieurs classeurs...
Cependant un code multi-classeur ressemblera à ceci :
Option Explicit
Dim ActuelWkbk As Workbook
Dim WsBaseX As Worksheet
Dim OtherWkbk As Workbook
Dim WsBaseY As Worksheet
Set ActuelWkbk = ThisWorkbook
With ActuelWkbk
Set WsBaseX = .Worksheets("DatabaseX")
End With
Set OtherWkbk = Workbooks("Autre.xls")"
With OtherWkbk
Set WsBaseY = .Worksheets("DatabaseY")
End With
Ainsi lorsque l'on assignera une action à un des controls du UserForm, on pourra y faire référence de cette manière :
L = WsBaseY.Range("A65536").End(xlUp).Row
Plage = WsBaseY.Range("A2:C" & L).Address
ListBox1.RowSource = "DatabaseY!" & Plage
ou encore pour un CommandeButton
OtherWkbk.Sheets("Toto").activate
Pour la demande précise de JCO, un UsrForm de saisie de Password, c'est idem... Il faut juste prévoir ce que l'on veut faire comme action si le PassWord est OK (on fait quoi ?) ou si il ne l'est pas (Par exemple on ferme tout..!)...
Bonne Journée et Bon Week End
@+Thierry