VBA : récupérer certaines données d'un fichier CSV depuis Word

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:

---

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

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:

---

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.

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

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

merci de ton aide.

J'ai un soucis pour joindre mon fichier.

Voici un exemple de fichier source

Citation:

---

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"

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:

---

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 :plusser: pour chaque message ayant aidé puis sur :resolu: pour clore cette discussion …

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

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