Discussion :

[KANIN]

Bonjour,

Je souhaite imprimer mes factures sous conditions VBA, voici le code :

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
20
21
22
23
24
25
26
27
28
29
30
31
Private Sub Commande72_Click()
On Error GoTo Err_Commande72_Click
 
If Me.ID_TVA_Double = "11" Then
Select Case Me.ID_Analaytique
Case "1", "2", "4", "5", "6", "7", "9", "10", "12", "14", "21", "22"
DoCmd.OpenReport " ETA-FACTURE FI autoliquidation", acNormal, , "[IDFACTUREFI]='" & Me![IDFACTUREFI] & "'"
Case "23"
DoCmd.OpenReport " ETA-FACTURE FI ENTRETIEN autoliquidation", acNormal, , "[IDFACTUREFI]='" & Me![IDFACTUREFI] & "'"
 
End Select
 
Else
 
Select Case Me.ID_Analaytique
Case "1", "2", "4", "5", "6", "7", "9", "10", "12", "14", "21", "22"
DoCmd.OpenReport " ETA-FACTURE FI ", acNormal, , "[IDFACTUREFI]='" & Me![IDFACTUREFI] & "'"
Case "3"
DoCmd.OpenReport " ETA-FACTURE FI ENTRETIEN ", acNormal, , "[IDFACTUREFI]='" & Me![IDFACTUREFI] & "'"
 
End Select
 
Exit_Commande72_Click:
    Exit Sub
 
Err_Commande72_Click:
    MsgBox Err.Description
    Resume Exit_Commande72_Click
 
End If
End Sub

Le problème est que je ne peux pas imprimer ETA-FACTURE FI ENTRETIEN autoliquidation" et ETA-FACTURE FI ENTRETIEN" sinon tous les autres modèles de factures fonctionnent.

Pouvez-vous me dire où je me suis trompé ?

Avec mes remerciements

[marot_r]

Bonjour.

C'est probablement l'espace au début du nom qu'il n'aime pas.

Essaye :

Code :

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

"ETA-FACTURE FI autoliquidation"

A+

[tee_grandbois]

bonsoir,
@marot_r

C'est probablement l'espace au début du nom qu'il n'aime pas.

non, car il est "trimé"

@KANIN:
quel est le symptôme (erreur, rien ne se passe, ...) ?
le code rentre t-il dans le Else ?

[marot_r]

Bonjour à vous.

non, car il est "trimé"

OK, merci d'enrichir ma culture :-).

A+

[KANIN]

Bonjour,

Effectivement il ne se passe rien. La fenêtre d'impression s'ouvre mais d'habitude il s'affiche le nombre de page imprimée et l'impression démarre. Or là, le fenêtre s'ouvre et se referme.

[tee_grandbois]

bonsoir,
et en remplaçant acNormal par acViewPreview ?

[KANIN]

Bonjour tee_grandbois,

En mettant acViewPreview, l'état s'affiche. Mais bon j'ai 200 factures à imprimer...je me vois mal les visualiser une par une...

Comment se fait-il qu' acNormal ne fonctionne pas ?

[tee_grandbois]

bonjour,

Comment se fait-il qu' acNormal ne fonctionne pas ?

aucune idée.
Tu peux aussi essayer acViewNormal mais sans conviction car c'est, selon moi, la même chose que acNormal.
Les 2 états ont-ils une imprimante spécifique ?

[KANIN]

acViewNormal fonctionne, je peux imprimer mes factures sans les visualiser.

C'est vraiment bizarre ce truc car j'utilise ce code VBA pour un autre formulaire et ça fonctionne parfaitement avec acNormal...

Tous les états ont une imprimante spécifique car j'utilise plusieurs bacs.

Je te remercie pour ton aide tee_grandbois.

Bien cordialement