Bonjour à tous.

J'ai (forcément) un problème EXCEL sous VBA

Quand j'utilise ces quelques lignes de code:

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
Dim ConnectionString As String
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
 
 
    Set cn = New ADODB.Connection
    Set rs = New ADODB.Recordset
 
 
    ConnectionString = "Driver={Microsoft Excel Driver (*.xls)}; "
    ConnectionString = ConnectionString + "dbq=" & Application.ActiveWorkbook.FullName & "; "
    ConnectionString = ConnectionString + "ReadOnly=False;"
 
 
    cn.Provider = "MSDASQL"
    cn.ConnectionString = ConnectionString
    cn.Open
    rs.CursorLocation = adUseClient
    rs.Open "SELECT '" & Columns(1).Select & "' FROM [Retour UPS$]", cn, adOpenDynamic, adLockOptimistic
 
    MsgBox rs.RecordCount
 
 
    rs.Close
    cn.Close
    Set rs = Nothing
    Set cn = Nothing
Je me retrouve avec un recordset ou il y a le bon nombre d'enregistrement quand je fait rs.recordcount.

Le problème est que quand je regarde les données dans le rs.fields(0).value, je me retrouve avec toutes les données identiques "vrai" au lieu d'avoir une année ("2009" au format texte).

Merci d'avance aux personnes qui se pencheront sur mon problème.

A+