Convertir .xls en .txt en respectant largeur colonnes.

Question

Bonjour,
Alors voila le problème il faudrait que je trouve un moyen de convertir un fichier Excel en .txt mais en respectant la largeur des colonnes.
Cadque j'ai des references a 6 chiffres a rentrer et je voudrais qu'elles sortent en colonnes avec un espace tous les 6 caracteres et du blanc si il n'y a pas 6 caractères.
ex: 

000121 124000 12133 123444 
7575   1231   1111
777123 45600

Mm je ne sais pas si je suis très clair mais voila je pense que c'est possible de faire cela avec du VB dans Access alors si vous savez comment n'hésitez pas à me répondre.

TranKILL87 · Answer

arg ca passe mal la mise en page la ....
xxxxxx xxxxxx xxxxxx
xxxxxx xxxxxx xxxxxx
enfin comme ca il faudrai ke ca sorte le .txt que ce soit des blancs ou des chiffres à la place de x

cs_insomnix · Answer

Salut, 
J'ai deja utilis&#233; un script assez similaire pour mettre en forme du text provenant d'un fichier excel. Je te le met si dessous en esperant que ca pourra t'aider.
Il faut que tu sauvegardes ta feuille en .txt separateur tab 

    Dim o_FileSystemObjectOpen    As FileSystemObject
    Dim o_TextStreamOpen          As TextStream
    Dim o_FileSystemObjectWrite   As FileSystemObject
    Dim o_TextStreamWrite         As TextStream
    Dim s_nomficopen              As String
    Dim s_nomficwrite             As String
    Dim s_ligne                   As String
    Dim s_affichage               As String
    Dim t_tab()                   As String
    Dim C_ESPACE                  As String
    
    'Ligne max d'espace (il faut que le nb d'espace soit superieur a ton nb max de caractere du champ le plus grand
    C_ESPACE = "                               "
    
    'Chemin du fichier non format&#233;
    s_nomficopen = "C:\FichierText.txt"
    
    'Chemin du fichier  format&#233;
    s_nomficwrite = "C:\FichierFormate.txt"
    
    'Ouverture du fichier non format&#233;
    Set o_FileSystemObjectOpen = New FileSystemObject
    Set o_TextStreamOpen = o_FileSystemObjectOpen.OpenTextFile(s_nomficopen, ForReading, False, TristateUseDefault)


    'Creation du fichier format&#233;
    Set o_FileSystemObjectWrite = New FileSystemObject
    Set o_TextStreamWrite = o_FileSystemObjectWrite.CreateTextFile(s_nomficwrite, True)
    
    'Boucle jusqu'a la fin du fichier non format&#233;
    Do While Not o_TextStreamOpen.AtEndOfStream
        
        'Place une ligne du fichier non format&#233; dans s_ligne et pointe sur la prochaine
        s_ligne = o_TextStreamOpen.ReadLine
        
        'Decoupe la ligne dans un tableau avec le separteur 'Tabulation'        'Ex tab(0) 1er champ, tab(1) 2eme champ...
        t_tab = Split(s_ligne, Chr$(9))
        
        'Met en forme les donn&#233;s dans un string
        s_affichage = t_tab(0) & Right(C_ESPACE, Len(C_ESPACE) - Len(t_tab(0)))
        s_affichage = s_affichage & t_tab(1) & Right(C_ESPACE, Len(C_ESPACE) - Len(t_tab(1)))
        s_affichage = s_affichage & t_tab(2) & Right(C_ESPACE, Len(C_ESPACE) - Len(t_tab(2)))
        s_affichage = s_affichage & t_tab(3) & Right(C_ESPACE, Len(C_ESPACE) - Len(t_tab(3)))
        s_affichage = s_affichage & t_tab(4) & Right(C_ESPACE, Len(C_ESPACE) - Len(t_tab(4)))
        'On peux continuer jusqu'au nombre max de colonne
        
        'Sauvegarde le string dans le fichier format&#233;
        o_TextStreamWrite.WriteLine s_affichage
    
        'passe a la prochaine ligne
    Loop
    
    'Ferme les 2 fichiers
    o_TextStreamOpen.Close
    o_TextStreamWrite.Close
    
    'Libere la memoire
    Set o_TextStreamOpen = Nothing
    Set o_TextStreamWrite = Nothing
    Set o_FileSystemObjectWrite = Nothing
    Set o_FileSystemObjectOpen = Nothing

Voila, si tu veux plus d'explication : insomnix@gmail.com
Bon courrage

TranKILL87 · Answer

y a pas une version simplifié ??? ca me parait bien compliqué pour au final pas grand chose.

Convertir .xls en .txt en respectant largeur colonnes.

3 réponses

Discussions similaires