problèmes de nom de fichiers - plutot complexe (je pense)

bonjour à tous
j'ai une routine qui énumère TOUS les élément d'un dossier (== sous dossiers & fichiers) qui fonctionne parfaitement.
SAUF avec certains noms reçus de l'extérieur par mail.
On pense à un problème de codage ASCI, effectivement.
MAIS ces caractères inhabituels n'apparaissent PAS dans l'explorateur (W7 pro)
ex dans EXPLORER j'ai:

Code:

---

Documents à fournir.pdf

---

mais quand je corrige le à qui semble normal: curseur après le à et EFFACEMENT j’obtiens 2a !:

Code:

---

Documents aa fournir.pdf

---

effectivement quand je copie le nom original & le nom corrigé à la main, on a APPAREMMENT la même chose:

Code:

---

1 2	Documents à fournir.pdf Documents à fournir.pdf

---

Mais quand je copie les 2 dans notepad & que je traduis en HEXA, j'ai:

Code:

---

1 2	Documents 61CC80 fournir.pdf Documents C3A0 fournir.pdf

---

ET VBA ne comprend pas puisque lui il interprète comme:

Code:

---

: fullFilePath : "L:\ap2\Downloads\Documents a` fournir.pdf" : String

---

ci joint le code de listage des répertoires:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35

Sub LoopAllSubFolders(ByVal folderPath As String)   Dim fileName As String Dim fullFilePath As String Dim numFolders As Long Dim folders() As String Dim i As Long   If Right(folderPath, 1) <> "\" Then folderPath = folderPath & "\" fileName = Dir(folderPath & "*.*", vbDirectory)   While Len(fileName) <> 0   If Left(fileName, 1) <> "." Then   fullFilePath = folderPath & fileName   If (GetAttr(fullFilePath) And vbDirectory) = vbDirectory Then ReDim Preserve folders(0 To numFolders) As String folders(numFolders) = fullFilePath numFolders = numFolders + 1 Else 'Insert the actions to be performed on each file 'This example will print the full file path to the immediate window Debug.Print folderPath & fileName End If End If fileName = Dir() Wend   For i = 0 To numFolders - 1 LoopAllSubFolders folders(i) Next i   End Sub

---

ça bloque à:

Code:

---

If (GetAttr(fullFilePath) And vbDirectory) = vbDirectory Then

---

puisque on a:

Code:

---

: fullFilePath : "L:\ap2\Downloads\Documents a` fournir.pdf" : String

---

Il y a t il a un moyen de corriger cela ?
Merci à tous

hello,

Citation:

---

Envoyé par payadz2

bonjour à tous
Mais quand je copie les 2 dans notepad & que je traduis en HEXA, j'ai:

Code:

---

1 2	Documents 61CC80 fournir.pdf Documents C3A0 fournir.pdf

---

---

explication des codes : C3A0 c'est le code hexa du à en UTF8
61CC80 c'est le code hexa de a (61) utf8 avec COMBINING GRAVE ACCENT (cc80) utf8

ami calmant, J.P

Merci,
j'ai cherché de mon coté:
il semble que W7 utilise UNICODE pour l'affichage des noms de fichiers
et donc VBA le lit mal (en UTF8 ?)

mais comment récupérer le nom de W7 pour pouvoir l'utiliser dans VBA ?

en dehors de mon problème perso si j'essaye d'accéder à un fichier quelconque (Ex "chiffres à publier.xls") si ce nom est codé en UNICODE, je le vois tel que dans le répertoire de W7, mais VBA est incapable de le trouver puisqu'il comprend "chiffres a` publier.xls".

J'ai trouvé nombre d'utilitaires qui font la conversion MAIS UNIQUEMENT du contenu de fichiers.
pour l'instant je n'ai aucune piste (si possible en VBA) pour ne changer QUE le nom.

j'ai avancé mais ça ne marche pas:
j'ai reconverti les noms mal traduits par VBA pour en refaire des noms corrects:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32

