Excel

Bonjour,

et si tu traitais le problème à la source : j'ai develloper un code
Manifestement il ne retourne pas des chaines adaptées à excel, change de codage de caractère pour trouver le bon (essaie unicode, ansi ...)

eric

Bonjour,

j'ai develloper un code qui me permet de recuperer des données sous forme de string
Pourriez vous nous transmettre ce-dit code?

Sinon :
LTrim(String) supprime les espaces en début de chaine,
RTrim(String) supprime les espaces en fin de chaine,
Trim(String) supprime les espaces en début et en fin de chaine
Replace(String, " ", "") supprime tous les espaces.

bonjour et merci de votre aide

Public Sub gettoto()

Dim titi As String

titi = myfunction

Debug.Print titi

'et la j'ai mes données qui s'affiche sur la fenetre d'execution mais avec des espaces entre

End Sub

je souhaiterais utilisé replace pour effacé les espaces entre les caractere

comment je pourrais faire pouvez vous m'aider SVP

merci encore une fois

cordialement

remplace :

titi = myfunction 

par :

titi = myfunction 
titi = Replace(titi, " ", "")

merci de votre aide

j'ai essai mais ca ne marche pas j'ai le meme resultat

un espace entre deux caractere

Avez-vous d'autre solution SVP

merci de votre aide

cordialement

Il doit y avoir un autre souci. Sans avoir accès ni à tes données, ni au code complet je ne peux plus faire grand chose pour toi...

Bonjour,
A quoi correspond : myfonction ... ?

bonsoir et merci de votre attention

myfunction est un get en web services (réalisé sous c++ dans une dll)que j'appel depuis vba et je recupere son résultat dans ma fenetre d'excution, mais le probleme est que le resultat retourné ya des espace entre les caractere

voila un apercu du resultats

[ { " s e l f " : " h t t p : / / l o c a l h o s t : 8 0 8 0 /.......} ]

j'espere que j'etais claire, sinon n'hesite pas

merci de votre aide

cordialement

Bonjour,
Merci, donc [myfonction] vous renvoi une chaine...
Cas 1 par :

titi = myfunction   
titi = Application.WorksheetFunction.Substitute(titi," ","")

Salutations.
Le Pingou

j'ai essayer cette fois ci ca m'envoie juste le premier caractere

donc juste le :

[

merci encore de votre aide

cordialement

bonjour à tous,

Si le replace ne fonctionne pas il faudrait essayer avec un espace insécable (alt 0160 ou alt 255).

Si cela n'est pas fonctionnel il faut récupérer le résultat et le coller dans un éditeur hexa pour voir le caractère qui est intercalé dans le résultat.

BONSOIR ET MERCI DE VOTRE AIDE

(alt 0160 ou alt 255) la methode ne fonctionne pas
sinon pour edit hexa il l'est pas mal l'outil sinon c'est pas vraiment mon but de recuperer le resultat le mettre dans fichier le coller et comprendre le reste , non je souhaite recuperer directement mon resultat sans espace entre les caractere dans ma fenetre d'exuction

merci de votre aide

cordialement

Bonjour,
Avez-vous utilisez cette formule que j'avais modifié:

titi = myfunction   
titi = Application.WorksheetFunction.Substitute(titi," ","")

oui c'est bien celle la mais ca m'envoie que le premier caractere

titi = myfunction
titi = Application.WorksheetFunction.Substitute(titi," ","")

Bonsoir et merci encore pour ceux qui ont essayé de m'aider

merci a toi aussi erric ta vais raison le probleme venais de la source (la fonction de la dll crée sous c++)

il fallait changer le resultat de la fonction, de BSTR en LPCSTR,

merci encore une fois

Bonne soirée a tous