Discussion :

[anisr]

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?

[ouskel'n'or]

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

Code :

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

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+

[anisr]

Merci beaucoup.