zone de liste dans une boite de dialogue

G

Guest

Guest
bonjour, ;)
J'ai créé un classeur contenant une boite de dialogue. Celle-ci se lance à l'ouverture grâce à 1 macro 'sub auto-open'.
La boîte contient une zone de liste qui se réfère à 8 cellules.
Pour chacune des valeurs de la liste, j'aimerais affecter une macro qui me lance un de mes 8 autres classeurs et qui me fermerait ma boîte de dialogue, quelqun aurait-il la syntaxe SVP?
Merci d'avance :)
 
B

Benlo

Guest
Allo,

Voici une idée,

Placer ce code dans l'évènement change de ton listBox et utiliser un Select Case pour déterminer la suite :

Select Case ListBox Value

Case xyz
UserForm.Hide
Workbooks.Open Filename:='G:\\Controle\\Bases\\fichier1.xls'
Workbooks('Groupes privés_nationaux.xls').Activate
Sheets('Données').Activate

Case abc
UserForm.Hide
Workbooks.Open Filename:='G:\\Controle\\Bases\\fichier2.xls'
Workbooks('Groupes privés_nationaux.xls').Activate
Sheets('Données').Activate

Case efg
UserForm.Hide
Workbooks.Open Filename:='G:\\Controle\\Bases\\fichier3.xls'
Workbooks('Groupes privés_nationaux.xls').Activate
Sheets('Données').Activate

End Select

Évidement, remplacer les emplacements des fichiers par le bon chemin d'accès et les 'cases' par les valeurs possibles du list box.

à tester ....
 

Discussions similaires

Statistiques des forums

Discussions
312 345
Messages
2 087 494
Membres
103 561
dernier inscrit
DG35