Sujet Précédent Sujet Suivant

Découpé les informations d'un fichier VBA

Fermé
Yo !! Messages postés 54 Date d'inscription mercredi 16 juillet 2008 Statut Membre Dernière intervention 6 janvier 2009 - 11 sept. 2008 à 16:21
Yo !! Messages postés 54 Date d'inscription mercredi 16 juillet 2008 Statut Membre Dernière intervention 6 janvier 2009 - 12 sept. 2008 à 09:22
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
A voir également:

4 réponses

Réponse 1 / 4
fsteven Messages postés 38 Date d'inscription jeudi 11 septembre 2008 Statut Membre Dernière intervention 23 mars 2009 9
11 sept. 2008 à 16:49
fonctions mid$ et instr$
1
Réponse 2 / 4
Yo !! Messages postés 54 Date d'inscription mercredi 16 juillet 2008 Statut Membre Dernière intervention 6 janvier 2009
12 sept. 2008 à 09:18
Ok je vais regarder merci
1
Réponse 3 / 4
Yo !! Messages postés 54 Date d'inscription mercredi 16 juillet 2008 Statut Membre Dernière intervention 6 janvier 2009
12 sept. 2008 à 09:22
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
1
Réponse 4 / 4
Yo !! Messages postés 54 Date d'inscription mercredi 16 juillet 2008 Statut Membre Dernière intervention 6 janvier 2009
11 sept. 2008 à 16:46
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
-1

Discussions similaires

comment donner les droits sur fichier partage
ch'ti du 57 -
fil1958 -

2 réponses
ouverture d'un fichier excel à partir d'un code VBA
TraderAS -
pijaku -

3 réponses