VBA-EXCEL erreur de caractère ' dans requete

Bonjour à tous

Me voilà confronté à n nouveau problème.

Je fais des requetes sql avec les querytables sur un fichier excel.

Pour résumer je récupère une liste de raison sociale de clients, que je met dans une listbox.

Puis je fais ensuite une requete utilisant la valeur de la listbox pour récupérer des infos sur le client choisit.

Voici un test pour mon code:

Code:

---

1 2 3 4 5 6 7 8

Sub essai() Dim req As String req = "SELECT `data$`.LIBART " & Chr(10) & _ "FROM `C:\base_suivi_ca`.`data$` `data$` " & Chr(10) & _ "WHERE (`data$`.RSCLTL ='" & fmenu.ListBox1.Value & "')" MsgBox req End Sub

---

Tout fonctionne bien sauf quand j'ai la raison sociale qui contient le caractère ' (apostrophe).

Je ne sais pas comment faire car ma requete ne marche pas quand j'ai un apostrophe dans la raison sociale et pourtant il faut bien que je trouve un moyen.

Si vous avez une solution, je suis preneur car je sèche sur ce coup.
Merci.

Bonsoir rafnt,

En fait, il faut doubler le caractère ' (apostrophe) en utilisant la fonction REPLACE.

Par conséquent, ta requête sera la suivante :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub essai() Dim req As String dim elmListe as string elmliste = replace(fmenu.ListBox1.Value, "'", "''") req = "SELECT `data$`.LIBART " & Chr(10) & _ "FROM `C:\base_suivi_ca`.`data$` `data$` " & Chr(10) & _ "WHERE (`data$`.RSCLTL ='" & elmListe & "')" MsgBox req End Sub

---

Je pense avoir répondu à ton problème.
Si cela ne fonctionne pas, tiens moi au courant.

Merci

A+

Merci beaucoup cela marche !!!