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.
Ce bout de code fonctionne bien pour un fichier Excel.
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
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
Partager