Traitement d'un fichier
Résolu
alphacos
Messages postés
11
Date d'inscription
jeudi 18 mars 2010
Statut
Membre
Dernière intervention
13 août 2012
-
23 déc. 2005 à 17:07
alphacos Messages postés 11 Date d'inscription jeudi 18 mars 2010 Statut Membre Dernière intervention 13 août 2012 - 26 déc. 2005 à 22:54
alphacos Messages postés 11 Date d'inscription jeudi 18 mars 2010 Statut Membre Dernière intervention 13 août 2012 - 26 déc. 2005 à 22:54
5 réponses
AnteManoclis
Messages postés
154
Date d'inscription
jeudi 22 mai 2003
Statut
Membre
Dernière intervention
6 septembre 2007
24 déc. 2005 à 13:05
24 déc. 2005 à 13:05
Salut, il va te falloir à mon avis, faire quelques lignes de code,
parce qu'à ma connaissance, une fonction équivalente à explode ne doit
pas exister sous VBA.
Essai quelques chose dans ce style, à mon avis, ça devrait fonctionner:
Dim Ligne as String, i as Integer
Open NomDuFichier For Input As #1
Do Until EOF(1)
Line Input #1, Ligne
Do
i = InStr(1, Ligne, " ", vbTextCompare)
If i <> 0 Then
ValeurARecuperer = Left(Ligne, i - 1)
Else
ValeurARecuperer = Ligne
End If
Ligne = Right(Ligne, Len(Ligne) - i)
'Place ici le code pour mettre ValeurARecuperer dans la cellule de ton choix
Loop Until i = 0
Loop
Close #1
Tchô
AnteManoclis
parce qu'à ma connaissance, une fonction équivalente à explode ne doit
pas exister sous VBA.
Essai quelques chose dans ce style, à mon avis, ça devrait fonctionner:
Dim Ligne as String, i as Integer
Open NomDuFichier For Input As #1
Do Until EOF(1)
Line Input #1, Ligne
Do
i = InStr(1, Ligne, " ", vbTextCompare)
If i <> 0 Then
ValeurARecuperer = Left(Ligne, i - 1)
Else
ValeurARecuperer = Ligne
End If
Ligne = Right(Ligne, Len(Ligne) - i)
'Place ici le code pour mettre ValeurARecuperer dans la cellule de ton choix
Loop Until i = 0
Loop
Close #1
Tchô
AnteManoclis
ScSami
Messages postés
1488
Date d'inscription
mercredi 5 février 2003
Statut
Membre
Dernière intervention
3 décembre 2007
24
24 déc. 2005 à 13:34
24 déc. 2005 à 13:34
Non, je crois que sans aller dans ces extrêmes il y a plus simple !!! La fonction Open me semble-t-il permet d'ouvrir des fichiers de type CSV (datas séparés par des caractères) en choisissant le caractère!
Enfin, regarde dans l'aide...
Sinon, en effet, la solution de AnteManoclis me semble correcte à première vue.
Noyeux Joël
<hr size="2" width="100%">
( Si une réponse vous convient, cliquez sur le bouton "Réponse acceptée". )
Enfin, regarde dans l'aide...
Sinon, en effet, la solution de AnteManoclis me semble correcte à première vue.
Noyeux Joël
<hr size="2" width="100%">
( Si une réponse vous convient, cliquez sur le bouton "Réponse acceptée". )
alphacos
Messages postés
11
Date d'inscription
jeudi 18 mars 2010
Statut
Membre
Dernière intervention
13 août 2012
26 déc. 2005 à 12:23
26 déc. 2005 à 12:23
Merci à vous , je vais tester cela
Longue vie au site.
Joyeux noëlll
Alpha
Longue vie au site.
Joyeux noëlll
Alpha
ScSami
Messages postés
1488
Date d'inscription
mercredi 5 février 2003
Statut
Membre
Dernière intervention
3 décembre 2007
24
26 déc. 2005 à 19:38
26 déc. 2005 à 19:38
Si tu veux vraiment nous remercier :
Si une réponse vous convient, cliquez sur le bouton "Réponse acceptée".
Si une réponse vous convient, cliquez sur le bouton "Réponse acceptée".
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
alphacos
Messages postés
11
Date d'inscription
jeudi 18 mars 2010
Statut
Membre
Dernière intervention
13 août 2012
26 déc. 2005 à 22:54
26 déc. 2005 à 22:54
Oui biensur, autant le mettre tout de suite ;)