Suite de l'impression pour Raymond..

Bonsoir Raymond,

je m'amuse avec mes impressions mais ca fonctionne pas je=20
comprends pas pourquoi.. voici mon code comme tu me l'as=20
montr=E9:

Private Sub Commande91_Click()
On Error GoTo Err_Commande91_Click

Dim VariableNum=E9ro As Long
Dim Schema As Long
VariableNum=E9ro =3D InputBox("Entrer le num=E9ro du=20
rapport")

DoCmd.OpenReport "Projets",=20
acViewNormal, , "[rapport] =3D " & VariableNum=E9ro, acDialog
DoCmd.OpenReport "Etat-Requ=EAte-Moteur-Index",=20
acViewNormal, , "[rapport] =3D " & VariableNum=E9ro, acDialog
DoCmd.OpenReport "Etat-Requ=EAte-Schema-
ResultatsMetrique", acViewNormal, , "[rapport] =3D " &=20
VariableNum=E9ro, acDialog
DoCmd.OpenReport "Etat-Schema-ResultatsMetrique",=20
acViewNormal, , "[rapport] =3D " & VariableNum=E9ro, acDialog
DoCmd.OpenReport "Requ=EAte-Page_index",=20
acViewNormal, , "[rapport] =3D " & VariableNum=E9ro, acDialog
DoCmd.OpenReport "Schema",=20
acViewNormal, , "[rapport] =3D " & VariableNum=E9ro, acDialog
DoEvents
DoCmd.OpenForm "Projets", acViewNormal, , "[rapport]=20
=3D " & VariableNum=E9ro
DoEvents
DoCmd.PrintOut acSelection, , , , 5 ' 5 copies
DoEvents
DoCmd.Close acForm, "Projets"
=20
=20
Exit_Commande91_Click:
Exit Sub

Err_Commande91_Click:
MsgBox Err.Description
Resume Exit_Commande91_Click
=20
End Sub

Dit moi ce qui ne va pas.. si tu te souviens bien je=20
voulais avoir un bouton qui prendrait chacun de mes=20
diff=E9rents formulaires ou =E9tats r=E9unis dans les tables=20
par un no de rapport et pouvoir en faire une impression=20
en une seule fois..

J'attends de tes nouvelles si tu y comprends quelque=20
chose :)

Merci
Sady