L
ljoue
Guest
Bonjour à tous,
J'ai réaliser un code en VBA qui me permet d'afficher et d'utiliser une Liste dans n'importe quel classeur Excel à partir d'un bouton.
Cette liste se trouve dans le classeur Source.xls et a été définie par le nom 'Allegro'
Mon problème est que lorsque j'active la Macro affectée au bouton à partir d'un classeur 'X' , le Classeur Source.xls s'ouvre.
Y a t-il un moyen pour que ce classeur ne s'ouvre pas ou soit masquer ?
Merci d'avance,
Cordialement
Laurent
----------------------------------------------------------------------------
Voici le code VBA :
1/ Code récupération des données [USERFORM]
Private Sub cmdValiderOut_Click()
If Controls('OptionButton1').Value = True Then
ActiveCell.Value = ListeFondsSJAllegro.ListeAllegro
End If
If Controls('OptionButton2').Value = True Then
ActiveWorkbook.Names.Add Name:='listeAllegro', RefersToR1C1:='=Source.xls!Allegro'
ActiveCell.Value = '=listeAllegro'
End If
Unload ListeFondsSJAllegro
End Sub
2/ Code pour Afficher la liste [BOUTON]
Sub AffichageListeAllegro()
ListeFondsSJAllegro.Show
End Sub
J'ai réaliser un code en VBA qui me permet d'afficher et d'utiliser une Liste dans n'importe quel classeur Excel à partir d'un bouton.
Cette liste se trouve dans le classeur Source.xls et a été définie par le nom 'Allegro'
Mon problème est que lorsque j'active la Macro affectée au bouton à partir d'un classeur 'X' , le Classeur Source.xls s'ouvre.
Y a t-il un moyen pour que ce classeur ne s'ouvre pas ou soit masquer ?
Merci d'avance,
Cordialement
Laurent
----------------------------------------------------------------------------
Voici le code VBA :
1/ Code récupération des données [USERFORM]
Private Sub cmdValiderOut_Click()
If Controls('OptionButton1').Value = True Then
ActiveCell.Value = ListeFondsSJAllegro.ListeAllegro
End If
If Controls('OptionButton2').Value = True Then
ActiveWorkbook.Names.Add Name:='listeAllegro', RefersToR1C1:='=Source.xls!Allegro'
ActiveCell.Value = '=listeAllegro'
End If
Unload ListeFondsSJAllegro
End Sub
2/ Code pour Afficher la liste [BOUTON]
Sub AffichageListeAllegro()
ListeFondsSJAllegro.Show
End Sub