Macro pour calculer la distance entre deux villes via google maps V2.07a

DKL66

XLDnaute Nouveau
Bonjour Chers Tous !

Pour me présenter je suis un novice (amélioré !) ;-)
Il y a longtemps que je ne vous ai pas sollicité mais là je bloque...

Je viens de télécharger une application crée par Catrice et reprise et modifiée par BrunoM45
"Macro pour calculer la distance entre deux villes via google maps V2.07a"
qui fonctionne parfaitement sous excel 2013 mais pas sous excel 2016 !
visiblement la fonction "StrPtr" donne "Erreur de compilation: Incompatibilité de type"
dès qu'on lui demande d'exécuter une Multi-destinations
Modules "Fonctions"
' ### Ajout du 17/11/2014
Public Function UTF8_Decode(ByVal sTexte As String) As String
Dim lLength As Long
Dim sBuffer As String
sTexte = StrConv(sTexte, vbFromUnicode)
lLength = MultiByteToWideChar(CP_UTF8, 0, StrPtr(sTexte), -1, 0, 0)
sBuffer = Space$(lLength)
lLength = MultiByteToWideChar(CP_UTF8, 0, StrPtr(sTexte), -1, StrPtr(sBuffer), Len(sBuffer))
UTF8_Decode = Left$(sBuffer, lLength - 1)
End Function

il est possible que par la suite d'autres Erreur ! Mais nous n'en sommes pas encore là !
Merci pour votre retour
Cordialement Vôtre.
 

Statistiques des forums

Discussions
315 096
Messages
2 116 174
Membres
112 677
dernier inscrit
Justine11