Discussion :

[Loupire]

Bonjour,

Je vous explique mon souci :
Je souhaite importer des valeurs extraites d'un fichier texte vers un tableau Excel existant.

PS: j'ai commence le VB il n'y a que quelques jours (je n'ai jamais programme !).

Apres avoir extrait la date du fichier texte, je dois rechercher la ligne correspondant a cette même
date dans mon tableau (m'indiquant l'adresse de la ligne).
Je dois ensuite a partir du numero de produit du fichier texte retrouver la bonne colonne (adresse colonne) ainsi de suite
pour au final remplir le tableau avec les valeurs extraites.

Merci d'avance,


PS: Je vais essayer de poster une capture d'ecran de mon tableau Excel pour vous donner une idee sur sa composition...



Exemple : pour un fichier texte en date du 19.01.10 je dois retrouver le 19/01/2010 dans mon tableau pour par la suite ajouter les informations relatives a un produit X reference dans la colonne (A, B, C... , n)

[Loupire]

Si l'adresse du fichier texte est : 25.10.10 (apres conversion de la date au format 25/10/2010)

Je dois trouver les coordonnees de la bonne ligne de mon tableau pour cette date...

Par la suite je devrais retrouver les coordonnes de la bonne colonne en fonction du produit selectionne dans mon fichier texte, etc...

J'ai trouve une fonction Range(.....).Adress mais je ne sais pas si c'est la bonne et comment la manipuler pour extraire les coordonnees de ma ligne en fonction de la date de mon fichier texte...

Une idée ?

[Loupire]

Bon avec un peu d'huile de coude et de jus de cervelle j'ai trouve ca pour la date :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub test_date()
Dim datemvt As String
Close #1
Open ("D:\Projet EXCEL_VB_TXT\Test\text.wri") For Input As #1 'ouverture du fichier en lecture
While Not EOF(1) 'demarrage de la boucle pour lecture du fichier
lign$ = "" 'initialisation d une variable à ""
Line Input #1, lign$ 'lire une ligne du fichier et passage à la ligne suivante (et affactation dans une variable chaine)
 
    If InStr(1, lign$, "Message-Date :") <> 0 Then 'test sur la date
    datemvt$ = Mid$(lign$, 25, 8) 'extraction de la date
    date_new_format = Mid$(datemvt$, 1, 2) & "/" & Mid$(datemvt$, 4, 2) & "/20" & Mid$(datemvt$, 7, 2)
    date_new_format_date = CDate(date_new_format)
    Columns("B:B").Select
        With Selection.Find(date_new_format_date).Activate
        End With
            ad_date = ActiveCell.Address 'l'adresse de la cellule est stockee dans une variable ad_date
            MsgBox (ad_date)
    End If
 
Wend
Close #1
End Sub

Et ca pour determiner l'emplacement du produit :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub test_prod()
Dim prodnb As String
Close #1
Open ("D:\Projet EXCEL_VB_TXT\Test\text.wri") For Input As #1 'ouverture du fichier en lecture
While Not EOF(1) 'demarrage de la boucle pour lecture du fichier
lign$ = "" 'initialisation d une variable à ""
Line Input #1, lign$ 'lire une ligne du fichier et passage à la ligne suivante (et affactation dans une variable chaine)
 
    If InStr(1, lign$, "Customer Article No") <> 0 Then 'test POSITIF sur la presence de la chaine de caractère recherchee dans la ligne du fichier lu
    prodnb$ = Mid$(lign$, 33, 10) 'extraction du produit
    MsgBox (Mid$(lign$, 33, 10))
    Rows("1:1").Select 'formule pour selectionner la bonne ligne dans la colonne date en fonction de la date du fichier .txt
        With Selection.Find(Mid$(lign$, 33, 10)).Activate
        End With
            ad_prod = ActiveCell.Address 'l'adresse de la cellule est stockee dans une variable ad_prod
            MsgBox (ad_prod)
    End If
 
Wend
Close #1
End Sub

Les MsgBox sont la pour la verification de mes tests et n'apparaitrons pas lors du deroulement du programme.

Je continue...