Discussion :

[rafnt]

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 :

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

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.

[lacorse33]

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 :

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

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+

[rafnt]

Merci beaucoup cela marche !!!