Discussion :

[Alexou.]

Bonjour

J’ai besoin de votre aide pour travail sur un fichier CSV. Je n’arrive pas a naviguer en VBA depuis Word dans un fichier CSV pour remplir un tableau.

Actuellement j’ai un bout de code en VBA qui me permet depuis Word de remplir un tableau (qui se situe sous word) avec des données issues d’un fichier XLS.

Code :

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
Set objExcel = CreateObject("Excel.Application")
objExcel.Workbooks.Open CheminDossier & "MonFichier.xls"
objExcel.Visible = False
i = 2
Indice = 1
        While objExcel.Sheets("Planning").Cells(i, 1).Value <> ""
        'tant que la ligne n'est pas vide (dans fichier xls), rempli le tableau
            ActiveDocument.Tables(1).Cell(Indice, 1).Range.Text = objExcel.Sheets("Planning").Cells(i, 1)
            ActiveDocument.Tables(1).Cell(Indice, 2).Range.Text = objExcel.Sheets("Planning").Cells(i, 4)
            ActiveDocument.Tables(1).Cell(Indice, 3).Range.Text = objExcel.Sheets("Planning").Cells(i, 3)
            ActiveDocument.Tables(1).Rows.Add
             Indice = Indice + 1
            i = i + 1
        Wend
objExcel.Workbooks.Close
Set objExcel = Nothing

Ce bout de code fonctionne bien pour un fichier Excel.

Je souhaiterais faire la même chose mais en partant d’un fichier CSV. Or je ne sais pas comment faire. Avez-vous svp, des piste a me donner ou des conseils pour m’aider a réaliser ce bout de programme.

Merci par avance

[clementmarcotte]

Bonjour,

Je ne suis pas trop sûr de comprendre le problème. En principe, une fois qu'Excel a ouvert un fichier, il devient un banal classeur Excel. Sauf erreur de ma part, tu peux utiliser

Code :

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

 objExcel.Workbooks.Open CheminDossier & "MonFichier.csv"

ou, au pire, si tu enregistres une macro Excel en ouvrant un fichier csv, tu devrais avoir les paramètres nécessaires pour adapter ta macro.

[Alexou.]

j'avais déjà testé en gérant le fichier comme un fichier excel en utilisant la même ligne de code.

Le problème c'est qu'il me renvoie toutes les données de ma ligne sans prendre en considération les ";"

ex

donnée1; donnée 2; donnée 3; donnée 4;

Dans ma 1ere macro, je récupère les données 1, 4, 3 quand j'utilise objExcel.Workbooks.Open CheminDossier & "MonFichier.csv", il récupère toute la ligne.

Je ne trouve pas le code pour lui dire de ne prendre que les données que je souhaite

J'espère que j'ai été plus claire sur mon probleme.

En tout cas merci de ta réponse

[Marc-L]

Bonjour,

dans Excel, j'ai sous le coude au moins cinq méthodes pour lire un fichier texte sans compter les dérivées !
Pour lire un fichier texte dans Word, Excel est inutile car le VB pur peut déjà s'en acquitter et ce, de différentes manières …

Afin de choisir celle convenant le mieux à la problématique, joindre un fichier texte source et un document .docx résultat.


_____________________________________________________________________________________________________
Je suis Charlie - Je suis Bardo

[Alexou.]

merci de ton aide.

J'ai un soucis pour joindre mon fichier.

Voici un exemple de fichier source

Site 1;Adresse/Site1/;OK;7
Site 2;Adresse/Site2/;Dispo;2
Site 3;Adresse/Site3/;Dispo;2
Site 4;Adresse/Site4/;KO;2
Site 5;Adresse/Site5/;Erreur;7
Site 6;Adresse/Site6/;KO;7
Site 7;Adresse/Site7/;Dispo;7

le nom de mon fichier est "Fichier Source.csv"

[Marc-L]

Sans fichier texte source ni document Word, je m'en tiens au B-A-BA du VBA avec un code exemple de lecture d'un fichier texte

repris à partir de l'aide VBA de l'instruction Line Input et affichant l'extraction désirée dans la fenêtre Exécution :

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 Demo()
           CSV$ = "D:\Tests4Noobs\Fichier Source.csv"
    If Dir(CSV) = "" Then Beep: Exit Sub
            FF% = FreeFile
    Open CSV For Input As #FF
 
    Do While Not EOF(FF)
         Line Input #FF, T$
         SP = Split(T, ";")
         If UBound(SP) > 2 Then Debug.Print SP(0), SP(3), SP(2)
    Loop
 
    Close #FF
End Sub

La fonction Split renvoie un tableau dont l'indice du premier élément est le zéro …

Bonne continuation !

_____________________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

_____________________________________________________________________________________________________
Si déboguer est l’art de corriger les bogues, alors programmer est l’art d’en faire !

[Alexou.]

Merci beaucoup.
Ta solution me convient très bien
Merci encore