Discussion :

[Nono Sto]

Chères amies, chers amis du forum

Je souhaiterais éliminer les caractère spéciaux d'un string pour pour un titre de fichier a enregistrer. Je pense utilise FIND et mettre en argument un ARRAY, mais je ne vois pas bien comment faire auriez vous une idées SVP?

Merci

[Invité]

http://www.developpez.net/forums/d14...x/#post7737535

[Nono Sto]

Merci

j'avais pensé naivement à sa mais sa marche pas:

Code :

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

1
2
3
4
5
6
7
8
 
Function replacespecialcharacter(cel As Range) As String
 
Dim tes As String
 
replacespecialcharacter = Replace(cel.Value, Array("/", "\", ":", "*", "?", "<", ">", "|", Chr(34)), "-")
 
End Function

sinon j'ai trouver sa :

http://www.developpez.net/forums/d62...r/#post3673232

[Marc-L]

Bonjour,

dans une boucle commençant ainsi par exemple : For Each CAR in Split(""" , / \ : * ? < > |") …

[Nono Sto]

Merci beaucoup c'est une super piste.

[kiki29]

Salut, sous forme de fonction personnalisée :

Code :

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

1
2
3
4
5
6
7
8
9
Option Explicit
 
Function NomFichierValide(sChaine As String) As String
    With CreateObject("VBScript.RegExp")
        .Pattern = "\W"
        .Global = True
        NomFichierValide = .Replace(sChaine, "")
    End With
End Function