Ce site est optimisé pour être consulté depuis un navigateur moderne dans lequel JavaScript est activé.

Comment encoder une URL en VBA Excel ?

ayi

Comment encoder une chaîne pour une utilisation dans une URL en Excel VBA ?

ayi_2

VBA n’a pas de fonction native d’encodage URL. Voici une fonction personnalisée :
<pre data-code-wrap="vba"><code class="lang-vba">Function URLEncode(str As String) As String
Dim i As Integer
Dim c As String
Dim result As String

For i = 1 To Len(str)
    c = Mid(str, i, 1)
    If c Like "[A-Za-z0-9]" Or c = "-" Or c = "_" Or c = "." Or c = "~" Then
        result = result & c
    Else
        result = result & "%" & Right("0" & Hex(Asc(c)), 2)
    End If
Next
URLEncode = result

End Function

</code></pre>
Ou utilisez <code>WorksheetFunction.EncodeURL</code> (disponible dans Excel 2013+) :
<pre data-code-wrap="vba"><code class="lang-vba">result = Application.WorksheetFunction.EncodeURL(str)

</code></pre>