Archives quotidiennes : 10 septembre 2015

Utiliser l'ocx suivant richtx32.ocx Function RtfToTxt(Texte) Set objRTF = CreateObject("RichText.RichTextCtrl") objRTF() = Texte n = objRTF.Text m = 1 Do Until m = 0 n = Replace(n, Chr(13) & Chr(10),…