Sujet Précédent Sujet Suivant

[Excel / VBA]

cpin -  
 cpin -
Bonjour,
j'ai un petit problème de programmation sous VBA
je sais ce que je veux faire en pseudo code mais je n'arrive pas à le coder en language VBA
c'est pourquoi j'aurais besoin de votre aide

Donc voici mon probleme:

- Creer un tableau à une colonne
- Ouvrir un fichier txt
- Parcourir ce fichier texte ligne par ligne
- Quand les 2 premiers caractères de la ligne correspondent à: "US"
- Copier les caracteres depuis le debut de la ligne jusqu'à la tabulation dans le tableau
- Quand on arrive à la fin du fichier texte
- Copier les valeurs du tableau sur la colonne A de la feuille (1) du excel en cours

Voila dans les grandes lignes ce que doit faire la lmacro VB

Toute aide serait la bienvenue
Merci
A voir également:

6 réponses

Réponse 1 / 6
albert
 
Dis moi si ça convient:

CheminFichier = "chemin du fichier"
NomFichier = "nom du fichier"

i = 0

Open CheminFichier & NomFichier For Input As #1

Do While Not EOF(1)

Line Input #1, Maligne

If Left(Maligne, 2) = "US" Then
i = i + 1
Cells(i, 1).Value = Maligne
End If

Loop

Close #1
0
Réponse 2 / 6
cpin
 
Excelent,
mais je voudrais ne pas copier toute la ligne du fichier excel mais m'arreter à la première tabulation
0
Réponse 3 / 6
albert
 
Tu peux me joindre un fichier (même incomplet) pour faire quelques essais?
Tu vas sur https://www.cjoint.com/ puis tu colles le lien fourni dans ton post de réponse
0
Réponse 4 / 6
cpin
 
voici le fichier *.rpt

https://www.cjoint.com/?dvn5KYa6Q0
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 6
albert
 
Ben voila=

If Left(maligne, 2) = "US" Then
i = i + 1
mapos = InStr(1, maligne, Chr(9)) - 1
Cells(i, 1).Value = Left(maligne, mapos)
End If

tu incorpores les lignes en gras à ce que je t'ai déjà transmis .

A+
0
Réponse 6 / 6
cpin
 
C'est exactement ca
merci beaucoup pour ton aide rapide et très utile
a+
0