Espace dans un nom de fichier

Bonjour,

J'ai des noms de fichiers qui contiennent des espaces et/ou des tirés.

Mes liens hyper textes ne suppotrent pas cette particularité et les espaces sont remplacés par %2520. Comment faire pour que ces noms soient acceptés sans supprimer les espaces ou les tirés?

Utilise le nom court du Dos (sur 8 caractères)
Valider la référence Microsoft Scripting Runtime

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub NomLong() Dim NomLong, NomDos NomLong = "D:\xls\Liste pour fusion.xls" NomDos = NomCourt(NomLong) MsgBox NomDos End Sub   Function NomCourt(NomLong) Dim fso Set fso = CreateObject("Scripting.FileSystemObject") Set LeFichier = fso.GetFile(NomLong) NomCourt = LeFichier.ShortName End Function

---

A+

Merci beaucoup.