lancer macro a partir userform

[Rom1981]

Bonjour,

J'ai un classeur avec des listes de destinataires de courrier. J'ai trois feuilles avec des listes. J'ai un userform avec menu deroulant sur la première et j'ai inséré deux boutons, le premier m'envoie sur la feuille selectionnée (ca c pour modifier éventuellement la feuille) et le bouton 2 je voudair k'il execute la macro associée au nom de feuille selectionnée, macro enregistrée avec l'assistant excel.

Le probleme c'est que ca ne marche pas... J'ai fait un Case select, mais le click ne lance pas la procédure... JE vous mets le code du userform comme ca vous pourrez voir comment c'est monté. Si vous pouviez m'aider, ce serait vraiment très sympa, et pi comme ca je passerai pour un stagiaire modèle, 🙂).

I est une chaine declarée public, qui peut prendre trois valeurs: MENSU4BQ, ASSVIE ou HABITAT

CODE:



Private Sub ComboBox1_Change()

I = ComboBox1.Text

End Sub

Private Sub CommandButton1_Click()

UserForm1.Hide
'activer la feuille selectionnée dans menu déroulant'
Sheets(I).Select

End Sub




Private Sub CommandButton2_Click() <- c'est là que ca marche pô...


Select Case (I)
Case ASSVIE, MENSU4BQ, HABITAT
Case ASSVIE
[Liste_envoi_ASSVIE()]
Case MENSU4BQ
[Macro_envoi_MENSU4BQ()]
Case HABITAT
[Macro_envoi_HABITAT()]
End Select
UserForm1.Hide

End Sub



Private Sub UserForm_Initialize()
Range("A1").Select
ComboBox1.AddItem (ActiveCell.Value)
Range("A2").Select
ComboBox1.AddItem (ActiveCell.Value)
Range("A3").Select
ComboBox1.AddItem (ActiveCell.Value)


End Sub


MERCI D'AVANCE !!!

Romain.

 

[michel]

bonsoir Romain

sans garantie , tu peux tester

Private Sub CommandButton2_Click()

Select Case I
Case ASSVIE
Liste_envoi_ASSVIE
Case MENSU4BQ
Macro_envoi_MENSU4BQ
Case HABITAT
Macro_envoi_HABITAT
End Select
UserForm1.Hide

End Sub


sinon peux tu préciser le type d'erreur qui s'affiche , ou encore mieux placer dans ce meme fil de discussion un exemple zippé expurgé de données confidentielles


bonne soirée
MichelXld