Discussion :

[Invité]

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

[clementmarcotte]

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

[Invité]

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 vba :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Invité]

Bonjour,

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

Code VBE :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[patricktoulon]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Invité]

Bonjour,

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

[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

Bonne journée à tous