Discussion :

[gayl51]

mon code fonctionne que si le fichier ne comporte pas d'espace.
je compare un text avec un csv comportant un numero et le nom du programme puis je veux ouvrir ce programme.
le probleme est que j ai plus de 1000 fichier differant et je ne sais pas le nombre d' espace dans le nom de fichier.

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
'lecture du scan ou du code
numprod = InputBox ("scanner ou entrer le numero d'itentification", "Demande du code de fabrication")
 
'lecture du csv
Set FSO = CreateObject("Scripting.FileSystemObject")
Set Ftxt = FSO.OpenTextFile("liste programme.csv") 
	Do   
 		x = Ftxt.Readline 
		tab=Split(x, ";")
 	Loop until tab(0)= numprod or Ftxt.AtEndOfStream 
	if Ftxt.AtEndOfStream and tab(0)<> numprod then
		msgbox "erreur de code"
		wscript.quit
	end if
Ftxt.Close 
 
Dim WshShell
Set WshShell = CreateObject("WScript.Shell")
rep = "F:\fiche\fini\"
 
if tab(2)= 2 then
	'appel d'un script
	repc=rep & tab(0) &".vbs"
elseif tab(2)=1 then
	'appel d'un programme
	repc=rep & tab(0) &".doc"
end if
 
WshShell.Run repc 
Set WshShell = Nothing
wscript.Echo repc

[sevyc64]

si ton chemin comporte des espaces, il doit être encadré de guillemets (en plus des guillemets indiquant une chaine de caractère dans ton code).

[ProgElecT]

Salut
Il me semble bien que ce

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
If Instr(repc," ") Then
 repc = """" & repc & """"
End If
WshShell.Run repc

devrait solutionner.

[gayl51]

merci sa mache super