[XL-2003] MsgBoxEx de arkham46

boutonmessage = "Please place the Form back in the Ongoing directory" Message = "{\rtf1\ansi\ansicpg1252\deff0\deflang1036{\fonttbl{\f0\fswiss\fcharset0 arial;}}" & vbCrLf & _ "{\*\generator Msftedit 5.41.15.1515;}\viewkind4\uc1\pard\f0\fs25 " & vbCrLf & _ "\par" & vbCrLf & _ "\qc Form not found in proper directory:\par" & vbCrLf & _ "\par" & vbCrLf & _ "\b " & boutonmessage & " \b0 " & vbCrLf & "\par" & vbCrLf & _ "\par" & vbCrLf & _ "}\qc0" 'appel de la procedure qui tranforme le format rtf en message Call MsgBoxEx(Message, vbCritical, "ERROR DELETED", , , _ RGB(240, 250, 240), , , , False)

Apres pas mal d'heure de recherche j'ai trouvé la solution.
Pour ceux que ça intéresse.

Voici un exemple:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
boutonmessage2 = "sUmdak;rMrg;edImeTAkñúgesovePArayeQaµHnigTIkEnøgEdlkMBugdM eNIrkar"
 
'format rtf = format word
Message = "{\rtf1\ansi\ansicpg1252\deff0\deflang1036{\fonttbl{\f0\fswiss\fcharset0 arial;}{\f1\fswiss\fcharset0 Limon S1;}}" & vbCrLf & _
             "{\*\generator Msftedit 5.41.15.1515;}\viewkind4\uc1\pard\f0\fs25 " & vbCrLf & _
             "\par" & vbCrLf & _
             "\qc Form not found in proper directory:\par" & vbCrLf & _
             "\par" & vbCrLf & _
             "\b " & boutonmessage & " \b0 " & vbCrLf & "\par" & vbCrLf & _
             "\par" & vbCrLf & _
             "\par" & vbCrLf & _
             "{\fs50 \f1 \b " & boutonmessage2 & " \b0} " & vbCrLf & "\par" & vbCrLf & _
             "\par" & vbCrLf & _
             "}\qc0"

Ça vient de ce bout de code situé au début du message RTF:

Code:

{\f0\fswiss\fcharset0 arial;}{\f1\fswiss\fcharset0 Limon S1;}

Ensuite il faut utiliser soir

Code:

{\f0 texte}

pour Arial soit

Code:

{\f1 texte}

pour Limon S1.