Discussion :

[xbooster]

Bonjour à tous,

Je viens vers vous pour de l'aide.

J'ai ce script qui a été créé par un ancien employé. Aujourd'hui j'ai besoin que ce script puisse prendre en compte l'encodage UTF-8 sur le message pour afficher les accents. Je ne suis pas trop fort en VBA, j'ai testé quelque truc pour trouver la solution seul mais rien à fonctionner correctement

Merci a tous pour votre aide

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Public Function EnvoiSMS_appel(strnumtel As String, strDateEnvoi As String)
    Dim API As String
    Dim Message As String
    Dim objXml As MSXML2.xmlhttp
 
   Message "J'étais hier en classe d'électronique avec Jésica qui est au téléphone."
 
   API = "***********"
 
    Set objXml = CreateObject("MSXML2.XMLHTTP")
    With objXml
        .Open "GET", API, False
        .send
    End With
 
End Function

[Philippe Tulliez]

Bonjour,
La lecture de ce billet de Pierre Fauconnier Apprendre comment convertir une chaine en utf-8 avec VBA ?

[Franc]

Salut, essaie peut-être ceci:

Code :

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

Message = StrConv("J'étais hier en classe d'électronique avec Jésica qui est au téléphone.", vbFromUnicode)

[xbooster]

Bonjour Franc,

Le code remonte que des ?????????????

Merci pour votre aide

cdt

Jérôme

[Franc]

C'est peut-être que l'API ne prend pas en charge l'UTF-8.

[jurassic pork]

Hello,
Dans le lien de Philippe, il y a deux fonctions. La fonction Uni2Utf devrait fonctionner pour ton cas.
Ami calmant, J.P