Condition de lancement d'une macro
Bonjour, celà fait 2 jours que je galère pour trouver une solution à mon problème. J'essaies de lancer une macro si un formulaire est ouvert ou une autre macro si un autre formulaire est ouvert.
Quelqu'un peut-il m'aider.
Voici le code VBA que j'utilise à l'heure actuelle. Bien évidement ça ne fonctionne pas.
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
| Sub Ouvre_Imprime_Tout(control As IRibbonControl)
'************************** ROUSSEAU *****************************
If DoCmd.OpenForm("Questions Examen Code ROUSSEAU") = True Then
DoCmd.RunMacro ("Imprime ROUSSEAU Q")
End If
If DoCmd.OpenForm("Réponses Examen Code ROUSSEAU") = True Then
DoCmd.RunMacro ("Imprime ROUSSEAU QR")
End If
'************************** ENPC *****************************
If DoCmd.OpenForm("Questions Examen Code ENPC") = True Then
DoCmd.RunMacro ("Imprime ENPC Q")
End If
If DoCmd.OpenForm("Réponses Examen Code ENPC") = True Then
DoCmd.RunMacro ("Imprime ENPC QR")
End If
End Sub |
