Code VBA pour conversion txt en Excel

merci de me fournir un code pour convertir le fichier txt en fichier excel

Bonjour,

S'il vous plaît

Merci ...

Hello,

bonjour à vous aussi,

pour ça il faudrait savoir comment "découper" les colonnes

07/01/HMP/ACH-22-01-0027 1265330 B 61500000 ACH FACTURE 0015 LOTFI KHEFIFI 145,000 0,000 145,000

ça commence où, ça s'arrête où, ça s'appelle comment ?

Bonjour,

S'il vous plaît

pouvez vous m'aider un convertir le fichier txt en fichier excel

et merci (desole Mr Patrick1957)

Date Pièce écriturType N° compte Tiers de Libellé de l'écriture Débit Crédit Solde
ACH - ACHATS
07/01/HMP/ACH-22-01-0027 1265330 B 61500000 ACH FACTURE 0015 LOTFI KHEFIFI 145,000 0,000 145,000

champ1 date :07/01/ l'annee doit etre recuperer de l'entete de fichier

champ2 piece :HMP/ACH-22-01-0027

champ3 écritur:1265330

champ4 Type:B

champ5 N° compte:61500000

champ6 Tiers:

champ7 Code Journal:ACH

champ8 Libellé de l'écriture:FACTURE 0015 LOTFI KHEFIFI

champ9 Débit 145,000

champ10 Crédit 0,000

champ11 Solde 145,000

Bonjour

Pour moi c'est l'occasion de découvrir les possibilités de Power Query qui est fait pour ce genre de manipulation.

On peut arriver à gérer ce genre de mise en forme mais c'est loin d'être pratique. Le mieux serait de regarder si votre logiciel compta ne permet pas un export au format "Table de données" et non "pour impression" avec ces pages successives

Stéphane

Bonjour,

Il faut connaître la longueur maximum du champ "libellé de l'écriture".

Daniel

Bonjour

Cette fonctionnalités existe de base en excel avec l'outil Convertir disponible dans le menu Données

Restez simple et essayez comme ceci :
- Ouvrez excel
- allez dans le menu fichier --> Ouvrir
- choisir votre fichier txt (Cette action va ouvrir l'option que vous trouvez dans le menu excel --> Données -> convertir)
- Cliquez deux fois sur "Suivant" puis sur "Terminer"

Une fois fait il vous reste à supprimer les quelques lignes de titres que vous avez pour chaque tableau et que vous ne voulez plus

Crdlt

bonjour le fil,

une toute petite macro, mais je pense qu'avec PQ la conversion est puet-être encore mieux.

Bonsoir

une proposition en PQ qui peut amelioree par les excperts PQ

Bonne soirée

Bonjour,

SamyGB a écrit :

une proposition en PQ qui peut amelioree par les excperts PQ

Une proposition qui rectifie notamment la conversion en nombre décimal des 3 dernières colonnes (ce n'est pas un espace en séparateur de milliers, mais un espace insécable - Il faut alors utiliser les paramètres régionaux, expliqué dans ce fil)

Il suffit de modifier le chemin et le nom du fichier dans la cellule M2

Attention, j'ai utilisé ta méthode de conversion, mais comme le précise raccourcix, il serait préférable de modifier la méthode d'extraction du fichier txt à partir de l'application source

let
    Source = Csv.Document(File.Contents(Fich),11,{0, 16, 35, 50, 53, 62, 76, 84, 120, 133, 153},ExtraValues.Ignore,65001),
    // Import du fichier avec des tailles de colonnes fixes
    Filtre = Table.SelectRows(Source, each List.Contains({"0".."9"}, Text.Start(Text.Trim([Column1]), 1))),
    // Sélection des lignes de la 1ère colonne qui commencent par un chiffre
    ListCols = {"Date", "Pièce", "écriture", "Type", "N° compte", "Tiers", "Code", "Libellé de l'écriture", "Débit", "Crédit", "Solde"},
    // Liste des en-têtes des colonnes finales
    LTransfo = List.Transform(ListCols, (col)=>{col, each Text.Trim(_)}),
    // Fonction de conversion afin de supprimer les espaces
    Rename = Table.RenameColumns(Filtre,List.Zip({Table.ColumnNames(Filtre),ListCols})),
    // Renommage des colonnes
    SupprEspaces = Table.TransformColumns(Rename,LTransfo),
    // Suppression des espaces via la fonction spécifiée plus haut
    InsertDate = Table.TransformColumns(SupprEspaces, {{"Date", each Date.From(_ & Text.Split(SupprEspaces[Pièce]{0},"-"){1}), type date}}),
    // Inscription de la date, l'année étant récupérée dans la colonne "Pièce"
    TypeNumber = Table.TransformColumnTypes(InsertDate, {{"Débit", type number}, {"Crédit", type number}, {"Solde", type number}}, "af-ZA")
    // Transformation en type number, les séparateurs de milliers étant des espaces insécables
in
    TypeNumber

Le fichier :