Discussion :

[Doatyn]

Bonjour,
Je m'attaque à un problème (rare) de noms de fichiers qui en fait semblent contenir un caractère UNICODE (deux octets) au milieu des ANSII (un octet).
Typiquement, ce sont des fichiers qui sont passés sur Mac ou UNIX.
Exemple :
On voit dans Windows : RC Ax 1 Points de vue imposés.pdf
Mais Excel voit : RC Ax 1 Points de vue impose's.pdf , un chr(180) intempestif
Dans Windows, si on parcours le nom $ par $, il faut deux <flèche gauche> pour passer le é. Si on est à la droite de cet ensemble, faire <supprimer> remplace le é par e et tout va bien.

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
 
Option Explicit
 
Sub Nettoie()
Dim Fic As String
Dim Fic2 As String
 
    Fic = Dir("F:\21\12-Organisation\28-Couts\DCE VOffre\")
    Do Until Fic = ""
        If InStr(Fic, Chr(180)) <> 0 Then
            Stop
            Fic2 = Replace(Fic, Chr(180), "")
            Name "F:\21\12-Organisation\28-Couts\DCE VOffre\" & Fic As Fic2
        End If
        Fic = Dir
    Loop
End Sub

Fic contient le $180, Fic2 ne l'a plus
Et Name se plante "fichier introuvable"
Quelqu'un a une idée de correction ?

[Zekraoui_Jakani]

J'ai essayé ceci avec succès:

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
Sub RenameFile()
 
    Dim myPath, myFullPath, myFile As String
    Dim myChr, myRepl As String
    Dim myPos, j As Integer
 
    myFullPath = "C:\Users\Jakan\Downloads\Voitures_Importées_20220326.xlsx"   'Il faut s'assurer que le fichier n'est pas ouvert
    myPos = InStrRev(myFullPath, "\")
    myPath = Left(myFullPath, myPos)
    myFile = Mid(myFullPath, 1 + myPos)
 
    For j = 1 To 6  'pour 6 caractères spéciaux listés ci-dessous
        myChr = Choose(j, "é", "è", "ê", "ç", "à", "ù") 'on peut y ajouter autant de charactères que nécessaire et adapter le max de "j"
        'définir les caractères de remplacement:
        myRepl = Choose(j, "e", "e", "e", "c", "a", "u")    'on se débarasse des accents
 
        If InStr(myFile, myChr) > 0 Then
            myFile = Replace(myFile, myChr, myRepl)
            Name myFullPath As myPath & myFile
            Debug.Print myPath & myFile
        End If
    Next j
 
End Sub

[Doatyn]

Ton code, même s'il est plus élégant que le mien, fait pareil.
Il remplace "é" par "e", mais pas "e'". On enlève les accents, mais cela ne traite pas les caractères UNICODE.
J'ai aussi essayé de remplacer "e'" par "é", mais cela ne marche pas non plus.

La commande Name doit dater de MSDOS, comme la limitation d'un chemin à 255 caractères.
Le problème est de trouver un autre moyen pour renommer le fichier.
Il faudrait utiliser Shell, PowerShell, ou encore Kernel32.dll, mais je n'y connais pas grand chose.
Je vais regarder Kernel32, qui est plus à ma portée, mais la doc n'est pas facile à trouver.

J'ai trouvé deux autres joyeusetés :
T1C-K8000-AVP-MOAI-TAB-0070_A_FDR 40 - D+®passement du budget de l'op+®ration.xlsx
T1C-K8000-AVP-MOAI-TAB-0074_A_FDR 86 - Pr+®sence d'amiante dans les b+ótiments.xlsx

PS : tu dois mettre ton Name hors la boucle, car il peut y en avoir plusieurs.

[Zekraoui_Jakani]

Autre piste: utiliser la fonction Asc(x)
ASCII de l'alphabet minuscule va de 97 à 122 et les majuscules vont de 65 à 90, sauf erreur
Tout caractère x dont Asc(x) est en dehors de ces valeurs devra être supprimé ou remplacé par ce que l'on veut.

[Doatyn]

Le problème est ailleurs, Name n'est pas capable d'atteindre dans Windows le fichier dont le nom est "incorrect". Il y a d'autres commandes qui bloquent sur ce fait.

[Zekraoui_Jakani]

Il y a qq chose qui m'échappe !
Le fichier "T1C-K8000-AVP-MOAI-TAB-0070_A_FDR 40 - D+®passement du budget de l'op+®ration.xlsx" doit bien se trouver dans l'explorateur de fichiers;
donc je lis son nom, le change et le traite comme je veux. Désolé, je ne vois pas ton problème !

[SergeR94]

Bonjour,

Je rencontre un problème analogue à celui que vous décrivez dans votre discussion de mars 2022. J'ai développé un petit utilitaire en VB Excel qui range dans un Excel les fichiers de dossiers pour travailler dessus. Certains fichiers remontent une erreur 52 ou 53 quand j'essaie d'y accéder par exemple avec "FileLen".
Le nom de ces fichiers a un format qui génère ce problème. Par exemple un nom de fichier contient le mot santé mais écrit de la façon suivante : sante' .

J'ai essayé le code proposé (RenameFile) pour remplacer ces caractères mais la fonction "Name" remonte une erreur sur le nom du fichier origine.

Bref, avez vous fini par trouver une solution.

Par avance merci

[Doatyn]

Non, je n'ai abouti à rien. J'ai abandonné.
Les caractères qui posent problème sont codés sur deux octets (provenance MAC ou Linux)
On le voit en explorant le nom caractère par caractère avec les flèches. Il faut appuyer deux fois sur la flèche pour les passer.
Comme mon pb était limité, le plus simple était de supprimer à la main le caractère en trop.
Je n'ai pas essayé de reproduire ceci en VBA.
Désolé.

[eriiic]

Bonjour,

une solution pourrait être de passer par le nom court 8+3 pour renommer

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub test()
    'E:\tmp\tést evt app.xlsm
    ShowShortName "E:\tmp\tést evt app.xlsm"
End Sub
 
Sub ShowShortName(filespec)
    Dim fs, f, s
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFile(filespec)
    s = "The short name for " & "" & UCase(f.Name)
    s = s & "" & vbCrLf
    s = s & "is: " & "" & f.ShortName & ""
    MsgBox s, 0, "Short Name Info"
End Sub

Résultat avec un accent :
eric

PS https://dos.heffge.fr/Le_dos_sied_noms.htm

[Doatyn]

On pourrait également essayer ceci :
https://learn.microsoft.com/fr-fr/wi...shortpathnamew
On doit pouvoir atteindre le nom DOS (8.3) du fichier.

[SergeR94]

Merci pour votre réponse

[deedolith]

Hello,

Je ne fait pas trop confiance aux fonction intégrées de VBA pour manipuler le système de fichiers.
As-tu essayé via FSO ?
La classe File devrait te satisfaire: https://learn.microsoft.com/en-us/of...lp/file-object

[SergeR94]

Hello,

Je ne fait pas trop confiance aux fonction intégrées de VBA pour manipuler le système de fichiers.
As-tu essayé via FSO ?
La classe File devrait te satisfaire: https://learn.microsoft.com/en-us/of...lp/file-object

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

Bonjour,

Le problème vient de fichiers qui ont été créés sous MAC ou LINUX puis copiés sur un serveur Windows.
La plus part du temps il s'agit de nom de fichiers contenant :
Unicode Decimal Code ́
Symbol Name: Combining Acute Accent
Unicode Group: Combining Diacritical Marks

J'ai essayé le bout de code suivant (adapté à mon contexte), mais fs.GetFile retourne une erreur 53

Sub ShowFileInfo(filespec)
Dim fs, f, s
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile(filespec)
s = f.DateCreated
MsgBox s
End Sub

Au final j'ai trouvé un contournement et j'ai laissé tomber l'idée de traiter le problème via mon code VB.

J'ai identifié les dossiers concernés et j'utilise le logiciel gratuit "Renamer" qui permet de supprimer le problème dans le nom de fichier.

Merci pour ton message