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.