Bonjour le forum et bonne année 2009 !
Après des heures de recherches je me décide à vous solliciter car je n'avance pas.
J'ai un fichier texte dont chaque ligne est de la forme suivante :
"02/01/2009 14:44:59",#1899-12-30 03:30:00#,"16970","3",#1899-12-30#,#1899-12-30#,#1899-12-30#,"84,17%","00:00","","00:00",""
Je souhaite récupérer dans excel la valeur de pourcentage enregistrée dans ce fichier texte. (ici 84,17%)
J'ai écrit quelquechose mais ça ne fonctionne pas et je ne trouve pas le problème.
Le problème est que je ne récupère aucune donnée.
Je bloque vraiment, si quelqu'un a une idée je l'en remercie d'avance !
Après des heures de recherches je me décide à vous solliciter car je n'avance pas.
J'ai un fichier texte dont chaque ligne est de la forme suivante :
"02/01/2009 14:44:59",#1899-12-30 03:30:00#,"16970","3",#1899-12-30#,#1899-12-30#,#1899-12-30#,"84,17%","00:00","","00:00",""
Je souhaite récupérer dans excel la valeur de pourcentage enregistrée dans ce fichier texte. (ici 84,17%)
J'ai écrit quelquechose mais ça ne fonctionne pas et je ne trouve pas le problème.
Code:
NomFiche = "C:\Dossiers\9\21.txt"
Open (NomFiche) For Input As #1
Do
Input #1, LDate
Input #1, Temps1
Input #1, nb1
Input #1, nb2
Input #1, tps1
Input #1, tps2
Input #1, tps3
Input #1, taux
For i = 2 To 5 ' le fichier texte a 5 lignes
If .Cells(i, 1).Value = LDate Then 'en colonne 1 j'ai des dates qui correspondent aux dates du fichier texte
.Cells(i, 2).Value = taux
End If
Next i
.Columns("B:B").Select
Selection.NumberFormat = "0.00%"
Loop While Not EOF(1)
Close #1
Le problème est que je ne récupère aucune donnée.
Je bloque vraiment, si quelqu'un a une idée je l'en remercie d'avance !