récupéré un fichier txt dans excel avec séparateur

Version imprimable

12/07/2016, 11h28
PeterPanPan

1 pièce(s) jointe(s)

récupéré un fichier txt dans excel avec séparateur

Bonjour,
J'ai comme projet de créer un circuit pour la recharge et la décharge d'une batterie : le but est de voir son nombre de cycles, la variation de la capacité avec le temps...
Ce circuit est réalisé à base d'arduino. Je récupère grâce à ce dernier la tension ainsi que le temps de charge/décharge. Les données sont séparées par un ";" et par un retour à la ligne lorsque que l'on change de mode (charge ou décharge).

Exemple :
CHARGE
4.2;4.3;...
DECHARGE
3.8;3.7;...

Les données sont récupérées directement dans un fichier .txt
Je désire alors récupérer ces données en faisant en sorte de mettre la charge dans la colonne A la décharge dans la colonne B ...
N'ayant jamais fait de VBA, j'ai fait de nombreuses recherches et j'ai trouvé pas mal de pistes.

Mais je rencontre des problèmes entre autre je ne sais pas quoi mettre en condition de fin pour le for j

Si vous avez des suggestions ou des liens à me conseiller je suis preneur de tout.
Merci d'avance pour vos aides.
Pierre GACHET
12/07/2016, 11h39
Jean-Philippe André

Salut,
Tu cherches la borne superieur te ton tableau arr

Code:

For j = 1 To Ubound(arr)
12/07/2016, 11h44
PeterPanPan

Salut jpcheck

merci pour ta rapidité de réponse, je vais essayer ta réponse.
et j'ai une erreur de compilation aussi où c'est dit "erreur 55 : fichier déjà ouvert".
C'est a dire qu'il faut le fermer à la fin de la macro ?
12/07/2016, 11h53
unparia

Bonjour
Un fichier ouvert par une instruction Open n'est plus accessible tant qu'il est ouvert.
Il doit donc être ferme (instruction Close) dès après avoir été exploité.
12/07/2016, 12h08
PeterPanPan

Salut unparia

Du coup j'ai mis un close au début, comme ca je ferme le fichier avant de le réouvrir et je n'ai plus l'erreur. Merci pour ta réponse.

Mais lorsque je compile le code, je n'ai pas d'erreur mais rien ne s'affiche ...
vous avez des idées ?

désole pour mon faible niveau en VBA c'est la première fois que j'en fais.
12/07/2016, 12h12
Jean-Philippe André

