Recherche:

un dernier :

'vrChmCourt = Replace(url,urlrepertoire & "\","")
For Each fdCur In fd.SubFolders
vrChmCourt = Replace(url, "\\","\")
Set f = fso.OpenTextFile(urlrepertoire &...

heu ouias mais je suis un peu con :

'vrChmCourt = Replace(url,urlrepertoire & "\","")
vrChmCourt = Replace(url, "\\","\")
For Each fdCur In fd.SubFolders
Set f =...

'vrChmCourt = Replace(url,urlrepertoire & "\","")
vrChmCourt = Replace(url, "\\","")
For Each fdCur In fd.SubFolders
Set f = fso.OpenTextFile(urlrepertoire & "\index.htm", 8,true)...

'vrChmCourt = Replace(url,urlrepertoire & "\","")
vrChmCourt = Replace(url, "\\","")
For Each fdCur In fd.SubFolders
Set f = fso.OpenTextFile(urlrepertoire & "\index.htm", 8,true)...

'vrChmCourt = Replace(url,urlrepertoire & "\","")
For Each fdCur In fd.SubFolders
Set f = fso.OpenTextFile(urlrepertoire & "\index.htm", 8,true)
f.writeline("<a href="""...

'vrChmCourt = Replace(url,urlrepertoire & "\","")
For Each fdCur In fd.SubFolders
Set f = fso.OpenTextFile(urlrepertoire & "\index.htm", 8,true)
f.writeline("<a href="""...

'vrChmCourt = Replace(url,urlrepertoire & "\","")
For Each fdCur In fd.SubFolders
Set f = fso.OpenTextFile(urlrepertoire & "\index.htm", 8,true)
f.writeline("<a href="""...

En fait j'ai été un peu con :aie:
Je me suis dit : "N'oublis pas le moins 1" et je l'ai oublié :aie:

'vrChmCourt = Replace(url,urlrepertoire & "\","")
For Each fdCur In fd.SubFolders
...

cette fois ci cela devrait être bon :

'vrChmCourt = Replace(url,urlrepertoire & "\","")
For Each fdCur In fd.SubFolders
Set f = fso.OpenTextFile(urlrepertoire & "\index.htm",...

essaye ceci :

'vrChmCourt = Replace(url,urlrepertoire & "\","")
For Each fdCur In fd.SubFolders
Set f = fso.OpenTextFile(urlrepertoire & "\index.htm", 8,true)
...

non non il y a des & "\" en moins ;)

Essayes, c'est pour redémarrer de la et reréflechir sur le problème.

'vrChmCourt = Replace(url,urlrepertoire & "\","")
For Each fdCur In fd.SubFolders
Set f = fso.OpenTextFile(urlrepertoire & "\index.htm", 8,true)
f.writeline("<a href="""...

vrChmCourt = Replace(url,urlrepertoire & "\","")
For Each fdCur In fd.SubFolders
Set f = fso.OpenTextFile(urlrepertoire & "\index.htm", 8,true)
f.writeline("<a href="""...

vrChmCourt = Replace(url,urlrepertoire & "\","")
For Each fdCur In fd.SubFolders
Set f = fso.OpenTextFile(urlrepertoire & "\index.htm", 8,true)
f.writeline("<a href="""...

Hum... Je n'ai pas été très clair apparement, voila ce à quoi je pensais :

vrChmCourt = ""
For Each fdCur In fd.SubFolders
Set f = fso.OpenTextFile(urlrepertoire & "\index.htm",...

peux tu reposter ton script modifié, et le résultat ?

C'est pour cela que tu as \toto

Donc faut gérer la première ligne.
Enlève le & "\"

et la fait ceci :

vrChmCourt = Replace(url,urlrepertoire & "\","")
vrChmCourt = vrChmCourt & "\"

vrChmCourt = ""
For Each fdCur In fd.SubFolders
Set FichierTXT = WScript.CreateObject("WScript.Shell")
Set f = fso.OpenTextFile(urlrepertoire & "\index.htm", 8,true)
...

Normal je comprends maintenant.
Au premier replace, avant la boucle je t'ai dis de faire :

vrChmCourt = Replace(url,urlrepertoire & "\","")
Mais url ne contiens pas de "\" à la fin :aie: .
Donc...

essaye ce ceci :

vrChmCourt = Replace(url,urlrepertoire & "\","")
For Each fdCur In fd.SubFolders
Set FichierTXT = WScript.CreateObject("WScript.Shell")
Set f =...

Ce n'est pas parce que l'interpréteur sans sort seul qu'il faut faire ainsi.
N'écoute pas ces personnes !!!! Pour avoir des programmes lisibles compréhensible, pour éviter les erreurs bêtes, et les...

Ce qu'il serait bien c'est que tu déclare toutes tes variables.
vrChmCourt n'est jamais déclaré :

Dim vrChmCourt 'ça c'est une déclaration

Ensuite ton problème vient, je pense, du fait que...

Heu j'ai pas compris, ce n'est pas ce type de boucle qui t'intéresse ?
il y a aussi :

Do While condition
Loop

Et :

For Each élément In collection
Next [élément]

la première on commence à 10, on va jusqu'à 20 et on incrmente de 1 i à chaque toude boucle c'est la même chose que :

for i = 0 to 10
next

La deuxième on commence à 0 et on va jusqu'à 10. on...

For i = 10 to 20
Next


for i = 0 to 10 Step = 2
Next i