Traitement d'un fichier

Résolu
Messages postés
11
Date d'inscription
jeudi 18 mars 2010
Statut
Membre
Dernière intervention
13 août 2012
-
Messages postés
11
Date d'inscription
jeudi 18 mars 2010
Statut
Membre
Dernière intervention
13 août 2012
-
Bonjour à tous,

Voila j'ai un petit problème, du moin je connais pas la fonction en VBA qui permet de récupérer et de mettre le contenu d'un fichier dans un tableau.
Sachant les informations de mon fichier sont séparés par des espaces :

Exemple:

toto tata titi

Ps: en php c'est la fonction explode() mais en vba aucune idée

Merci pour votre aide

Alpha

5 réponses

Messages postés
154
Date d'inscription
jeudi 22 mai 2003
Statut
Membre
Dernière intervention
6 septembre 2007

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
Messages postés
1488
Date d'inscription
mercredi 5 février 2003
Statut
Membre
Dernière intervention
3 décembre 2007
24
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". )
Messages postés
11
Date d'inscription
jeudi 18 mars 2010
Statut
Membre
Dernière intervention
13 août 2012

Merci à vous , je vais tester cela

Longue vie au site.

Joyeux noëlll

Alpha
Messages postés
1488
Date d'inscription
mercredi 5 février 2003
Statut
Membre
Dernière intervention
3 décembre 2007
24
Si tu veux vraiment nous remercier :

Si une réponse vous convient, cliquez sur le bouton "Réponse acceptée".
Messages postés
11
Date d'inscription
jeudi 18 mars 2010
Statut
Membre
Dernière intervention
13 août 2012

Oui biensur, autant le mettre tout de suite ;)