Discussion :

[guigui69]

Bonjour à tous,

je suis sur un probleme ou je bloque depuis 2heures

J'ai un fichier excel avec mon VBA qui interroge une base access.

Le problème c'est que la requête SQL comporte des accents dans les noms des tables et cela bloque le VBA ca fonctionne pas. (si je réalise une requête avec une autre table sans accents pas de problème).


Le problème c'est au niveau VBA, la requête envoyé est mal interprété, le retour que j'ai impossible de trouvé la table [rqt_Attendu Recu préparatoire Externe] au lieu de [rqt_Attendu Recu préparatoire Externe].

Par contre si dans mon fichier excel (pour faire un test) je créé une connexion a ce fichier access et que je lance la requête dedans, cela s’exécute correctement et le é est bien interprété.

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
 
Dim cnBat As ADODB.Connection
Set cnBat = New ADODB.Connection
 '--MsgBox (valcel)
Dim strConn As String
strConn = "Provider=Microsoft.ACE.OLEDB.12.0;"
strConn = strConn & "Data Source=K:\oooo\oooooooooooo.mdb;Persist Security Info=False;"
cnBat.Open strConn
 
 
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Set fso = CreateObject("Scripting.FileSystemObject")
 Worksheets("Informations").Range("A13:R3000").ClearContents
 
'------------------
Dim rsBat As ADODB.Recordset
Set rsBat = New ADODB.Recordset
 
With rsBat
     .ActiveConnection = cnBat
 
 
                 'MsgBox ("Societe:" & rsBat("emp") & "Point de vente" & rsBat("puntoventa"))
 
                Set f = fso.OpenTextFile(chemin & "\sql\requete_oooooooooo.sql", ForReading)
                'une_variable = Replace(f.ReadAll, "societe", id_societe)
                une_variable = Replace(f.ReadAll, "debutdatereglement", debutdatereglement)
                 une_variable = Replace(une_variable, "findatereglement", findatereglement)
                'une_variable = Replace(une_variable, "datesupreglement", datesupreglement)
                f.Close
    Set ft = fso.OpenTextFile(chemin & "\ecr.txt", ForWriting, True)
   ft.write (une_variable)
   ft.Close
 
 
 
           ' MsgBox (une_variable)
      .Open une_variable

A quelle niveau du VBA je dois préciser le format de la variable? Quelle valeur indiqué ? je bloque


merci d'avance pour vos conseils

guigui69

[Qwazerty]

Salut

Je n'utilise pas suffisamment SQL pour avoir ce problème mais en faisant quelques recherches, tu peux essayer de remplacer les lettres accentuées par leur pendant HTML.

As-tu essayé de mettre le nom de ton répertoire sans l'accent, apparemment en fonction du gestionnaire ça peut fonctionner... mais je dis peut-être une bêtise.

++
Qwaz

[78chris]

Bonjour

D'où l'intérêt quand on construit des bases de données ou autres fichiers informatiques de respecter le norme internationale : pas d'espace ni d'accents dans les noms d'objets...

[guigui69]

Bonjour,

Se n'ai pas moi qui est réalisé cette base de donnée

Qwerty c'est pas le nom du repertoire le probleme c'est la requete SQL qui a des accents.

comme je le dit plus haut si je réalise une "connexion" directement depuis le fichier excel et que j’insère cette requête (avec les accents) elle s’exécute bien sans problème. on dirait quand VBA je doit préciser le format (utf8 latinxxx etc..) pour que les é soit interprété

[Pierre Fauconnier]

Salut.

FSO est très limité. Je te conseille plutôt adodb.stream qui te permettra de réaliser ce que tu souhaites. Il faut cocher la librairie Microsoft Activex Data Objects 2.5 ou supérieure (ou travailler en late binding)

Appuie-toi sur l'exemple suivant:

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 Test()
  Dim FileStream As New ADODB.Stream
  Dim Content As String
 
  FileStream.Charset = "UTF-8"
  FileStream.Open
  FileStream.LoadFromFile "d:\test.sql"
  Content = FileStream.ReadText
  Content = Replace(expression:=Content, Find:="[ID]", Replace:="4", compare:=vbTextCompare)
  FileStream.Close
  FileStream.Open
  FileStream.Type = adTypeText
  FileStream.WriteText Content
  FileStream.SaveToFile "d:\test.sql", adSaveCreateOverWrite
End Sub

Je sais que tu n'as pas créé la base, mais je plussoie Chris sur une normalisation des noms d'objets dans les bases de données, et je sais qu'Access est très, voire trop, permissif. Même leurs exemples fournis avec Access contiennent des noms avec espaces et accents

[78chris]

Bonjour

...je plussoie Chris sur une normalisation des noms d'objets dans les bases de données, et je sais qu'Access est très, voire trop, permissif. Même leurs exemples fournis avec Access contiennent des noms avec espaces et accents

Petite anecdote sur cet aspect : le 1er PC équipé de Windows Millenium que j'ai démarré proposait entre autres fond d'écrans "Bouton d'or"
Un fois celui-ci choisi puis le PC arrêté proprement, il était impossible de le redémarrer, Windows plantant systématiquement (le mode sans échec a permis de comprendre et résoudre).
Donc même Microsoft ne gère pas toujours sa propre permissivité...

[Pierre Fauconnier]

Il faut toutefois noter que, de toutes façons, il aurait fallu passer par ce genre de code car même si les normes avaient été respectées au niveau des noms d'objets, il se pourrait que l'on passe des valeurs contenant des caractères accentués...

[guigui69]

Bonjour à tous,

Pierre Fauconnier: que fait ta fonction ?

Car le fichier que je créer (avec FSO) c'est juste pour voir la requête pour visualiser et la requête dans le fichier est correctement orthographié avec les accents tout nickel. (quand le fso écrit la variable "une_variable" dans le fichier)


c'est quand on est sur ".Open une_variable" qui interprète mal les accents

[Pierre Fauconnier]

Je ne comprends pas ta question.

Ton code avec FSO ouvrait un fichier pour y remplacer du texte, avec un problème d'accents.

Mon code fait exactement la même chose, mais en utilisant la librairie ADO plutôt que FSO car elle permet de déterminer le codage du texte. Il me semble que les lignes de code parlent d'elles-mêmes...

Dès lors, peux-tu préciser ta question?

[Pierre Fauconnier]

Désolé, je viens de comprendre en lisant ton code jusqu'au bout.

La requête à utiliser sur le .open est contenue dans ma variable Content.

Donc, après récupération du texte via adodb.stream dans la variable Content, tu procèdes aux Replace puis tu ouvres ton rsBAt avec cette variable.

[EDIT]
En termes de lisibilité et de maintenance, tu gagnerais à utiliser une fonction qui récupérerait la requête et qui la servirait modifiée à ton code appelant. To code fait trop de choses à la fois