Discussion :

[lucazzo]

Bonjour,

Voici mon soucis :
Dans mon application que je développe en VBA Excel 2007, l'utilisateur peut créer un dossier à partir du code en cliquant sur un bouton.
Une Application.Inputbox apparait pour pouvoir entrer le nom du dossier à créer (le chemin reste toujours le même et donc je l'ai codé en dur).
Seulement voilà.. il est interdit (et même impossible) de nomer un dossier avec certain caractère (p.ex: \ /:*?"<>|).
J'aimerais donc, en fonction du nom taper dans le inputbox supprimer ces caractères si l'utilisateur l'a fait !!

Merci pour votre solution et vos idées.

OS : Windows XP
Office : 2007

[Bevan]

Salut,
Voilà ce que j'utilise :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Function Normalise(Machaine As String) As String
Dim w As String
w = Remplace(Machaine, "'", "")
w = Remplace(w, " ", "_")
w = Remplace(w, "/", "_")
w = Remplace(w, "\", "_")
w = Remplace(w, "*", "_")
w = Remplace(w, "?", "_")
w = Remplace(w, ",", "_")
w = Remplace(w, ".", "_")
w = Remplace(w, ":", "_")
w = Remplace(w, "!", "_")
w = Remplace(w, """", "_")
w = Remplace(w, "|", "_")
w = Remplace(w, "(", "_")
w = Remplace(w, ")", "_")
w = Remplace(w, "{", "_")
w = Remplace(w, "}", "_")
w = Remplace(w, ";", "_")
Normalise = w
End Function
 
Public Function Remplace(ByVal Ou As String, ByVal Quoi As String, ByVal ParQuoi As String) As String
Dim i As Integer
i = InStr(Ou, Quoi)
While i <> 0
    Ou = Left(Ou, i - 1) & ParQuoi & Mid(Ou, i + Len(Quoi))
    i = InStr(i + Len(ParQuoi), Ou, Quoi)
Wend
Remplace = Ou
End Function

[ouskel'n'or]

Tu pourrais faire un truc comme ça

Code :

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

1
2
3
4
5
6
7
8
9
Dim tablo
Tablo = Array( "\ ", "/", ":", "*", "?", "<",">","|","""", ")")
For i = 0 to Ubound(Tablo)
     if instr(NomFich, Tablo(i)) <> 0 then
         Msgbox "Les caractères tels que \ /:*?""<>|) sont défendus dans les noms de fichiers ou de dossiers !" _
               & vbcr & "Veuillez corriger la saisie"
         exit for
     endif
Next

Pour reprendre la proposition de Brevan et mon tableau, tu pourrais aussi faire

Code :

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

1
2
3
4
5
Dim tablo
Tablo = Array( "\ ", "/", ":", "*", "?", "<",">","|","""", ")")
For i = 0 to Ubound(Tablo)
      NomFich = Replace(NomFich, Tablo(i), "_")
Next

A toi de choisir

[lucazzo]

C'est nikel. Exactement ce que je cherchais..

Bonne fin de journée !!