Bonjour à tous

Je désire rentrer des valeurs dans un fichier csv en créant à chaque tour de boucle une nouvelle ligne (donc une ligne par fichier dans le fichier .csv)

Voici la fonction qui me récupère mes valeurs. Je voudrais donc mettre le résultat de la variable "result" dans un fichier csv. Dès que la boucle est fini, le script passe au fichier suivant et la valeur "result" prend les valeurs du nouveau fichier et je voudrais les mettres sur la ligne 2 de mon fichier .csv

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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
Function traitementFichier()
 
	fichierComp = resultDossier & "\" & fichier
 
	Set oFs = CreateObject("Scripting.FileSystemObject")
 
	'Ouverture et lecture du fichier
	Set ficSes = oFs.OpenTextFile(fichierComp)
 
	'récupération d'un tableau de x lignes totalité du fichier
	ContenuLgnFic = split(ficSes.ReadAll,vbnewline)
	'Récupère le nombre de ligne dans un fichier
	nbLgnFic = ficSes.Line -1
	'fermeture du fichier
	ficSes.close
 
	'boucle permettant de calculer le nombre de caractère pour chaque valeur
	For t = 1 to Len(droite)
 
			CodAscii = asc(mid(droite,t,1))
 
				if CodAscii = 32 then Esp = Esp + 1
				if CodAscii = 39 then Gui = Gui + 1
				if CodAscii = 46 then Dot = Dot + 1
				if CodAscii = 40 then ParOuv = ParOuv + 1
				if CodAscii = 41 then ParFer = ParFer + 1
				if CodAscii = 233 then ascaig = ascaig + 1
				if CodAscii = 232 then ascgrav = ascgrav + 1
				if CodAscii >= 65 and CodAscii <= 90 then LtrMA = LtrMA + 1
				if CodAscii >= 97 and CodAscii <= 122 then LtrMi = LtrMi + 1
 
	Next
 
	'renvoi le nombre de caractère
	nbreCaractere = Esp+Gui+LtrMA+LtrMi+Dot+ParOuv+ParFer+ascgrav+ascaig
	'renvoi le nombre de caractères sans espace
	nbCaSanEsp = nbreCaractere - Esp
 
	msgbox droite
 
	'on parcours le fichier par la fin puisque les valeurs à récupérer sont majoritairement situé à la fin du fichier
	for o = ubound(ContenuLgnFic) to ubound(ContenuLgnFic)-nbLgnFic  Step -1
 
		'si la valeur dans le fichier *.ini est égale au n caractère du fichier
		if droite = left(ContenuLgnFic(o),nbreCaractere) then
 
			'on supprime les espaces de la chaine de caractère
			suppEspace=replace(ContenuLgnFic(o)," ","")
			'on supprime les caractères de gauche afin de garder la valeur
			result = replace(suppEspace,left(suppEspace,nbCaSanEsp),"")
 
			'si après la valeur il y a un "E", on le supprime
			if Instr(result,"E") then
 
				result = replace(result,right(result,1),"")
 
			end if
 
			msgbox result
 
			exit for
 
		end if
 
	next
 
End Function
Merci pour votre aide