Sujet Précédent Sujet Suivant

Excel

Résolu/Fermé
amine69500 Messages postés 418 Date d'inscription lundi 8 juin 2009 Statut Membre Dernière intervention 25 août 2013 - 20 juin 2012 à 15:12
amine69500 Messages postés 418 Date d'inscription lundi 8 juin 2009 Statut Membre Dernière intervention 25 août 2013 - 21 juin 2012 à 20:46
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
A voir également:

15 réponses

Réponse 1 / 15
eriiic Messages postés 24570 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 23 avril 2024 7 214
21 juin 2012 à 00:19
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
2
Réponse 2 / 15
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 744
20 juin 2012 à 15:18
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.
0
Réponse 3 / 15
amine69500 Messages postés 418 Date d'inscription lundi 8 juin 2009 Statut Membre Dernière intervention 25 août 2013 12
20 juin 2012 à 15:27
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
0
Réponse 4 / 15
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 744
20 juin 2012 à 15:48
remplace : 
titi = myfunction
par : 
titi = myfunction 
titi = Replace(titi, " ", "")
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 15
amine69500 Messages postés 418 Date d'inscription lundi 8 juin 2009 Statut Membre Dernière intervention 25 août 2013 12
Modifié par amine69500 le 20/06/2012 à 15:55
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
0
Réponse 6 / 15
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 744
20 juin 2012 à 16:44
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...
0
Réponse 7 / 15
Le Pingou Messages postés 12048 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 26 avril 2024 1 427
20 juin 2012 à 22:24
Bonjour,
A quoi correspond : myfonction ... ?
0
Réponse 8 / 15
amine69500 Messages postés 418 Date d'inscription lundi 8 juin 2009 Statut Membre Dernière intervention 25 août 2013 12
20 juin 2012 à 22:48
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
0
Réponse 9 / 15
Le Pingou Messages postés 12048 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 26 avril 2024 1 427
Modifié par Le Pingou le 20/06/2012 à 23:12
Bonjour,
Merci, donc [myfonction] vous renvoi une chaine...
Cas 1 par : 
titi = myfunction   
titi = Application.WorksheetFunction.Substitute(titi," ","")


Salutations.
Le Pingou
0
Réponse 10 / 15
amine69500 Messages postés 418 Date d'inscription lundi 8 juin 2009 Statut Membre Dernière intervention 25 août 2013 12
20 juin 2012 à 23:16
j'ai essayer cette fois ci ca m'envoie juste le premier caractere

donc juste le :

[

merci encore de votre aide

cordialement
0
Réponse 11 / 15
gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 685
20 juin 2012 à 23:17
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.
0
Réponse 12 / 15
amine69500 Messages postés 418 Date d'inscription lundi 8 juin 2009 Statut Membre Dernière intervention 25 août 2013 12
20 juin 2012 à 23:42
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
0
Réponse 13 / 15
Le Pingou Messages postés 12048 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 26 avril 2024 1 427
20 juin 2012 à 23:42
Bonjour,
Avez-vous utilisez cette formule que j'avais modifié: 

titi = myfunction   
titi = Application.WorksheetFunction.Substitute(titi," ","")
0
Réponse 14 / 15
amine69500 Messages postés 418 Date d'inscription lundi 8 juin 2009 Statut Membre Dernière intervention 25 août 2013 12
20 juin 2012 à 23:51
oui c'est bien celle la mais ca m'envoie que le premier caractere

titi = myfunction
titi = Application.WorksheetFunction.Substitute(titi," ","")
0
Réponse 15 / 15
amine69500 Messages postés 418 Date d'inscription lundi 8 juin 2009 Statut Membre Dernière intervention 25 août 2013 12
21 juin 2012 à 20:46
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
0