Macro pour remettre en forme un fichier

Bonjour,

voila mon problème, j'ai un logiciel qui me sort des jolis fichiers ".asc" que l'on peut ouvrir avec wordpad et excel, le problème étant que lorsqu'on l'ouvre avec excel, le beau tableau que l'on avait sous wordpad se met entièrement dans la colonne A, y aurait - il un moyen de remédier à ça avec une macro qui remettrai cela dans des colonnes distinctes?

Voila le lien avec un exemple de fichier :

https://www.excel-pratique.com/~files/doc/STRUCT_bd12A.zip

J'avais pensé à :

    Workbooks.Open Filename:="C:\STRUCT-bd12A.asc"

    Columns("A:A").Select
    Selection.TextToColumns destination:=Range("A1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        :=";", TrailingMinusNumbers:=True

    Cells.Select
    Selection.Copy

    Windows("fichier ou je veux les donnees.xls").Activate
    Sheets(1).Select
    ActiveSheet.Paste

Mais cela ne fonctionne pas...

Bonjour,

Une demi solution, après laquelle il te restera un peu de mise en forme manuelle à faire...

Depuis Excel, ouvre ton fichier .asc

=> ça t'ouvre l'assistant d'importation de texte

Etape 1 : choisis l'option "Délimité"

Etape 2 : en séparateur choisis "Autre" et renseigne " | " (Alr Gr + 6)

Terminer

Tu retrouves tes données en colonnes comme sur ton fichier texte, reste plus qu'à ajuster tes encadrements

Merci beaucoup!

bonjour,

Remplace aussi :

Cells.Select 
Selection.Copy 
Windows("fichier ou je veux les donnees.xls").Activate 
Sheets(1).Select 
ActiveSheet.Paste 

par

Cells.Copy Destination:=Workbooks("fichier ou je veux les donnees").Sheets(1).Range("A1")

Sans mettre le ".XLS"

Bonne journée

Dan