IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Transformation fichier Excel -> flatfile


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Profil pro
    Inscrit en
    Avril 2006
    Messages
    72
    Détails du profil
    Informations personnelles :
    Localisation : Suisse

    Informations forums :
    Inscription : Avril 2006
    Messages : 72
    Par défaut Transformation fichier Excel -> flatfile
    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

  2. #2
    Expert confirmé
    Homme Profil pro
    aucune
    Inscrit en
    Septembre 2011
    Messages
    8 208
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : aucune

    Informations forums :
    Inscription : Septembre 2011
    Messages : 8 208
    Par défaut
    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 : Sélectionner tout - Visualiser dans une fenêtre à part
    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

  3. #3
    Expert confirmé Avatar de jfontaine
    Homme Profil pro
    Contrôleur de Gestion
    Inscrit en
    Juin 2006
    Messages
    4 756
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 52
    Localisation : France, Sarthe (Pays de la Loire)

    Informations professionnelles :
    Activité : Contrôleur de Gestion

    Informations forums :
    Inscription : Juin 2006
    Messages : 4 756
    Par défaut
    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

  4. #4
    Membre confirmé
    Profil pro
    Inscrit en
    Avril 2006
    Messages
    72
    Détails du profil
    Informations personnelles :
    Localisation : Suisse

    Informations forums :
    Inscription : Avril 2006
    Messages : 72
    Par défaut
    Merci a vous 2 pour ces informations.

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

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [WD16] transformer fichier excel en pdf
    Par law56100 dans le forum WinDev
    Réponses: 2
    Dernier message: 28/06/2012, 14h27
  2. transformer fichier excel en vba
    Par acognard dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 07/10/2010, 11h56
  3. Transformation fichier Excel en fichier texte
    Par sessime dans le forum Développement de jobs
    Réponses: 1
    Dernier message: 08/02/2010, 11h45
  4. transformation fichier excel en XML
    Par fanette dans le forum XML/XSL et SOAP
    Réponses: 2
    Dernier message: 24/01/2008, 10h47
  5. Réponses: 3
    Dernier message: 19/12/2005, 14h11

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo