Discussion :

[Thomas88-67]

Bonjour à tous;

Je suis bloqué car je n'arrive pas contourner ce problème. En effet, je souhaite ouvrir un fichier afin de mettre à jour une base de données qui est contenue dans un autre fichier.
Le fichier est stocké dans un dossier nommé avec des caractères spéciaux qui ne sont pas lus par VBA et donc ils bloquent le code.
Je ne peux pas renommé le dossier du fait des impacts trop important, j'aimerais donc pouvoir réussir à solutionner ou contourner le problème.
Les caractères spéciaux représentent un point central qui n'est ni un Midpoint ni une puce ... Je n'arrive pas à trouver sont Unicode.



Voici mon 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
 
 
Dim wkA As Workbook, wkB As Workbook
Dim chemin As String, fichier As String
 
Set wkA = ThisWorkbook
chemin = "Y:\Production\LISTE CHABLONS*DOSEUSE*MASSES\LISTES PLAQUE DOSEUSE.xls"
fichier = "LISTES PLAQUE DOSEUSE.xls"
Workbooks.Open chemin & fichier
 
Set wkB = ActiveWorkbook
wkB.Worksheets("liste plaques").Range("A1:FA2000").Copy
wkA.Worksheets("BD PLAQUES").Range("A1:FA2000").PasteSpecial Paste:=xlPasteAll
wkB.Close SaveChanges:=False 
MsgBox ("Mises à jour des recettes faite")

J'ai également essayer de le détourner en y insérant une variable :

Code :

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

1
2
3
4
5
 
Dim car As String
car = Chr(168)
Dim book As Variant
book = = "Y:\Production\LISTE CHABLONS" & car & "DOSEUSE" & car & "MASSES\"

Mais je ne trouve pas la solution,

Pourriez-vous m'aider ?

[Invité]

Bonjour,

Vous pourriez faire un copier coller de la chaine dans votre message, plutôt qu'une image ?

[Thomas88-67]

Bonjour Eric;

Voici le résultat une fois copier / coller :

LISTE CHABLONSDOSEUSEMASSES

Sur VBA le chemin s'affiche avec des points d'interrogations dans des rectangles.

[Invité]

Désolé, je n'ai rien pu faire avec ce code pour trouver ces caractères :

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 TestCaracteres()
 
Dim I As Integer, J As Integer
 
    If ActiveCell = "" Then Exit Sub
 
    For I = 1 To Len(ActiveCell)
        For J = 0 To 255
            If Mid(ActiveCell.Value, I, 1) = Chr(J) Then
               Debug.Print Mid(ActiveCell.Value, I, 1) & " : " & J
               Exit For
            End If
 
        Next J
    Next I
 
End Sub