[vbs] rassembler des fichiers txt en fichiers Xls

Version imprimable

27/02/2006, 10h53
Empty_body

[vbs] rassembler des fichiers txt en fichiers Xls

Bonjour, j'aimerais savoir si il est possible en vbs de rassembler toutes les données contenues dans des fichiers textes dans un seul fichier excell.
Le fichiers texte ont la structure suivante :
nom ; moyenne
codematière;matière1;point_obtenus
codematière;matière2;point_obtenus
codematière;matière3;point_obtenus
codematière;matière4;point_obtenus
nom ; moyenne
codematière;matière1;point_obtenus
codematière;matière2;point_obtenus
nom ; moyenne
codematière;matière1;point_obtenus
codematière;matière2;point_obtenus
codematière;matière3;point_obtenus
...
Mon but serait que chaque utilisateurs ait une ligne dans un tableau excel avec son nom, sa taille et toutes les matières dans lesquelles il est inscrit avec le résultat obtenu. Le code matière commence toujours de la manière suivante : MAT. Chacune des données de la ligne devra apparaître dans un tableau. J'ai cherché sur le forum et dans la faq, des solution vb existent mais pas vbs...
Quelqu'un aurait une idée??? Merci
27/02/2006, 10h56
Megaxel

Oui, c'est possible.
A base de "Open", "Split"...
Il y a des tas d'exemples sur ce forum. Fais une recherche avancée, par exemple.

Merci megaxel, j'ai trouvé pas mal d'exemples effectivement mais en vb à chaque fois... J'ai entreautre fait ceci...

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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
Sub Main()
Dim objexcel As Object
Dim i As Long, j As Long, dernierligne As Long, tempo As Long, colonne As Long
Dim fso, dossier, fichier
Dim ligne As String, chemin As String, letter As String
 
Set objexcel = CreateObject("Excel.Application")
objexcel.DisplayAlerts = False
objexcel.workbooks.Add
i = 1
chemin = "..\user"
Set fso = CreateObject("Scripting.FileSystemObject")
Set dossier = fso.GetFolder(chemin)
currentuser = Environ("USERNAME")
 
For Each fichier In dossier.Files
dernierligne = objexcel.Range("A1").CurrentRegion.Rows.Count
Open fichier For Input As #1
While Not EOF(1)
    Line Input #1, ligne
    tabSplit = Split(ligne, ";")
    Dim cmpt As Long
        For cmpt = LBound(tabSplit) To UBound(tabSplit)
            If tabSplit(cmpt) Like "??/??/*" Then
                tabSplit(cmpt) = Format(CDate(tabSplit(cmpt)), "dd/mmm/yyyy")
            End If
            If UBound(tabSplit) = 1 Then
                tempo = dernierligne
                objexcel.Cells(dernierligne, cmpt + 1).formula = tabSplit(cmpt)
                colonne = cmpt + 2
            Else
                'objexcel.Range(Chr(65 + colonne) & tempo).formula = tabSplit(cmpt)
                objexcel.Cells(tempo, colonne).formula = tabSplit(cmpt)
                colonne = colonne + 1
            End If
        Next cmpt
        If UBound(tabSplit) = 1 Then
            dernierligne = dernierligne + 1
        End If
Wend
Close #1
Next
 
objexcel.workbooks(1).saveas "C:\Documents and Settings\" & currentuser & "\Desktop\ess.xls"
objexcel.Quit
Set objexcel = Nothing
Set fso = Nothing
Set dossier = Nothing
End Sub

Mais je l'ai fait en vb et j'aimerais savoir quoi modifier pour en faire un vbs...

27/02/2006, 11h15
Megaxel

Heuuu, comme ça, en vitesse, sans regarder de près:
Enlève le "Sub" et le "End Sub", et les "Dim".
Copie-colle ce qui reste dans un fichier texte, et renomme le en .vbs.
27/02/2006, 11h18
Empty_body

J'ai une première erreur au niveau de

Code:

Line Input #1, ligne
27/02/2006, 11h26
Megaxel

Tu sais quoi: je ne suis pas très à l'aise en vbs, mais beacoup plus en VBA pour Excel. Comme c'est le but de ton programme, pourquoi ne programmerais-tu pas directement dans l'éditeur VBA d'Excel.
Les messages d'erreur sont en général plus explicite.
Cependant, si tu tiens à rester en VBS, peux-tu nous donner le message d'erreur complet.
27/02/2006, 11h32
Empty_body

Désloé, l'erreur n'est pas à la ligne signalée mais à celle-ci...

Code:

Open fichier For Input As #1
27/02/2006, 11h33
Empty_body

Le vba, je connais pas du tout mais je suis pas contre... Comment ça fonctionne???
27/02/2006, 11h49
SfJ5Rpw8
tu as la FAQ Vba pour cela ..

sinon sous excel utilise ALT-F11 pour aller dans l'éditeur VBE....
tu rajoute un module ... bouton droit dans l'arborescence de gauche...

tu y colle ton code VB ...

tu modifie ton code VB ... en enlevant l'objet "objexcel" dont tu n'as plus besoin ... puisque tu est sous excel et tu agit directement...

par exemple supprime

Code:

Dim objexcel As Object

et
Code:

1 2 3 4 Set objexcel = CreateObject("Excel.Application") objexcel.DisplayAlerts = False objexcel.workbooks.Add
devient :
Code:

1 2 3 4 DisplayAlerts = False workbooks.Add
voila bon courage...
27/02/2006, 14h19
Empty_body

En gros, bbil, la même fonction que celle que j'ai en vb??? Je crois que je vaiçs laisser mon exécutable tel quel alors... Merci à tous...
27/02/2006, 17h14
Megaxel

Ha ben oui, si tu as VB, alors ne t'embête pas...
Je pensais que tu faisais du vbs parce que tu n'avais pas de licence VB. C'est pour ça que je t'ai proposé de passer en VBA sous Excel.
:oops: