Bonjour à tous

Parce que fait à l'arrache , j'ai récupéré ce code et fais un copier/coller sauvage !
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
 With oCnx
        .Provider = "Microsoft.ACE.OLEDB.12.0"
        .ConnectionString = "Data Source=" & ThisWorkbook.Path & "\" & ThisWorkbook.Name & ";" & "Extended Properties=""Excel 12.0 Xml;HDR=Yes"";"
        .Open
    End With
Mais on remarque l'utilisation des doubles quotes (") pour "Extended Properties=""Excel 12.0 Xml;HDR=Yes"";" et bien sûr le doublement des doubles quotes (Voir explication sur les forums)

Pour éviter ce problème, il suffit d'utiliser des simples quotes

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
sPathFile = ThisWorkbook.Path & "\" & ThisWorkbook.Name
    With oCnx
        .Provider = "Microsoft.ACE.OLEDB.12.0"
        .ConnectionString = "Data Source=" & sPathFile & ";Extended Properties='Excel 12.0 Xml;HDR=Yes';"
        .Open
    End With
Cela est valable aussi dans les requêtes SQL . Privilégiez ce type d’écriture

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
sSql = "SELECT * FROM table 
WHERE field1 IN (`stringValue1’, `stringValue2’)"