Excel Résolu/Fermé

Question

Bonjour, 

voila j'ai develloper un code qui me permet de recuperer des données sous forme de string mais le probleme j'ai des espace entre deux caractere

j'ai essai avec 

debug.print toto

connaissez vous une autre methode pour effacé les espaces 

merci de vore aide

cordialement

eriiic · Accepted Answer

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

pijaku · Answer

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.

amine69500 · Answer

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

pijaku · Answer

remplace :
titi = myfunction par :
titi = myfunction 
titi = Replace(titi, " ", "")

amine69500 · Answer

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

pijaku · Answer

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...

Le Pingou · Answer

Bonjour,
A quoi correspond :  myfonction ... ?

amine69500 · Answer

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

Le Pingou · Answer

Bonjour,  
Merci, donc [myfonction] vous renvoi une chaine...  
Cas 1 par :  
titi = myfunction   
titi = Application.WorksheetFunction.Substitute(titi," ","")

Salutations.   
Le Pingou

amine69500 · Answer

j'ai essayer cette fois ci ca m'envoie juste le premier caractere

donc juste le :

[

merci encore de votre aide 

cordialement

gbinforme · Answer

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.

amine69500 · Answer

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

Le Pingou · Answer

Bonjour,
Avez-vous utilisez cette formule que j'avais modifié:
 
titi = myfunction   
titi = Application.WorksheetFunction.Substitute(titi," ","")

amine69500 · Answer

oui c'est bien celle la mais ca m'envoie que le premier caractere

titi = myfunction   
titi = Application.WorksheetFunction.Substitute(titi," ","")

amine69500 · Answer

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