Par l'interm=E9diaire d'un userform je demande =E0=20
l'utilisateur de saisir un nom qui me servira pour cr=E9er=20
un r=E9pertoire sur le serveur. Pour =E9viter les plantages=20
VBA apr=E8s coup, comment faire pour controler et refuser=20
le cas =E9ch=E9ant une chaine comportant les carat=E8res=20
*,\,/,;? Bref tout ce qui ne peut pas etre utilis=E9 dans=20
un nom de r=E9pertoire.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
michdenis
Bonjour Kyvu,
Essaie ceci :
'------------------------ Dim NomFichier As String, C As String
Do C = "" NomFichier = Application.InputBox("Nom du fichier") If NomFichier = "Faux" Then Exit Do 'ou Exit sub
For Each elt In Array("*", "", "/", ":", "?", "[", "]") If InStr(1, NomFichier, elt, vbTextCompare) <> 0 Then C = C & " " & elt End If Next If C <> "" Then MsgBox "Ce(s) caractère(s) " & C & " n'est pas permis dans le nom du fichier" End If Loop Until C = "" '------------------------
Salutations!
"Kyvu" a écrit dans le message de news:21db701c45b9b$435ddd60$ Bonjour,
Par l'intermédiaire d'un userform je demande à l'utilisateur de saisir un nom qui me servira pour créer un répertoire sur le serveur. Pour éviter les plantages VBA après coup, comment faire pour controler et refuser le cas échéant une chaine comportant les caratères *,,/,;? Bref tout ce qui ne peut pas etre utilisé dans un nom de répertoire.
Merci d'avance pour vos réponses.
@micalement.
Kyvu On Line!
Bonjour Kyvu,
Essaie ceci :
'------------------------
Dim NomFichier As String, C As String
Do
C = ""
NomFichier = Application.InputBox("Nom du fichier")
If NomFichier = "Faux" Then Exit Do 'ou Exit sub
For Each elt In Array("*", "", "/", ":", "?", "[", "]")
If InStr(1, NomFichier, elt, vbTextCompare) <> 0 Then
C = C & " " & elt
End If
Next
If C <> "" Then
MsgBox "Ce(s) caractère(s) " & C & " n'est pas permis dans le nom du fichier"
End If
Loop Until C = ""
'------------------------
Salutations!
"Kyvu" <anonymous@discussions.microsoft.com> a écrit dans le message de news:21db701c45b9b$435ddd60$a401280a@phx.gbl...
Bonjour,
Par l'intermédiaire d'un userform je demande à
l'utilisateur de saisir un nom qui me servira pour créer
un répertoire sur le serveur. Pour éviter les plantages
VBA après coup, comment faire pour controler et refuser
le cas échéant une chaine comportant les caratères
*,,/,;? Bref tout ce qui ne peut pas etre utilisé dans
un nom de répertoire.
'------------------------ Dim NomFichier As String, C As String
Do C = "" NomFichier = Application.InputBox("Nom du fichier") If NomFichier = "Faux" Then Exit Do 'ou Exit sub
For Each elt In Array("*", "", "/", ":", "?", "[", "]") If InStr(1, NomFichier, elt, vbTextCompare) <> 0 Then C = C & " " & elt End If Next If C <> "" Then MsgBox "Ce(s) caractère(s) " & C & " n'est pas permis dans le nom du fichier" End If Loop Until C = "" '------------------------
Salutations!
"Kyvu" a écrit dans le message de news:21db701c45b9b$435ddd60$ Bonjour,
Par l'intermédiaire d'un userform je demande à l'utilisateur de saisir un nom qui me servira pour créer un répertoire sur le serveur. Pour éviter les plantages VBA après coup, comment faire pour controler et refuser le cas échéant une chaine comportant les caratères *,,/,;? Bref tout ce qui ne peut pas etre utilisé dans un nom de répertoire.
