bonjour

J'ai une requête dans une fonction avec le calcul d'un nombre d'heures

Je voudrais pouvoir tester mon nombre d'heures pour savoir si j'affiche le résultat de ma requête ou non :


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
20
21
22
23
24
25
26
27
28
29
30
31
Sub semaine_sup25()
Dim DSN_ODBC As String
Dim CN As New ADODB.Connection
Dim RS As New ADODB.Recordset
Dim OrdreSelect As String
Dim Entreprise As String
Dim lundi As String
Dim dimanche As String
Dim Interim As String
Dim ma_plage_2 As String
Application.ScreenUpdating = False
DSN_ODBC_BRZ = Worksheets("Connect").Range("ADO").Value
CN.Open DSN_ODBC
 
 
'test nb heures comprises entre 36 et 43
' ma condition est :   36<=nb_h<=43
 
 
 
' contenu du select
OrdreSelect = "SELECT  (sum( nb_h)-35 ) FROM     HEURES   "
 
 
RS.Open OrdreSelect, CN, adOpenStatic, adLockOptimistic, adCmdText
Range("C43").CopyFromRecordset RS
RS.Close
CN.Close
Set RS = Nothing
Set CN = Nothing
End Sub
Merci par avance

Christophe