Bonjour, lors d'u export vers excel 2007 toutes mes données sont précédées d'un "'".
Voici mon code de connection :
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Dim Cn As ADODB.Connection
Dim Cd As ADODB.Command
Dim Rst As ADODB.Recordset
Dim Fichier As String
Cn = New ADODB.Connection
Cn.Open("Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Fichier & ";" & _
"Extended Properties=""Excel 8.0;HDR=No;"";")
Cd = New ADODB.Command
Cd.ActiveConnection = Cn
Cd.CommandText = "SELECT * FROM " & "[" & liaison & "$" & mar2 & "]"
Rst = New ADODB.Recordset
Rst.Open(Cd, , CursorTypeEnum.adOpenKeyset, LockTypeEnum.adLockOptimistic)
Rst(0).Value = "texte1"
Rst.Update()
Cn.Close()
Cn = Nothing
Cd = Nothing
Rst = Nothing
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Résultat dans mon fichier excel: 'texte1
Pouvez-vous m'aider?
Si j'utilise une connection avec createobject........., je n'ai pas ce probleme mais c'est beaucoup plus long
Merci d'avance
Partager