Sub UTF8_Reconstruc(ByRef a_Text As String) Dim text As String Dim pos As Integer Dim lon As Integer 'text = "Mode`le ordonnance post-ope´ratoire cataracte MG.pdf" 'probleme VBA ne fonctionne que en UTF8 et donc un texte en UNICODE copieé ailleurs puis collé dans VBA n'est pas le m^me !!! 's = UTF8_Decode("Mode`le ordonnance post-ope´ratoire cataracte MG.pdf") text = a_Text 'MsgBox "a_text=" & text & "<" 'e` a` e´ a remplacer par è à é If InStr(text, "e´") Then pos = InStr(text, "´") lon = Len(text) text = Left(text, pos - 2) & "é" & Right(text, lon - pos) End If   If InStr(text, "e`") Then pos = InStr(text, "`") lon = Len(text) text = Left(text, pos - 2) & "è" & Right(text, lon - pos) End If   If InStr(text, "a`") Then pos = InStr(text, "´") lon = Len(text) text = Left(text, pos - 2) & "à" & Right(text, lon - pos) End If   'MsgBox "Text=" & text & "<"   a_Text = text End Sub

---

j'ai rajouté en plus dans le code initial:

Code:

---

1 2	fullFilePath = folderPath & fileName Call UTF8_Reconstruc(fullFilePath)

---

Ca ça marche en apparence:
avec EXPLORER : Modèle ordonnance post-opératoire cataracte MG.pdf
devient en lecture par VBA: Mode`le ordonnance post-ope´ratoire cataracte MG.pdf
et après UTF8_Reconstruc : Modèle ordonnance post-opératoire cataracte MG.pdf

ca bloque au même endroit, avec:
: fileName : "Mode`le ordonnance post-ope´ratoire cataracte MG.pdf" : String <- normal c'est la lecture naturelle de VBA
: fullFilePath : "L:\ap2\Downloads\Modèle ordonnance post-opératoire cataracte MG.pdf" : String <- c'est la correction avec UTF8_Reconstruc
Bref on a le m^me nom en apparence et pourtant ça bloque !

Quelqu'un a t il une idée plus pertinente, parce que je sèche :roll:

hello,
le souci c'est qu'avec ta procédure utilisant Dir on exploite le nom de fichier extrait pour aller rechercher son type par GetAttr. Si dans le nom de fichier original, il y a un code de combinaison d'accent, on le perd à l'extraction et on se retrouve avec à la place l'accent lui-même.
Pour éliminer le problème on peut par exemple utiliser l'objet COM FileSystemObject. En effet avec lui lorsqu'on lit des répertoires on récupère en même temps que le nom des fichiers , les sous-répertoires. En plus avec FileSystemObject on récupère certains fichiers que tu ne récupérais pas avec ta procédure, par exemple les fichiers qui commencent par un . ou un _.
voici un exemple de code équivalent à ce que faisait ta procédure :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Sub ListFilesInFolder(ByVal xFolderName As String, ByVal xIsSubfolders As Boolean) Dim xFileSystemObject As Object Dim xFolder As Object Dim xSubFolder As Object Dim xFile As Object Set xFileSystemObject = CreateObject("Scripting.FileSystemObject") Set xFolder = xFileSystemObject.GetFolder(xFolderName) For Each xFile In xFolder.Files Debug.Print xFileSystemObject.BuildPath(xFolder, xFile.Name) Next xFile If xIsSubfolders Then For Each xSubFolder In xFolder.SubFolders ListFilesInFolder xSubFolder.Path, True Next xSubFolder End If Set xFile = Nothing Set xFolder = Nothing Set xFileSystemObject = Nothing End Sub

---

Exemple d'utilisation :

Code:

---

1 2 3

Sub TestSubFolders() ListFilesInFolder "M:\temp", True End Sub

---

Le deuxième paramètre de ListFilesInFolder permet de préciser si on veut aussi balayer les sous-répertoires.


Ami calmant, J.P

merci
je teste


@ Jurasic pork
je n'avais pas vu la signature:
ah le ZX80... avec les extensions directelment enfichées sur la CM...
je suis passé rapidement a l Amstrad 464 (k7 intégrée, la classe !) et un jour au 664, avec la disquette...le GrAAL...

Génial, ça marche
Hormis le blocage de l affichage dans le fenetre DEBUG (je pense audela d'un certain nb de lignes ?)
merci encore