Discussion :

[jojo86]

Bonsoir à tous,

Voila, je cherche la solution à un problème mais jusqu'à présent, je ne trouve rien.
J'ai un fichier Excel utilisé en tant que base de données. je me connecte de cette manière :

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
 
Public Cn As New ADODB.Connection
Public Rst As New ADODB.Recordset
 
Sub ConnexionBase()
Dim Fichier As String
    'Définit le classeur fermé servant de base de données
    Fichier = ThisWorkbook.Path & "\FM_Base.xls"
    Set Cn = New ADODB.Connection
    '--- Connection ---
    With Cn
        .Provider = "Microsoft.Jet.OLEDB.4.0"
        .ConnectionString = "Data Source=" & Fichier & _
            ";Extended Properties=Excel 8.0;"
        .Open (openstatic)
    End With
    Set Rst = New ADODB.Recordset
End Sub

J'arrive à exécuter tout un tas de requêtes, mais je n'arrive pas à effectuer de recherche dans mon fichier en ignorant les accents.
J'ai essayé avec la méthode COLLATE mais cette instruction est inconnue pour VBA.

Il existerait la solution de supprimer les accents de ma base de données, mais je n'ai pas envie car le contenu sera affiché sur des documents officiels.

Je suis ouvert à toutes vos propositions.

Merci beaucoup,
Cordialement,
Jojo.

[Basicnav]

Salut,

et si tu force tout en majuscule pour faire ta recherche ?

Code :

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

1
2
SELECT * FROM ta_table 
WHERE ton_critère = '" & UCase(sMichèle)

[jojo86]

Bonjour, et merci de ta reponse.
Helas j'avais deja essayé mais en forcant en majuscule, les accents restent.

Merci quand meme!!!

[Basicnav]

Re,

sinon, ici :http://access.developpez.com/faq/?pa...s#IgnAccentSQL
Tofalu propose une réponse, un peu lourde certe mais qui doit fonctionner sinon elle ne serait pas dans la FAQ...

PS : Plutôt en bas de pages sur le lien

[78chris]

Bonjour

Les jokers marchent en SQL :

Tu peux essayer Like "mich?le"

si toutefois c'est une recherche sur un mot précis.

Dans Access j'ai déjà créé une fonction personnalisée et l'ai utilisée dans une requête mais depuis Excel, je ne sais pas trop, même si VBA peut invoquer une fonction du module...

Autre piste l'imbrication de fonctions subsitute ...

[jojo86]

Salut,
Les jocker???
Il faudrait que je remplace les accent du therme recherché par des "?" ?

C'est ca qe tu veux dire?