IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Caractères interdits dans nom de fichier [XL-365]


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre éprouvé
    Homme Profil pro
    Retraité
    Inscrit en
    Juillet 2017
    Messages
    1 291
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 74
    Localisation : France, Var (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : Retraité

    Informations forums :
    Inscription : Juillet 2017
    Messages : 1 291
    Par défaut Caractères interdits dans nom de fichier
    Bonjour

    Je viens d'être confronté pour la 1ere fois avec un pb que vous avez forcément eu un jour ou l'autre.

    Un utilisateur a saisi un caractère interdit dans le nom d'un fichier. Comme j'utilise ce nom pour créer le fichier...

    J'ai bien identifier les 10 caractères interdits par Windows mais aucune solution trouvée sur internet ne me satisfait

    Je veux détecter le problème après la saisie et informer l'utilisateur par un Msgbox dans ma macro avant la création du fichier et donc le plantage

    Question subsidiaire : je suis en Windows 10 mais quelques PC vont être changés et du coup seront en Windows 11. A votre connaissance les caractères interdits sont-ils les mêmes ?

    Merci

  2. #2
    Membre éprouvé
    Homme Profil pro
    Retraité
    Inscrit en
    Juillet 2017
    Messages
    1 291
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 74
    Localisation : France, Var (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : Retraité

    Informations forums :
    Inscription : Juillet 2017
    Messages : 1 291
    Par défaut
    J'ai finalement trouvé une solution qui semble convenir, avez-vous mieux ?

    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
     
    sub ctrlNom
    Dim lngI As Long, valid As Boolean
    lngI = lngI + InStr(&H1, nomFich, "\")
    lngI = lngI + InStr(&H1, nomFich, "/")
    lngI = lngI + InStr(&H1, nomFich, ":")
    lngI = lngI + InStr(&H1, nomFich, "*")
    lngI = lngI + InStr(&H1, nomFich, "?")
    lngI = lngI + InStr(&H1, nomFich, "<")
    lngI = lngI + InStr(&H1, nomFich, ">")
    lngI = lngI + InStr(&H1, nomFich, "|")
    lngI = lngI + InStr(&H1, nomFich, Chr$(&H22)) ' Caractère "
    If lngI = &H0 Then
    Else
        MsgBox "ko"
        Exit Sub
    End If
    end sub

  3. #3
    Rédacteur
    Avatar de Philippe Tulliez
    Homme Profil pro
    Formateur, développeur et consultant Excel, Access, Word et VBA
    Inscrit en
    Janvier 2010
    Messages
    13 174
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations professionnelles :
    Activité : Formateur, développeur et consultant Excel, Access, Word et VBA

    Informations forums :
    Inscription : Janvier 2010
    Messages : 13 174
    Billets dans le blog
    53
    Par défaut
    Bonjour,
    Pour ma part, j'utilise une fonction qui remplace les mauvais caractères par d'autres mais si vous voulez absolument un message pour signaler que le nom est incorrect voici une autre solution
    La fonction IsFileNameCorrect renvoie FALSE ou TRUE s'il le nom contient un caractère qui n'est pas accepté par Windows
    Dans cette fonction, je ne gère pas les noms de fichiers interdits comme CON, PRN, AUX, NUL, COM1, COM2, COM3, COM4, COM5, COM6, COM7, COM8, COM9, LPT1, LPT2, LPT3, LPT4, LPT5, LPT6, LPT7, LPT8 et LPT9.

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    Function IsFileNameCorrect(Name As String) As Boolean
      Dim ProhibitedCharacters As String
      Dim Flag As Boolean
      Dim c As Byte
      ProhibitedCharacters = "\/:*?<>|" & Chr(34) ' \/:*?<>|"
      Do While Flag = False And c < Len(ProhibitedCharacters)
        c = c + 1
        Flag = InStr(Name, Mid(ProhibitedCharacters, c, 1))
      Loop
      IsFileNameCorrect = Not Flag
    End Function
    Exemple d'une procédure qui l'invoque
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    Sub TestIsFileNameCorrect()
      Const FileName As String = "monfichier ?"
      If Not IsFileNameCorrect(FileName) Then
         MsgBox "le nom de fichier " & FileName & " contient des caractères ", vbCritical
      End If
    End Sub
    Philippe Tulliez
    Ce que l'on conçoit bien s'énonce clairement, et les mots pour le dire arrivent aisément. (Nicolas Boileau)
    Lorsque vous avez la réponse à votre question, n'oubliez pas de cliquer sur et si celle-ci est pertinente pensez à voter
    Mes tutoriels : Utilisation de l'assistant « Insertion de fonction », Les filtres avancés ou élaborés dans Excel
    Mon dernier billet : Utilisation de la fonction Dir en VBA pour vérifier l'existence d'un fichier

  4. #4
    Expert confirmé
    Avatar de jurassic pork
    Homme Profil pro
    Bidouilleur
    Inscrit en
    Décembre 2008
    Messages
    4 246
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Bidouilleur
    Secteur : Industrie

    Informations forums :
    Inscription : Décembre 2008
    Messages : 4 246
    Par défaut
    Hello,
    on peut aussi utiliser les expressions régulières pour tester les caractères interdits :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    Function ValidFileName(FileName As String) As Boolean
    'PURPOSE: Determine If A Given File Name Is Valid
    'SOURCE: www.TheSpreadsheetGuru.com/the-code-vault
      With CreateObject("VBScript.RegExp")
        .Pattern = "[\\/:\*\?""<>\|\[\]]"
        ValidFileName = Not .Test(FileName)
      End With
    End Function
    Ami calmant, J.P

  5. #5
    Membre éclairé Avatar de bartimeus35
    Homme Profil pro
    Inscrit en
    Juin 2009
    Messages
    588
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Ille et Vilaine (Bretagne)

    Informations forums :
    Inscription : Juin 2009
    Messages : 588
    Par défaut
    Hello,
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    Function ValidFileName(FileName As String) As Boolean
    'PURPOSE: Determine If A Given File Name Is Valid
    'SOURCE: www.TheSpreadsheetGuru.com/the-code-vault
      With CreateObject("VBScript.RegExp")
        .Pattern = "[\\/:\*\?""<>\|\[\]]"
        ValidFileName = Not .Test(FileName)
      End With
    End Function
    Parfait cette fonction, exactement ce que je cherchais, mais comment peut on renvoyer le caractère qui pose problème quand c'est le cas ?
    Idealement =>
    • renvoyer null si tout est OK
    • sinon renvoyer le caractère problématique


    Je ne pige rien aux expressions régulières

    Merci de vos idées
    @+

  6. #6
    Expert confirmé
    Avatar de jurassic pork
    Homme Profil pro
    Bidouilleur
    Inscrit en
    Décembre 2008
    Messages
    4 246
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Bidouilleur
    Secteur : Industrie

    Informations forums :
    Inscription : Décembre 2008
    Messages : 4 246
    Par défaut
    Hello,
    l'utilisation d'expressions régulières n'est pas adaptée pour ce que tu veux faire.
    Voici une solution qui va montrer quels sont les mauvais caractères dans le nom du fichier.
    On utilise une zone de texte pour pouvoir colorer les lettres :
    Le code :
    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
    Sub Bouton1_Cliquer()
    Dim ProhibitedCharacters As String
    Dim Name As String, i As Integer
    With ActiveSheet.Shapes("ZoneTexte1")
    Name = .TextFrame.Characters.text
    ProhibitedCharacters = "\/:*?<>|" & Chr(34) ' \/:*?<>|"
     For i = 1 To Len(Name)
           If InStr(1, ProhibitedCharacters, Mid(Name, i, 1)) Then
               .TextFrame2.TextRange.Characters(i, 1).Font.Fill.ForeColor.RGB = RGB(255, 0, 0)
           Else
              .TextFrame2.TextRange.Characters(i, 1).Font.Fill.ForeColor.RGB = RGB(0, 0, 0)
           End If
    Next i
    End With
    End Sub
    Voici ce que cela donne :
    Nom : ColorBadChar.gif
Affichages : 286
Taille : 18,7 Ko


    Ami calmant, J.P

  7. #7
    Membre Expert
    Avatar de tototiti2008
    Homme Profil pro
    Formateur/développeur
    Inscrit en
    Octobre 2008
    Messages
    1 196
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Moselle (Lorraine)

    Informations professionnelles :
    Activité : Formateur/développeur

    Informations forums :
    Inscription : Octobre 2008
    Messages : 1 196
    Billets dans le blog
    2
    Par défaut
    Pas du tout je m'insurge

  8. #8
    Membre chevronné
    Homme Profil pro
    CIP
    Inscrit en
    Avril 2024
    Messages
    204
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 55
    Localisation : France, Ille et Vilaine (Bretagne)

    Informations professionnelles :
    Activité : CIP
    Secteur : Service public

    Informations forums :
    Inscription : Avril 2024
    Messages : 204
    Par défaut
    Nom : diabolo.gif
Affichages : 246
Taille : 22,7 Ko

  9. #9
    Membre émérite Avatar de Valtrase
    Homme Profil pro
    Jeune retraité...
    Inscrit en
    Janvier 2016
    Messages
    510
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 66
    Localisation : France, Pyrénées Orientales (Languedoc Roussillon)

    Informations professionnelles :
    Activité : Jeune retraité...
    Secteur : Boutique - Magasin

    Informations forums :
    Inscription : Janvier 2016
    Messages : 510
    Par défaut
    Re,
    Là c'est clair que c'est tous sans exception...

    Test :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
        MsgBox replacecharspé("toto:mange;des""bannanes.avvec[le\nez")

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [Batch] Remplacer nom chaine de caractère dans nom de fichier
    Par Angeldu74 dans le forum Scripts/Batch
    Réponses: 6
    Dernier message: 31/07/2017, 09h44
  2. [WD-MAC 2004] Nombre maximal de caractères dans Nom de fichier
    Par didcac dans le forum Word
    Réponses: 5
    Dernier message: 24/05/2012, 16h56
  3. caractères interdit dans un nom de fichier
    Par michel71 dans le forum Langage
    Réponses: 21
    Dernier message: 11/08/2010, 16h05
  4. FTP : caractères dans noms de fichiers
    Par cmasset dans le forum Réseau
    Réponses: 1
    Dernier message: 29/07/2008, 15h17
  5. caractère spéciaux dans nom de base
    Par slefevre01 dans le forum SQL Procédural
    Réponses: 1
    Dernier message: 16/08/2005, 17h41

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo