Discussion :

[jeo13]

Bonjour,

J'ai un probleme sur la mise en forme d'un fichier txt en fichier excel. De ce fait, l'ouverture par excel et le choix des delimiteurs ne suffit pas pour le convertir comme il faut.


Pour vous faire une idee du fichier texte et du fichier excel que j'aimerais avoir:

fichier txt

fichier xls

N'etant pas un expert en vba, mais sachant qu'on peut en vba lire un fichier texte et ecrire sur un fichier excel, je me tourne vers vous pour avoir quelques idees pour les methodes que je pourrais utiliser.

Merci d'avance.

JEO

[Invité]

Bonjour Jeo13,

Désolé je parviens à télécharger votre fichier .xls mais pas le .txt

[jfontaine]

Au cas ou ...
As tu demandé pour avoir un fichier au format "a plat"?
Le fichier atuel demandant un traitement assez lourd

[kiki29]

Soir Bon
Un 1er jet qui nettoie , reste à positonner correctement certaines données
, à adapter sans doute et surtout à tester

[jeo13]

Soir Bon
Un 1er jet qui nettoie , reste à positonner correctement certaines données
, à adapter sans doute et surtout à tester

Merci à tous pour vos réponses et merci infiniement a kiki !

Ca sera déjà bon comme ca pour l'instant, avant de me mettre sur les dernieres modif pour la mise en forme, un rapide traitement manuel par la suite permettra d'arriver au résultat souhaité.

J'ai lu ton code, j'avais certaines idées en tête mais pour les implémenter c'est autre chose ...


Merci encore !

[kiki29]

Jour Bon, en fait il faudrait la correspondance entre l'intitulé des colonnes du fichier xls et les colonnes du fichier txt à importer ou à créer

[jeo13]

Jour Bon, en fait il faudrait la correspondance entre l'intitulé des colonnes du fichier xls et les colonnes du fichier txt à importer ou à créer

Bonjour,

Apres quelques modif j'arrive presque a ce que je veux, neanmoins j'ai une petite question:

Que dois-je modifier pour ecrire a partir de la troisieme ligne ? (quelque chose doit m'echapper sur l'initialisation dans la procedure qui rempli le fichier xls)

Merci

[kiki29]

Re, Liste des modifs dans les procédures suivantes ( pas testé )

Code :

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

1
2
3
4
5
6
 
Dates1			For i = 3 To iMax
Dates2			For i = 3 To iMax
Deplacer                For i = 3 To iMax Step 2	
Lire			iRow = 2
SupprimerLignesVides	For i = iMax To 3 Step -1

En espérant ne rien avoir oublié, et qu'il n'y ait pas d"effets indésirables, à toi de le vérifier

[jeo13]

Re, Liste des modifs dans les procédures suivantes ( pas testé )
...

Nickel chrome !

Thanks

[kiki29]

re, un oubli malheureux

Code :

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

1
2
 
Remplissage	For i = 3 To iMax