VBA requete Sql access avec accent sur les tables

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:

---

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

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

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...

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é

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:

---

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 8O

Bonjour

Citation:

---

Envoyé par Pierre Fauconnier

...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 8O

---

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é...

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...

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 :(

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?

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 ;)