Discussion :

[electrosat03]

Salut,

Je cherche depuis un moment comment faire pour imprimer une boîte de message afin d'avoir une copie du message.

A la suite d'un message à l'aide d'une boîte de dialogue MsgBox, j'avertis l'utilisateur, il faudrait que je puisse imprimer ce message sans passer par impécran.

Donc juste en VBA à l'aide du bouton YES sur la boîte MsgBox.

Merci
A+

[Heureux-oli]

Salut,

Question simple, mais il vient d'où le texte de ton MsgBox ?

Si il se trouve dans une variable, il suffit d'imprimer le contenu de la variable.

[electrosat03]

Salut,

Il est généré par un contrôle de présence des références.

Donc, la boîte affiche toutes les références, présentes et manquantes dans une boîte Message et je voudrais pouvoir l'imprimer.

Je pensais envoyer le contenu dans le bloc-note, ça j'ai réussi, mais il faut encore l'ouvrir et ensuite imprimer puis fermer.

Si tu as une solution, merci.
A+

[Heureux-oli]

Salut,

Si c'est juste pour l'imprimer :

Tu crées un rapport avec simplement une étiquette.
Dans le module qui contient ton MsgBox, tu crées une variable globale

Code :

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

Globale monTextTemp As string

À l'intérieur de ta procédure, tu affecte le texte de ton MsgBox à cette variable.

Dans le rapport contenant cette étiquette, tu affiches dans l'étiquette le contenu de la variable.

Code :

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

1
2
3
4
 
Private Sub Report_Open(Cancel As Integer)
Me.Étiquette1.Caption = monTextTemp
End Sub

Pour l'appel du rapport :

Code :

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

1
2
3
4
5
6
7
8
9
10
Option Compare Database
Option Explicit
Global monTextTemp As String
 
 
 
Sub TestEtat()
monTextTemp = "Texte à Afficher"
DoCmd.OpenReport "E1", acViewPreview
End Sub

Et mon rapport affiche bien le texte souhaité.

[electrosat03]

Merci,

Je vais essayer ça, je pense que c'est la façon la plus facile.

A+