Discussion :

[Lebijuu]

Bonjour
J’ai un petit soucis avec une requête SQL dans une macro Excel, j'essaye de récupérer une date dans Excel et qu'elle serve de condition pour la requête SQL. J'ai déjà essayé avec ça :

Code :

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

1
2
3
 
valeur = Cells(1, 6)
M.DATE_DEBUT_MVT = '" & valeur & "'

Mais ça ne fonctionne pas ..
Merci de votre aide.

[Invité]

tu parle de requête SQL mais tu ne précises pas le type de base de données.
Sql Access, Sql Serveur, Sql MySql,...?

[Lebijuu]

Je ne sais pas trop quel type c'est, je vous envoie mon code en espérant que vous puissiez y voir plus clair

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
 
   Set rs = New ADODB.Recordset
 
 
 
    Server_Name = "X" 
    Database_Name = "XX"
    User_ID = "XXX" 
    Password = "XXXX" 
    SQLStr = "SELECT S.NO_SEJOUR..... WHERE M.DATE_DEBUT_MVT = '" & valeur & "' "
 
 
    Set Cn = New ADODB.Connection
    Cn.Open "Driver={SQL Server};Server=" & Server_Name & ";Database=" & Database_Name & _
    ";Uid=" & User_ID & ";Pwd=" & Password & ";Extended Properties=""Excel 8.0;HDR=No;"";"
 
 
 
    rs.Open SQLStr, Cn, adOpenStatic

[Lebijuu]

Grosse communauté useless !!!

soluce :

Code :

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

1
2
3
4
 
Dim cell_value As Date    
cell_value = Sheets("Feuil1").Range("A35")
M.DATE_DEBUT_MVT = '" & cell_value & "'

cia

[Invité]

Grosse communauté useless !!!

soluce :

Code :

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

1
2
3
4
 
Dim cell_value As Date    
cell_value = Sheets("Feuil1").Range("A35")
M.DATE_DEBUT_MVT = '" & cell_value & "'

cia

comme tu es coutumier du fait

ceci dit dans ta requête je ne vois rien d'étrange comme je ne vois pas la jointure entre S et M