Discussion :

[popsmelove]

Bonjour,

je cherche à ouvrir un fichier txt avec vba dans excel en appliquant la fonction trim à tous les champs de ce fichier. Savez-vous si on peut le faire directement ? car je voudrais eviter de faire des boucles pour circuler sur toutes les cellules du fichier pour y appliquer la fonction.

Petite précision, le but est bien de supprimer les espaces inutiles dans les chaînes de caractères, espaces générés par Factset(base de données) quand on exporte des txt.

Merci d'avance

[ucfoutu]

Bonjour',

fais un Trim sur chaque ligne lue par Line Input ...

Mais tu ne nous parles pas de la structure éventuelle de ton fichier texte (et je vois que tu parles de champs ...) ... Les choses peuvent alors être fort différentes, lecture y compris !

[popsmelove]

Ok, le fichier txt est en pièce jointe, a noter que le nombre de lignes est variables et les colonnes peuvent l'être

De ce que j'ai compris de l'aide excel pas sur de comprendre comment utiliser Line imput

Merci

[popsmelove]

ha mince , j'avais pas vu que tu n'ouvrais les pièces jointes, voici ce qui sort par exmple:


Ligne 1 :B10QRG9 ;ZUBLIN IMMO FRANCE ; NA; NA;FRANCE ;@NA ;EUR

Ligne 2 : 5983816 ;ZURICH FIN SVS GRP ; 403,010; 4030;CH ;CH00110753;CHF

[ouskel'n'or]

Qelle méthode utilises-tu pour ouvrir ton txt ? Tu passes par Workbooks.OpenText..., par Open "Chemin\lefichier.txt" for input as #, par fso (FileSystemObject)... ?

Puisque tes séparateurs sont des ";", tu peux toujours tester

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Workbooks.OpenText Filename:="c:\Rep\Fichier.txt", DataType:=xlDelimited, Other:=True, OtherChar:=";"

Ensuite, pour supprimer les espaces dans toute ta feuille, tu peux utiliser l'enregistreur de macro mais ça devrais donner un truc comme ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Cells.Replace What:=" ", Replacement:="", LookAt:=xlPart

[popsmelove]

super, merci ... c'est exactement ce qu'il me fallait

[popsmelove]

Oups, en fait le replace ne me convient pas car je ne dois pas supprimer les espaces entre les mots, mais bien comme le fait la fonction trim c'est à dire en fin ou début de chaine...

une idée ? pour l'instant je bulle

[popsmelove]

J'ai trouvé une solution, la voici :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
 
Dim plage As Range
Directory = "R:\GERANTS\Quant\db\_TEST\"
Workbooks.OpenText Filename:=Directory & "factset_data.txt", DataType:=xlDelimited, Other:=True, OtherChar:=";"
'Cells.Value = Trim(Cells.Value)
Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Set plage = Selection
 
For Each cell In plage
    If (cell <> 0 Or cell <> "") Then cell.Value = Trim(cell)
Next

Si quelqu'un a mieux je suis preneur

Thanks

[ouskel'n'or]

Non, pas mieux sauf que tu peux simplifier

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Dim cell As Range
Directory = "R:\GERANTS\Quant\db\_TEST\"
Workbooks.OpenText Filename:=Directory & "factset_data.txt", DataType:=xlDelimited, Other:=True, OtherChar:=";"
For Each cell In ActiveSheet.UsedRange
    If (cell <> 0 Or cell <> "") Then cell.Value = Trim(cell)
Next

Bonne suite

[popsmelove]

ha cool, je connaissais pas le usedrange....ca va me simplifier la vie pour pa mal de choses

thanks