Transformation fichier Excel -> flatfile [Résolu]

[BigZ444]

Bonjour,

Je reçois un fichier excel en fin de semaine avec une liste de factures de mon fournisseur avec des colonnes genre : Date, libellé, montant etc.

J'ai une interface qui permet d'importer des factures dans mon logiciel comptable. Par contre ce fichier est un flatfile avec toutes les informations bout à bout (20110101Facture truc bidule475...)

Je pensais utiliser une macro qui me génère ce fichier TXT, mais je suis un peu novice là dedans. Est-ce que vous pouvez m'orienter sur 2-3 instructions a utiliser ainsi que la meilleur façon de fonctionner.

Autre question plus générale, si je code cette Macro sur un de ces fichiers, est-ce qu'elle va être disponible pour mes autres fichiers ?

Merci

[Daniel.C]

Bonjour,
La macro demande de choisir le nom du fichier à ouvrir,, donc pas de problème. Par contre, le nom du fichier en sortie est, sauf instruction contraire, codé en dur dans la macro :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub test2()
'réf. 111007.xlsm
Dim Enrgt As String, i As Integer, c As Range, Fichier As String
Fichier = Application.GetOpenFilename("Excel Files (*.xls*), *.xls*")
If Fichier <> "" Then Workbooks.Open Fichier
    Close #1
    Open "c:\temp\toto.txt" For Output As #1
    For Each c In Range([A1], Cells(Rows.Count, 1).End(xlUp))
        Enrgt = ""
        For i = 1 To Cells(c.Row, Columns.Count).End(xlToLeft).Column
            Enrgt = Enrgt & Cells(c.Row, i)
        Next i
        Print #1, Enrgt
    Next c
    Close #1
    ActiveWorkbook.Close False
End Sub

[jfontaine]

Bonjour,

Sur ce post tu trouveras une réponse sur la création d'un fichier au format txt avec séparateur de champ.
dans ton cas, je pense que chaque champ à une longueur à respecter pour être intégrer correctement dans le logiciel comptable.

http://www.developpez.net/forums/d11...format-defini/

utre question plus générale, si je code cette Macro sur un de ces fichiers, est-ce qu'elle va être disponible pour mes autres fichiers ?

En plaçant cette macro dans ton classeur de macro personnel (PERSO.XLS) tu pourras la lancer à partir de tous les fichiers

Reviens vers nous si besoin de plus d'éclaircissement

[BigZ444]

Merci a vous 2 pour ces informations.

J'ai la base, me reste plus qu'a tricoter là autour.