S
slimsamfr
Guest
bonjour,
je recopier ton code et adapter le chemin du fichier fermé, mais le fichier xls d'envoi bloque et je suis obligé de faire un Ctrl+ALT+Suppr pour debloquer excel.
Dis moi ou se trouve le pb si tu a une idée.
Merci de ton aide.
A+
Sub exportDonneeDansCellule()
Dim Cn As ADODB.Connection
Dim Cd As ADODB.Command
Dim Rst As ADODB.Recordset
Dim Fichier As String
Fichier = 'C:\\repertoire\\monClasseur.xls' 'adapter le chemin des fichiers fermés
Set Cn = New ADODB.Connection
Cn.Open 'Provider=Microsoft.Jet.OLEDB.4.0;' & _
'Data Source=' & Fichier & ';' & _
'Extended Properties=''Excel 8.0;HDR=No;'';'
Set Cd = New ADODB.Command
Cd.ActiveConnection = Cn
Cd.CommandText = 'SELECT * from `Feuil1$A1:A1`'
Set Rst = New ADODB.Recordset
Rst.Open Cd, , adOpenKeyset, adLockOptimistic
Rst(0).Value = ' donnée test'
Rst.Update
Cn.Close
Set Cn = Nothing
Set Cd = Nothing
Set Rst = Nothing
End Sub
je recopier ton code et adapter le chemin du fichier fermé, mais le fichier xls d'envoi bloque et je suis obligé de faire un Ctrl+ALT+Suppr pour debloquer excel.
Dis moi ou se trouve le pb si tu a une idée.
Merci de ton aide.
A+
Sub exportDonneeDansCellule()
Dim Cn As ADODB.Connection
Dim Cd As ADODB.Command
Dim Rst As ADODB.Recordset
Dim Fichier As String
Fichier = 'C:\\repertoire\\monClasseur.xls' 'adapter le chemin des fichiers fermés
Set Cn = New ADODB.Connection
Cn.Open 'Provider=Microsoft.Jet.OLEDB.4.0;' & _
'Data Source=' & Fichier & ';' & _
'Extended Properties=''Excel 8.0;HDR=No;'';'
Set Cd = New ADODB.Command
Cd.ActiveConnection = Cn
Cd.CommandText = 'SELECT * from `Feuil1$A1:A1`'
Set Rst = New ADODB.Recordset
Rst.Open Cd, , adOpenKeyset, adLockOptimistic
Rst(0).Value = ' donnée test'
Rst.Update
Cn.Close
Set Cn = Nothing
Set Cd = Nothing
Set Rst = Nothing
End Sub