Variable VBA recherche de caratères spéciaux

Bonjour,

Voila une proposition :

Do
        Enregistrement = InputBox("Nom du programme", "Nom Programme", Left(Nomfichier, Len(Nomfichier) - 4))
        If Enregistrement = "" Then MsgBox "rentrer un nom de programme", vbExclamation
    Loop While Enregistrement = ""
    For Icar = 1 To Len(Enregistrement)
    Car = Mid(Enregistrement, Icar, 1)
    If Car = "/" Or Car = ":" Or Car = "*" Or Car = "?" Or Car = "<" Or Car = """" Or Car = ">" Or Car = "|" Then
        MsgBox ("attention le nom du fichier ne peut comporter de caratères tels que " & Chr(13) & "\ / : * "" ? < > |")
        Exit For
    End If
    Next Icar

On teste caractère par caratère.
Pour les guillemets il faut les doubler pour qu'ils soient pris en compte.

A+

Un grand merci , cela fonctionne très bien en effet ,cependant je souhaiterai que si un caractère incorecte soit détecté , le message d'erreur s'affiche et que l'on revienne à la première étape qui est le Do enregistrement= ...

Oui tu peux utiliser la boucle par exemple :

Do
        Enregistrement = ...        
        If Enregistrement = "" Then MsgBox "rentrer un nom de programme", vbExclamation
    
    For Icar = 1 To Len(Enregistrement)
    Car = Mid(Enregistrement, Icar, 1)
    If Car = ...
         MsgBox ("attention le nom du fichier ne peut comporter de caratères tels que " ...        
        Enregistrement = ""
        Exit For
    End If
    Next Icar
    Loop While Enregistrement = ""

A+

cela fonctionne parfaitement merci
(j'avai en tete d'affecter une variable =0 ou 1 et de sortir du loop tant que il y a 1 ou 0, mais c'est bien plus simple comme cela, une seule boucle )

bonjour,

a la bourre comme d'hab mais j'y vas quand m^

avec une fonction réutilisable partout ailleurs qui renvoie vrai ou faux (vrai: il y a un caractère interdit mais on peut choisir l'inverse)

Function detecter_car_interdit(nom_fichier As String) As Boolean
 Dim interdit
 Dim cptr As Long
     interdit = Array("""", "/", "?", ":", "|", "*", "<", ">", "[", "]")
     For cptr = LBound(interdit) To UBound(interdit)
         If InStr(nom_fichier, interdit(cptr)) Then
         detecter_car_interdit = True
         Exit Function
         End If
     Next cptr
     detecter_car_interdit = False
 End Function

Merci pour ta participation michel_m , peut tu me dire comment intégrer cette fonction ( ou simplement l'appelle de la fonction) à ma boucle .
(je souhaite comprendre un peut mieux l'utilisation et l'appelle de fonction) Merci.

Salut michel_m

Solution trés élégante (comme d'hab !).

Pour pou pouille voila un exemple d'utilisation de la fonction de Michel.

Dim Enregistrement As String    
    Do
        Enregistrement = InputBox("Nom du programme", "Nom Programme", Left(Nomfichier, Len(Nomfichier) - 4))
        If Enregistrement = "" Then MsgBox "rentrer un nom de programme", vbExclamation
    If detecter_car_interdit(Enregistrement) Then
        MsgBox ("attention le nom du fichier ne peut comporter de caratères tels que " & Chr(13) & "\ / : * "" ? < > |")
        Enregistrement = ""
    End If
    Loop While Enregistrement = ""

A+

Pou pouille: pour s'initier en douce aux sub paramétrées et aux fonctions:
http://www.info-3000.com/vbvba/subfunction.php
l'intérêt d'une fonction est que tu fait ça une bonne fois pour toutes sans avoir à tout réinventer à chaque procédure: tu te constitue ainsi un grenier dans lequel tu puises tranquillement en économisant de la matière grise!

Bon!
J'allais m'y mettre mais heureusement l'ami Pilas l'a fait, donc merci! -merci aussi pour ton appréciation: i am tout colorindex=3-

il y a une petite vach... où je me suis fait piéger: si l'utilisateur tape par ex: "aze.ty.bmp", il faut donc ajouter dans l'array le point.
d'autre part, une extension peut comporter 4 lettres (.jpeg) mais...

je vais regarder ce truc; quand, je sais pas

merci beaucoup,
j'intègrerais cette fonction lundi quand je retournerai bosser ^^.
ce n'est pas la peine de se préoccuper de la terminaison puisque derrière enregistrement (enfin bien plus loin dans ma macro je rajoute l'extension Enregistrement & ".SMD" . ( et j'ai deja essayé sur mon ordi si je fait un truc du genre : toto.doc , il me le prend bien en toto.doc.smd donc aucun problème avec le point)

re,re,
je sursaute quand je vois un nom de fichier style "toto.doc.smd" car c'est assez typique d'un virus (avec notamment "toto.doc.vbs") mais... '
ci dessous fonction + générale interdisant les 2 points dans le nom du fichier et avec des extensions à n caractères

Function detecter_car_interdit(nom_fichier) As Boolean
 Dim interdit
 Dim cptr As Long
    'teste si 2 points dans le nom de fichier
    If Len(nom_fichier) - Len(Replace(nom_fichier, ".", "")) > 1 Then GoTo erreur
    'teste si nom de fichier comporte une extension
    If InStr(nom_fichier, ".") = 0 Then
        MsgBox " nom de fichier sans extension", vbCritical
        GoTo erreur
    End If
    ' travaille sur la partie gauche avant l'extension
    nom_fichier = Left(nom_fichier, InStr(nom_fichier, ".") - 1)
     interdit = Array("""", "/", "?", ":", "|", "*", "<", ">", "[", "]", ".")
     For cptr = LBound(interdit) To UBound(interdit)
         If InStr(nom_fichier, interdit(cptr)) Then GoTo erreur
     Next cptr
     
detecter_car_interdit = False
Exit Function
erreur:
detecter_car_interdit = True
 End Function

----------------------------------

Sub test()
Dim fichier As String
fichier = "az.ertY.jpeg"
MsgBox detecter_car_interdit(fichier)
End Sub

Bonjour tout le monde,

Une autre façon de faire serait de tenter d'ouvrir le fichier et laisser faire windows pour rejeter les mauvais noms.
Dans ton cas l'err 75 t'interesse : le chemin et le nom du fichier sont corrects et il n'existe pas.
Et éventuellement l'err 0 : fichier existant, pour accepter ou refuser.

ex :

Sub test()
    fich = FreeFile
    On Error Resume Next
    Open "c:\" & "te|st.txt" For Output As #fich
    MsgBox ("Err " & Err.Number & " : " & Err.Description)
    Close #fich
    if err= 0 or err=75 then 
        ok=true  ' ecrire fichier
    endif
    On Error GoTo 0
End Sub

Ca peut être fait sous forme de fonction aussi
eric

bonjour,
Eric: ta démo est très intéressante!!
merci