Activer une macro

Bonjour,

j'aiemrais savoir si il existe un programme pour activer les macro d'un classeur.

Je m'explqiue : j'ai créer une userform qui permet de remplir une base de données, dans cette userform, l'utilisateur peut cliquer sur un bouton qui le mène dans un autre classeur afin de consulter les graphiques (ces derniers sont des statistique de la base de données). Or dans mon programme il faudrait que je rajoute une activation de macro pour que les graphiques soit correct. (en effet si on n'active pas les macro de ce deuxième classeur les graphiques de sont pas justes!).

Pour vous aider voici le programe que j'ai saisie :

Private Sub AFFICHER_Click()
'Affichage des différents graphes, suivant la selection de l'utilisateur'
If graphe.Value = "feuil1" Then
Workbooks.Open "C:\Documents and Settings\duboisg\Desktop\Graphiques.xls"
Etiquettes.Hide
Application.Sheets("feuil1").Activate
End If
If graphe.Value = "feuil2" Then
Workbooks.Open "C:\Documents and Settings\duboisg\Desktop\Graphiques.xls"
Etiquettes.Hide
Application.Sheets("feuil2").Activate
End If
If graphe.Value = "feuil3" Then
Workbooks.Open "C:\Documents and Settings\duboisg\Desktop\Graphiques.xls"
Etiquettes.Hide
Application.Sheets("feuil3").Activate
End If
If graphe.Value = "feuil4" Then
Workbooks.Open "C:\Documents and Settings\duboisg\Desktop\Graphiques.xls"
Etiquettes.Hide
Application.Sheets("feuil4").Activate
End If
If graphe.Value = "feuil5" Then
Workbooks.Open "C:\Documents and Settings\duboisg\Desktop\Graphiques.xls"
Etiquettes.Hide
Application.Sheets("feuil5").Activate
End If
If graphe.Value = "feuil6" Then
Workbooks.Open "C:\Documents and Settings\duboisg\Desktop\Graphiques.xls"
Etiquettes.Hide
Application.Sheets("feuil6").Activate
End If
End Sub

Je vous remercie par avance pour votre aide

Grace