Recherche caractères interdits.

Option Explicit
Sub Caractère_interdit_alerter()
If [c9].Value Like "*:*" Or [c9].Value Like "*\*" Or [c9].Value Like "*/*" Or [c9].Value Like "*?*" _
Then MsgBox "Attention : caractère(s) interdit(s) en c9 !"
End Sub

Sub Test_Nom()
Dim Interdits(), i&
Interdits = Array("[", "]", "\", "/", "?", "*", ":")
If Len([C9].Text) > 31 Then
    MsgBox "Supérieur à 31 caractères", 64, "Attention"
    Exit Sub
End If
For i = LBound(Interdits) To UBound(Interdits)
    If Len(Replace([C9].Text, Interdits(i), "")) < Len([C9].Text) Then
        MsgBox "Présence du caractère : " & Interdits(i), 64, "Attention"
        Exit For
    End If
Next
End Sub

Option Explicit
Sub Moi_pas_comprendre()
'La cellule sélectionnée contient le mot "Pourquoi", suivi d'un espace et du signe de ponctuation "?"
'Pourquoi ?
If Selection.Value Like "*?*" Then MsgBox "INCOMPETENCE AVEREE !" & vbLf & "Enclos regagner..." & vbLf & "ILLICO !..."
End Sub

Function EstValide(NomFichier$) As Boolean
With CreateObject("vbscript.regexp")
    .Pattern = "[\\/:\*\?""<>\|!~]"
    EstValide = Not .test(NomFichier)
End With
End Function

Sub test()
Dim S_tringA$, S_tringB$
S_tringA = "+¨^âc()()())b1\\23.txt))"
S_tringB = "Classeur1.xlsm"
MsgBox EstValide(S_tringA)
MsgBox EstValide(S_tringB)
End Sub

Public Function FTestCarFichInterdit(F$) As Boolean
FTestCarFichInterdit = False
Car$ = "< > \ / | ? : * . " & Chr(34)
For I = 1 To 10
  C$ = Choose(I, "<", ">", "\", "/", "|", "?", ":", "*", ".", Chr(34))
  If InStr(F$, C$) Then
     MsgBox "Dans un nom de fichier," & vbLf & "les caractères suivants sont interdits !" & vbLf & vbLf & Car$, vbCritical, "Info"
     FTestCarFichInterdit = True
  End If
Next
End Function