Discussion :

[judavid]

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 :

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

[ced600]

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.

[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.

[judavid]

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

[spantemonium]

Essaie cà :

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
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^^

[ced600]

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