Ouvrir un fichier csv dans excel

Version imprimable

Bonjour a tous,

Je débute en vbs et j'aimerais ouvrir un fichier de donnée en csv dans excel, faire quelques modifications, puis l'enregistrer au format xls.
J'utilise la fonction OpenText, pour avoir l'équivalent de "Fichier > Ouvrir", et non pas d'un double clic sur mon fichier csv, ce qui se passe avec la fonction Open.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 Const EXCEL_GUID = "Excel.Application" Const MSXML_GUID = "MSXML.DOMDocument" ' Méthodes Sub Main() ' Excel objects Dim xls Dim wkb Dim sht Set Infilename="C:\base\exploitation\interfaces\in\stats.csv" Set Outfilename = "C:\base\exploitation\interfaces\out\stats_batchs_ " & year(date) & month(date) & day(date) & ".xls" ' Création d'une instance d'Excel Set xls = CreateObject(EXCEL_GUID) xls.DisplayAlerts = FALSE xls.Workbooks.OpenText Filename:=Infilename , DataType:=xlDelimited, Semicolon:=True
Et j'ai une erreur "Expected Statement" Line 55, char 33, ce qui correspond a l'affectation de Filename.
Comment ouvrir mon fichier de donnée de manière a avoir chaque champ dans une colonne, sachant que les champs sont séparé par des ';' ?

Merci d'avance

17/03/2009, 09h32
ced600

Citation:

Comment ouvrir mon fichier de donnée de manière a avoir chaque champ dans une colonne, sachant que les champs sont séparé par des ';' ?

Si je ne me trompe pas, lorsque tu ouvres un tel fichier avec excel, il te le mets en forme automatiquement de cette manière.

ce que tu as écris n'est aps valide en vbs. Regarde sur le site MSDN, pour les dévellopements office, dans la partie excel comment fonctionne la méthode OpenText de l'objet worksbooks.
17/03/2009, 10h23
spantemonium

ou sinon tu l'ouvres en opentextfile, tu le split sur le caractère ";", tu ouvre une feuille excel vierge, et tu la remplis avec le tableau issu de ton split.
17/03/2009, 12h06
judavid

Citation:

Envoyé par spantemonium

ou sinon tu l'ouvres en opentextfile, tu le split sur le caractère ";", tu ouvre une feuille excel vierge, et tu la remplis avec le tableau issu de ton split.

C'est que je voulais faire aussi, mais sans succès :)

Je vais regarder un peu le site de msdn, merci

Essaie cà :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
FichierSource = "c:\log.txt" 'c'est un exemple à remplacer par ton fichier
Const ForReading = 1
Set objExcel = CreateObject("Excel.Application")
Set objFSO = CreateObject("Scripting.FileSystemObject")
'Verif fichier source
If objFSO.FileExists(Fichiersource) Then
	Set objTextFile = objFSO.OpenTextFile(Fichiersource, ForReading)
Else
	Wscript.Echo "Fichier : """ & Fichiersource & """ introuvable, tâche annulée"
	Wscript.quit
End If
'Remplit Dictionnaire de données (empeche les doublons)
Do Until objTextFile.AtEndOfStream 
    strNextLine = objTextFile.Readline
    objDictionary.Add strNextLine, strNextLine
Loop
objTextFile.Close
'Ouverture excel
objExcel.Visible = True
objExcel.Workbooks.Add()
 
'Remplissage excel
ligne = 1
colonne = 1
For Each strKey in objDictionary.Keys
ligne = 1
colonne = colonne +1
arrList1 = Split(objDictionary.item(strKey) , ";")
objExcel.Cells(ligne , colonne ).Value = arrList1(0)
colonne = colonne +1
objExcel.Cells(ligne , colonne ).Value = arrList1(1)
colonne = colonne +1
objExcel.Cells(ligne , colonne ).Value = arrList1(2)
'après ca dépend combien de champs il y a, dans cet exemple il y en a 3
Next

enjoy^^

17/03/2009, 19h01
ced600

Pour l'ouvrir en opentextfile grâce à l'objet FileSystemObject, tu peux aussi t'inspirer des exemples de La FAQ VBScript.