Macro pour remplir document

Bonsoir,

Désolé pour mon retard mais j'ai encore un message d'erreur que je n'arrive pas à comprendre, j'ai bien procéder à toutes tes modifications.

Il me reste plus que ce problème la et après il fonctionne à merveille.

Bonsoir,

Essaie de remplacer

WsBon.PrintOut Preview:=True 'par :
Worksheets("Fiche").PrintOut Preview:=True

Et si ça ne marche pas envoie moi ton fichier par e-mail :

Je t'envoie mon adresse par email pour que tu puisses joindre ton fichier par retour si nécessaire.

A+

Bonjour,

je te renvoie le fichier car rien à faire ça ne marche pas. je suis désolée, je n'ai pas reçu ton adresse mail.

cdt,

Aline

Dans le usfSaisie Modifier la macro comme suit :

Private Sub cmdConfirm_Click()
   WriteRecord
   WsBon.Range("E7") = CLng(Me.tbNum)
   Worksheets("Fiche").PrintOut Preview:=True  '<= Ligne à supprimer
   Unload Me
   ImpressDirect
End Sub

A+