mettre un fic sous form excel

[jo]

Bonjour le forum !
J’ai vraiment un gros pb q je traîne depuis qqs mois !
En gros je dois mettre en format excel un fic source format libre (sans point d’extension) et qui comporte un certain nbre de colonnes, tous en automatique.

A B C D
11 ret Grg244 12h
0 noit Fdsfds555 36h
11 fdg Fdsfdsf8 32h
575 fdsfds Ara78 45h
75 fzfs Re88 56h
2 fsdf Set69 1h

Bref voici dc ce que j’ai dans mon fic source (cf tab au dessus), sans les lignes de tableau , j’ai que les données brute.
Par une procedure qui ouvre le fichier source osus format excel.
Et le met en forme excel: met des limites pour chaque colonnes qui va être injecté dans un tab excel comme au dessus à l’aided’un utilitaire de excel

Ma petite procedure fonctionne bien jusqu’à ce que le format du fic source change un petit peu, cad lorsque on a un mot plus long que d’habtude et décalant ainsi les limites des futures lignes excel.

J’ai alors un tab avec des données coupés entre 2 colonnes (cf colonne B & D):
Ce qui fou la suite de mon prog en live 

A B C D
1 1ret Grg 24412h
0 noit Fdsfds 55536h
1 1fdg Fdsfd sf832h
57 5fdsfds Ara 7845h
75 fzfs Re88 56h
2 fsdf Set 691h


Est ce qu’il existe un autre moyen plus “catholique” de rapatriés mes données sous excel et garder un tab “potable” même lorsuqe le format du fic srce change ?

J’ai tenter un “get externa data” avec le même resultat, je ne sais pas si c moi qui déconne 

Je pense peut être à une lecture du texte ligne/ligne par lecture du fic scrce mais cela represente bcp de taf pr une simple mise en excel !

Si qqn a une idée je le remercie d’avance de venir à mon secours :-(( !!

Merci ;-)

 

[RENATO]

Bonjour

Au regard des données, il semble que le séparateur "espace" de l'assistant de conversion suffirait à traiter la ventilation des 4 colonnes.
Une chaine plus longue ne devrait en rien changer le découpage prédéfini.
Quel séparateur est utilisé pour la cesure ?
Peux-tu nous en dire un peu plus ?

A bientôt

Rénato

 

[jo]

Bonjour Renato et le forum ;-)

Voici le code que j'utilise :

Workbooks.OpenText FileName:=MonChemin & NomFichier, Origin:=xlWindows, StartRow:=1, DataType:=xlFixedWidth, FieldInfo:= _
Array(Array(0, 1), Array(10, 1), Array(24, 1), Array(38, 1), Array(49, 1),_
Array(80, 1), Array(110, 1), Array(121, 1), Array(163, 1), Array(181, 1),_
Array(194, 1), Array(207, 1), Array(219, 1), Array(235, 1), Array(255, 1),_
Array(284, 1), Array(304, 1))


Voici en faite une description de la manip (manuelle) . Tu me diras c relous! mais bon, vo mieux trop q pas assez )

Dans excel 97, j’ouvre le fichier source (sans format) automatiquement l’assistant de “decoupage” (Text Import Wizard), je choisi l’option “Fixed width”, sur le bouton “next”. A partir de là, je corrige les colonnes mal dééocupés. Puis sur “next” encore, et option “General” et enfin “finish”.
J’obtiens alors un truc correcte. Mais qd j’automatise ce procédé par macro don’t une parite du code en haut, lorsque je crois le format du fichier scrce change mon decoupage tombe à lo :-(

Je te remercie si tu peux m’enlever cette épines qui me fait souffrir à chaque fin de mois :-(

Ciao et d’avance merci!

 

[RENATO]

Salut Jo,

Si tu colles ton fichier source à partir de la cellule A1 et que tu exécutes ce listing, est-ce que c'est mieux ?

Sub MacroJo()
'
' Macro1 Macro
' Macro enregistrée le 04/05/2004 par Rénato'

Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=False, _
Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _
:=Array(Array(1, 2), Array(2, 2), Array(3, 2), Array(4, 2))
Range("C12").Select

End sub

Si ce n'est pas le cas, peux-tu me joindre en PJ un exemple de fichier source ?

A bientôt

Rénato

 

[jo]

salut Renato ;-) ainsi q'à ts et à ttes !

Je vais essayer ton code et je te reviens.
En faite je peux pas de te donner le fic. srce car c des fic de mon boulot
et on ne peux les sortir :-(
Je vais essayer de faire un dossier comparable, c peut être mieux !
Allez je te remercie et @ ttes