Bonjour le forum

Problème avec une formule vba je ne comprends pas sa réaction
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
   Dim Thequestion As Integer
 
   Thequestion = MsgBox("Voulez vous imprimer.", vbYesNo + vbQuestion)
 
        If Thequestion = vbYes Then
 
            DoCmd.OpenReport "E_monetat", acViewNormal, , "[ID]=" & Me.ID.Value
            DoCmd.Close acForm, "F_monformulaire", acSaveYes
 
        ElseIf Thequestion = vbNo Then
            DoCmd.OpenForm "F_monformulaire", acNormal, , 1 = 0, acFormEdit, acWindowNormal
        'Exit Sub
        End If
Quand je valide mes nouvelles données, il me demande si je veux imprimer

Quand je réponds "non" je reviens sur une page vierge pas problème

Mais quand je réponds "oui" il ouvre "E_monetat" en masqué imprime directement sans les données puis referme " E_monetat" tout ça en même temps

Si quelqu’un pouvait m'aider à comprendre où est mon erreur
Merci d'avance
David @+

et bonne année à tous