Bonjour à tous,
Voilà
3 fichiers ouverts
2 commandBoutons
je souhaiterai à partir du commanbutton1 du UserForm1 du fichier1 lancer l'UserForm1 du fichier2 ou commandbutton2 du UserForm1 du fichier1 lancer l'UserForm1 du fichier3
Merci d'avance pour votre aide...
Tim
voici ce que j'ai
mon fichier 1
module1
ThisWorkbook
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5 Public Wbk As Workbook Public Const Rep = "C:\Excel\test" Public Const FichierBDC = "RECH.xls" Public Const FichierBDC = "BDC.xls"
cette partie de programme fonctionne lorsque je lance mon premier fichier menu.xls il me lance bien mes deux autres fichiers "BDC.xls" et "RECH.xls"
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4 Private Sub Workbook_Open() Set Wbk1 = Workbooks.Open(Filename:=Rep & "\" & FichierBDC) Set Wbk2 = Workbooks.Open(Filename:=Rep & "\" & FichierRECH) End Sub
dans mon UserForm1 de mon fichier1 "MENU.xls" j'ai deux commandbutton1 et 2 le 1er doit lancer UserForm1 du fichier "BDC.xls" le second doit lancer UserFform1 du fichier "RECH.xls"
j'espère être assez clair.
Bien à vous.
Tim.








Répondre avec citation
Partager