Une fois ta correction faite, peux-tu stp nous remettre ton code (un copier coller du code mis entre les balises [CODE] et [/CODE] fera l'affaire, pas la peine de faire une image ;)

Oui pas de problème, voila le code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
 
Sub Import_txtfile()
 
Dim i As Long
Dim j As Long
Dim myFile As String
Dim text As String
Dim textline As String
Dim posCharge As Integer
Dim posDecharge As Integer
Dim posTpsCharge As Integer
Dim posTpsDecharge As Integer
Dim posCapa As Integer
 
   Close #1
   myFile = "C:\putty.txt"
 
   Open myFile For Input As #1
 
 
   i = 1
   While Not EOF(1)                                       'Lecture du 1er fichier et écriture dans Excel
      Line Input #1, textline
      Dim arr
       arr = Split(CStr(LineText), "; ")
        For j = LBound(arr) To UBound(arr)
        ActiveSheet.Cells(i, j).Value = arr(j - 1)
        Next j
        i = i + 1
 
   Wend
 
 
 posCharge = InStr(text, "ETAT CHARGE")
 posDecharge = InStr(text, "ETAT DECHARGE")
 posTpsCharge = InStr(text, "Temps de charge en min")
 posTpsDecharge = InStr(text, "Temps de décharge en min")
 posCapa = InStr(text, "Capacité en mAh")
 
 Range("A1").Value = Mid(text, posCharge + 12, 5)
 Range("B1").Value = Mid(text, posDecharge + 14, 5)
 Range("C1").Value = Mid(text, posTpsCharge + 25, 5)
 Range("D1").Value = Mid(text, posTpsDecharge + 27, 5)
 Range("E1").Value = Mid(text, posCapa + 18, 5)
 
Close #1                                                 ' Fermer le fichier
 
End Sub

12/07/2016, 13h48
Jean-Philippe André

En principe, le seul

Code:

Close #1

final suffit, tu peux supprimer le premier.

Tu dis que rien ne s'affiche, pas meme dans tes cellules A1 a E1 ?
12/07/2016, 13h55
kiki29

Salut, toujours d'actualité : Manipulation des fichiers en VBA et Excel et l'enregistreur de macro
12/07/2016, 13h56
PeterPanPan

oui je l'ai enlevé ca compile toujours, et non rien ne s'affiche dans le tableau excel .....
12/07/2016, 14h14
Jean-Philippe André

Tu peux jeter un oeil sur les articles proposes par kiki29, sinon que se passe-t-il lorsque tu executes le code en mode pas a pas ?
12/07/2016, 14h35
Marc-L

Bonjour Pierre.

Citation:

Envoyé par PeterPanPan

Les données sont séparées par un ";" et par un retour à la ligne lorsque que l'on change de mode (charge ou décharge).

Plusieurs possibilités; joindre un fichier texte source et un classeur enregistré en .xlsx (donc sans code)
contenant une feuille de calculs correspondant exactement au résultat souhaité …

_________________________________________________________________________________________________________
Je suis Paris, Charlie, Bruxelles, …
12/07/2016, 14h51
PeterPanPan

2 pièce(s) jointe(s)

jpcheck
lorsque je fais le pas a pas le programme passe par tout sauf dans la boucle du j.

Bonjour Marc
j'ai mis un exemple simplifié des résultats dans le fichier txt et ce que je désirerai dans le fichier xlsx.

Démonstration à la romaine ayant fait ses preuves depuis longtemps !

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub Demo1()
             Const FICHIER = "D:\Tests4Noobs\test.txt"
            If Dir(FICHIER) = "" Then Beep: Exit Sub
                                       F% = FreeFile
            Open FICHIER For Input As #F
            SPQ = Split(Input(LOF(F), #F), vbNewLine)
                                Close #F
            If UBound(SPQ) < 0 Then Beep: Exit Sub
    With Feuil1
            .UsedRange.Clear
        For R& = 0 To UBound(SPQ) + (SPQ(UBound(SPQ)) = "") Step 2
            C& = C& + 1
            SP = Split(SPQ(R + 1), ";")
                 .Cells(1, C).Value = SPQ(R)
            With .Cells(2, C).Resize(UBound(SP) + 1)
                 .Value = Application.Transpose(SP)
                 If Application.DecimalSeparator <> "." Then .Formula = .Value
            End With
        Next
    End With
End Sub

Comprendre en suivant le code en mode pas à pas (touche F8) tout en contrôlant le contenu de la fenêtre des Variables locales …

_________________________________________________________________________________________________________

Merci de cliquer sur :plusser: pour chaque message ayant aidé puis sur :resolu: pour clore cette discussion …

12/07/2016, 15h36
PeterPanPan

oui je vais me pencher dessus pour comprendre tout le fonctionnement.

Merci énormément Marc pour ton aide ! :ave:
12/07/2016, 15h48
Marc-L

Attention, je viens d'optimiser les lignes de code n°16 et 17 …
12/07/2016, 16h14
PeterPanPan

pas de problème! merci pour la correction

Simplification des lignes de code n°15 à 18 remplacée par cette ligne n°15 :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub Demo1()
             Const FICHIER = "D:\Tests\PeterPanPan\test.txt"
            If Dir(FICHIER) = "" Then Beep: Exit Sub
                                       F% = FreeFile
            Open FICHIER For Input As #F
            SPQ = Split(Input(LOF(F), #F), vbNewLine)
                                Close #F
            If UBound(SPQ) < 0 Then Beep: Exit Sub
    With Feuil1
            .UsedRange.Clear
        For R& = 0 To UBound(SPQ) + (SPQ(UBound(SPQ)) = "") Step 2
            C& = C& + 1
            SP = Split(SPQ(R + 1), ";")
            .Cells(1, C).Value = SPQ(R)
            .Cells(2, C).Resize(UBound(SP) + 1).Formula = Application.Transpose(SP)
        Next
    End With
End Sub