Discussion :

[Mobydisk21]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Invité]

Bonjour
A moins que je n'ai pas bien compris pourquoi ne mets tu pas ta macro sur l'évènement "Ouverture de chaque formulaire". Comme cela tu ouvres ton formulaire et tu lances la macro correspondante.

[Invité]

Bonjour

Tu utilises une méthode (DoCmd...) qui effectue quelque chose, elle ne peut te donner des informations pour savoir si un formulaire est ouvert.

Pour cela je t'invite à consulter la FAQ Access (qui est un puits de science), et entre autre cela : http://access.developpez.com/faq/?page=Forms#isloaded

Philippe