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 ?