Ouverture d'un fichier txt en vba : peut-on appliquer une fonction au fichier ?

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

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 !

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

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

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:

---

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:

---

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

---

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

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

J'ai trouvé une solution, la voici :

Code:

---

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

Non, pas mieux sauf que tu peux simplifier

Code:

---

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 ;)

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

thanks