Fichier CSV vers un tableau VBA

Bonsoir ,

Je dispose d'un classeur excel XLSM.

Depuis ce fichier je vais y importer des données brutes au format CSV. Avant toute intégration des données sur les feuilles de classeur Excel, je souhaite mettre les données ligne par ligne du fichier CSV dans un tableau au format VBA.

En somme je cherche à retranscrire le buffer fgets() php en VBA . Pas moyen de mettre la main sur le code VBA .

Si une ame charitable à cela en stock.

Merci d'avance ;)

C'est bien plus simple d'enregistrer le fichier sur ton disque et de l'Ouvrir avec Excel.

Bonjour,

Dans mon cas de figure on suppose que :

Le fichier CSV existe
Le fichier CSV est ouvert
On connait le nombre de ligne du fichier CSV

On va ranger chaque ligne de fichier CSV dans un cellule d'un tableau temporaire construit en VBA/VBE.

Voici le code que j'essai de restrancrire du php vers le VBA , ici en VBA :

Code:

---

1 2 3 4 5

For j = 0 To i_moins_un ' insertion ligne à ligne dans le tableau Input #1, a$ Line Input #1, tableau_stockage_concat(j) Next j Close ' fermeture fichier en fin de boucle

---

Bonjour,

Après recherche voici une solution qui fonctionne de mon côté , ici dans une boucle for :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

i_moins_un = i - 1   ReDim tableau_stockage_concat(i_moins_un) ' redymension taille tableau selon nombre ligne fichier   Open complet_name_file For Input As #1   While Not EOF(1) ' tant que pas à la fin du fichier   For j = 0 To i_moins_un ' insertion ligne à ligne dans le tableau   Line Input #1, tableau_stockage_concat(j)   Next j   Wend Close

---

la même chose que ton code php en vba avec en plus l'ouverture du fichier en mémoire c'est :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Sub test() Dim laChaine As String, x, fichier As String fichier = "C:\Users\polux\Desktop\Classeur1.csv" x = FreeFile Open fichier For Binary Access Read As #x laChaine = String(LOF(x), " ") Get #x, , laChaine Close #x ' la variable "laChaine" contient maintenant tout le texte du CSV tabligne = Split(laChaine, vbCrLf) 'on le coupe par ligne 'on a maintenant un tableau a 1 dimension (un array plus exactement du même nombre de ligne que le csv avec dans chaque ligne du tableau(tabligne) chaque ligne du csv) 'exemple affichage de la ligne index 3 (donc ligne 4) dans un msgbox msgbox tablligne(3) end sub

---

Bonjour,

Merci de votre proposition je garde la documentation sous la main.

Bonjour,

Je crains qu'il y ait une petite erreur dans le code de patricktoulon.

La variable tableau s'appelle une fois "tabligne" (ligne 10) et une fois "tablligne" (ligne 13).

Je viens juste de passer un petit moment à essayer de faire marcher ce superbe bout de code avant de réaliser cette petite faute de frappe. Ca m'apprendra à faire du copier-coller :D

Bonne journée à tous

hoh vilain patrick!!!;)

Mais non, mais non :D
Ça arrive à tout le monde, même au meilleur !

Salut

Citation:

---

Envoyé par Sécateur

Bonjour,

Je crains qu'il y ait une petite erreur dans le code de patricktoulon.

La variable tableau s'appelle une fois "tabligne" (ligne 10) et une fois "tablligne" (ligne 13).

Je viens juste de passer un petit moment à essayer de faire marcher ce superbe bout de code avant de réaliser cette petite faute de frappe. Ca m'apprendra à faire du copier-coller :D

Bonne journée à tous

---

Ca n'arriverait pas avec une déclaration obligatoire des variables.

Pour t'obliger à déclarer tes variables et donc à éviter de perdre du temps sur ce genre d'erreurs, tu aurais intérêt à aller dans les options du VBE (outils/options/Editeur) et à cocher l'option Déclaration des variables obligatoires.

Cette option cochée ajoutera sur tout nouveau module (donc PAS sur les existants) la ligne de compilation Option Explicit. Tu peux ajouter à la main cette option dans tes modules existants.

Avec cette ligne en début de module, tu aurais directement un avertissement lors de la tentative d'utilisation de ton code et tu aurais gagné un temps précieux. Je ne peux donc que te conseiller de modifier cette option au plus tôt.