Bonjour,

Encore moi et mes difficultés avec VBS.
Pour l'instant j'arrive a acceder a un fichier excel (csv), à l'ouvrir, a récupérér le contenu d'une cellule, mais en ce qui concerne l'ecriture dans le fichier je ne trouve pas la bonne syntaxe par rapport a mon code.

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
 
Option Explicit	
Dim oApp,oConn,Chemin_Excel,Chemin_Access,Valeur_Site,Valeur_CRB,Valeur_CRB_A,Valeur_SITE_A,Valeur2,moteur,rs,adOpenKeyset , adLockOptimistic, requete,cpt
Chemin_Excel = InputBox ("Saisir le chemin du fichier :" )
Chemin_Access=InputBox (" Saisir le chemin de la base de donnée :")
 
Set oApp =WScript.CreateObject("EXCEL.application")
oApp.Workbooks.Open (Chemin_Excel)
oApp.sheets("BUDGET_CVF").Activate
 
moteur="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
adOpenKeyset=3
adLockOptimistic=3
Set oConn = CreateObject("ADODB.Connection")
oConn.Open moteur & Chemin_Access
Set rs = CreateObject("ADODB.Recordset")
rs.Open "TRANSCO", oConn, adOpenKeyset, adLockOptimistic
 
 
 
cpt=1
 
	Do While oApp.ActiveSheet.Cells(cpt, 1).Value <> ""
		Valeur_Site = oApp.ActiveSheet.Cells(cpt,2).value
		Valeur_CRB = oApp.ActiveSheet.Cells(cpt,4).value
		do while not rs.eof
			Valeur_CRB_A= rs("CRB")
			Valeur_Site_A=rs("SITE")
			If (Valeur_Site=Valeur_Site_A)and (Valeur_CRB=Valeur_CRB_A) then
				Valeur_ETS=rs("ETS")
'				oApp.ActiveSheet.Cells(cpt,1).value=Valeur_ETS & ";"
				oApp.Writeline = "test"
			end if 
		rs.movenext
		loop
	cpt=cpt+1
	loop
 
 
'
oApp.Workbooks.Close()
rs.close
Set Rs = Nothing 
WScript.Echo("Fini")
j'avais essayer dans un premier temps comme sur vba d'affecter directement la valeur au contenu de ma cellule avec le ".Value" mais sa ne marche pas non plus.

merci pour vos réponses.

Quelqu'un a une idée ?

car je doute un peu de mon code je pense ne pas etre sur la bonne piste du tout ?