Discussion :

[Nazounet]

Bonjour,

Tout d'abord je voulais vous féliciter pour ces forums qui sont de vraies mines d'or. C'est un plaisir à parcourir et à lire.

Ensuite, voilà mon problème. J'ai besoin de convertir un fichier *.log sous Excel à travers un script en .vbs. Voilà ce que je fais actuellement :

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
 
'Déclaration des variables
Dim appExcel
Dim wbExcel
Dim wsExcel
 
File = "D:\Documents and Settings\e_mtmarq\Bureau\Logiciels\chargecpu\cpuload.log"
'Ouverture de l'application
Set appExcel = CreateObject("Excel.Application")
appExcel.Visible = True
 
'Ouverture du fichier log
appExcel.Workbooks.Open (File)
 
'Sélection des cellules à convertir
appExcel.Columns("A:A").Select
 
'Conversion des données
appExcel.Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
        Semicolon:=True, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(Array(1, 1), Array(2, 1), Array(3, 1))
 
Set wbExcel=appExcel.ActiveWorkbook
Set wsExcel=wbExcel.ActiveSheet

Mon fichier texte est de la forme :

Mesure n° ; CPURate ; MEMRate
1 ; 92.34% ; 45.34%
2 ; 92.32% ; 45.45%
etc.

Je veux utiliser les séparateurs ";" pour faire ma conversion de données. Malheureusement quand je lance mon script vbs, quand il arrive à "Conversion des données", il me retourne une erreur comme quoi il attend une instruction.

Je me suis basé sur le code fournit par Excel lorsque l'on enregistre une macro à la main, mais visiblement il y a pas mal de différences entre le .vbs et ce code qui font que ça ne fonctionne pas.

Merci d'avance de votre aide !
3

[Flamby38]

petite astuce, si tu renommes ton fichier texte en .csv, excel saura le lire et tu devrais avoir ce que tu cherches à faire sans aucune conversion.

[Nazounet]

Effectivement, si je fais ça et que je l'ouvre à la main ça fonctionne. Par contre quand je l'ouvre via un script ça marche pas :'(

edit : Bon bah y a un moyen de faire fonctionner le bouzin. En effet, je lance mon script vbs via un script batch, donc en faisant simplement "start monfichier.csv" ça fonctionne !

Je me facilite donc la tâche pour la première opération. La seconde étant de remplacer tous les "." du fichier par des ",". Ce script étant utilisé par d'autres personnes que moi, je voudrais éviter de leur demander de configurer leur logiciel pour reconnaître le "." comme une virgule.

Et je prends de l'avance : j'aimerais ensuite traiter toutes les données pour en faire un graphique. La plupart des commandes que j'ai trouvée fonctionne sauf le ChartType et l'autre je ne sais plus (je n'ai plus mes fichiers sources à dispo, je suis chez moi ).

Ce qui va me poser problème : le nombre de lignes à traiter n'est pas constant et j'aimerais que toutes les données soient prises en compte en fonction du nombre de lignes que j'ai.

Voili voulou. Je cherche dans mon coin et je vous tiens au courant, mais toute aide me sera précieuse

[Nazounet]

Désolé pour le double post. Si vous auriez un site qui regroupe toutes les commandes du VBS ça m'aiderait beaucoup. C'est surtout ça qui me manque en fait !