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?

[jojo86]

Bonsoir,


Like "mich?le" ne fonctionne pas...

Il n'y a pas d'erreur, mais aucun résultats retourné...

[Basicnav]

Bonjour,

deux dernière proposition pour moi... après je sèche..

Code :

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

SELECT * FROM Table1 WHERE prénom LIKE '*mich[èée]le*'

ceci fonctionne dans Acces, la syntaxe devrait être acceptée dans Excel, sinon office devrait revoir leur règles pour une bonne harmonie entre leur applications (ça sent l'embauche pour moi là...non ?)

Sinon, sur le net j'ai aussi trouvé ça :

avec un LIKE :

Code :

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

1
2
3
4
sCriteria = "Lycée général Sanchez"
sCriteria = Replace(sCriteria, "é", "?")
sCriteria = Replace(sCriteria, "è", "?")
sSQL = "SELECT ... WHERE `Raison` LIKE '" & sCriteria & "' "

tu trouvera Lycée, LYCEE, etc

Tiens nous au courant, ça m'interesse et je pense pas être le seul.

[jojo86]

Bon et bien écoutez... Je me suis arraché tous mes cheveux !

Voici mon code complet !
Les résultats de la requête sont affichés dans une ListBox sur le formulaire nomé FResultat.
L'affichage du résultat se fait via un bouton.

Bref voici les commandes :

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
39
40
41
42
43
44
45
 
Public Cn As New ADODB.Connection
Public Rst As New ADODB.Recordset
 
Sub ConnexionBase()
Dim Fichier As String
'Call DeconnexionBase
    '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
    'Définit la requête.
    Set Rst = New ADODB.Recordset
End Sub
 
Sub DeconnexionBase()
On Error Resume Next
Rst.Close
Set Rst = Nothing
Cn.Close
Set Cn = Nothing
End Sub
 
Sub RequeteRechercher(Nom As String)
Dim Requete As String
Requete = "SELECT Désignation FROM [Table$] WHERE Désignation LIKE '*[éèe]quip[éèe]*'"
Call ConnexionBase
Rst.Open Requete, Cn, adOpenStatic
FResultat.ListeResultat.Clear
Do While Not Rst.EOF
    If Len(Rst.Fields(0).Value) > 0 Then
        'Ajout des résultat dans un ListeBox du formulaire FResultat.
        FResultat.ListeResultat.AddItem (Rst.Fields(0).Value)
    End If
    Rst.MoveNext
Loop
Call DeconnexionBase
FResultat.show
End Sub

Merci de votre aide.

[jojo86]

Bonsoir,
La methode visant a remplacer les accent par [eéè] fonctionne mais je dois mettre les %.

Code :

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

1
2
Code :
SELECT * FROM Table1 WHERE prénom LIKE '%mich[èée]le%'

J'ai donc fais une fonction qui me remplace les e ou é ou è... Par le systeme de crochets.

Merci et bonne nuit!