Function oW_CHIFFRELETTRE(num$)
' Dans VBE, Menu: Outils/Références:cochez: Microsoft Word XX.0 Object Library )
'crédits: Staple pour l'idée de départ | patricktoulon pour l'upgrade et "épurage" ;-)
Dim oWS As Worksheet, oOLEWd As OLEObject, oWD As Document, Cts$
Cts = Split(num, ",")(1)
Application.ScreenUpdating = False
Set oWS = ActiveSheet
Set oOLEWd = oWS.OLEObjects.Add(ClassType:="Word.Document.8", Link:=False, DisplayAsIcon:=True)
Set oWD = oOLEWd.Object
oWD.Fields.Add Range:=oWD.Range, Type:=wdFieldQuote, Text:="=" & Split(num, ",")(0) & "\*CARDTEXT \*Upper"
oWD.Range.Characters(Len(oWD.Range.Text)).InsertAfter " EUROS ET " 'Eureka !
oWD.Fields.Add Range:=oWD.Range.Characters(Len(oWD.Range.Text)), Type:=wdFieldQuote, Text:="=" & Cts & "\*CARDTEXT \*Upper"
oWD.Range.Characters(Len(oWD.Range.Text)).InsertAfter " CENTIMES." 'Alleluia !!!
oWD.Fields.Update
oW_CHIFFRELETTRE = oWD.Range.Text
'On Error Resume Next
If Not oOLEWd Is Nothing Then oOLEWd.Delete
End Function
Sub test_B()
Dim NomBre As String
NomBre = InputBox("Saisir un montant:" & Chr(13) & "Ex: 1600,12", "Saisie", "1600,12")
MsgBox oW_CHIFFRELETTRE(NomBre), vbInformation, "Conversion Chiffre en Lettre"
End Sub