Découpé les informations d'un fichier VBA Fermé

Question

Bonjour,

C'est encore moi, j'ai besoin de découper mes lignes de fichiers de tel a caractere a tel caractere pour que le classeur dans excel soit bien organisé.

Que doi-je faire pour cela?

Merci d'avance

Yo !! · Answer

J'ai oublier de rajouter que au début j'ai ca O01ALLOUCHE LEVY

et je veux le faire mettre en O 01 ALLOUCHE LEVY

C'est a dire le premier caractere dans la premiere colonne, du 2 au 3 dans la seconde du 4 au 33 dans la troisiemme et ainsi de suite et je dois aussi faire un test pour supprimer les espace de chaque coté

Merci de votre aide

fsteven · Answer

fonctions mid$ et instr$

Yo !! · Answer

Ok je vais regarder merci

Yo !! · Answer

Résumons,

j'ai ce script la :

Sub exemple_connexion()
     'Declaration de variable
     Dim db1 As Database
     Dim Rs1 As DAO.Recordset
     Dim fileReader As String
     Dim Textline
     Dim i As Integer
     Dim y As Integer

     
     y = 1
     
     Dim x As Integer
     x = 1
     
        
     ' Ouverture de la base de données distri_vue_tournees_2003.mdb
     Set db1 = DBEngine.OpenDatabase("C:\AVIS DE SOUFFRANCE\distri_vue_tournees_2003.mdb")
          
     i = 0

    Open "C:\AVIS DE SOUFFRANCE\Export.txt" For Input As #1    ' Ouvre le fichier.
    Do While Not EOF(1)    ' Effectue la boucle jusqu'à la fin du fichier.
    Line Input #1, Textline   ' Lit la ligne dans la variable.
    i = i + 1
    Worksheets("Feuil1").Cells(i, 1).Value = Mid(Textline, 1, 1)
    Worksheets("Feuil1").Cells(i, 2).Value = Mid(Textline, 2, 2)
    Worksheets("Feuil1").Cells(i, 3).Value = Mid(Textline, 4, 30)
    Worksheets("Feuil1").Cells(i, 4).Value = Mid(Textline, 34, 30)
    Worksheets("Feuil1").Cells(i, 5).Value = Mid(Textline, 68, 30)
    Worksheets("Feuil1").Cells(i, 6).Value = Mid(Textline, 98, 30)
    Worksheets("Feuil1").Cells(i, 7).Value = Mid(Textline, 102, 30)
    Worksheets("Feuil1").Cells(i, 8).Value = Mid(Textline, 106, 30)
    Worksheets("Feuil1").Cells(i, 9).Value = Mid(Textline, 110, 30)
    Worksheets("Feuil1").Cells(i, 10).Value = Mid(Textline, 114, 30)
    Worksheets("Feuil1").Cells(i, 11).Value = Mid(Textline, 120, 30)
    Worksheets("Feuil1").Cells(i, 12).Value = Mid(Textline, 126, 30)


    Debug.Print Textline    ' Affiche dans la fenêtre Exécution.
    Loop

     ' Fermeture de la base distri_vue_tournees_2003.mdb
     db1.Close

End Sub


Est ce que quelqu'un peut m'aider a faire une boucle sur les informations de mon tableau car cela me prendrais trop de place, j'ai dans ma base le premier caractere de la zone a prendre et le dernier caractere de la zone.

Je doit donc bouclé sur ces deux informations pour utilisé le Mid()

Mon seul hic c'est que je ne sais pas le faire car je suis nul en VB...

Merci de votre aide

Découpé les informations d'un fichier VBA

4 réponses

Discussions similaires