br44
XLDnaute Impliqué
Bonjour le forum ,
Voilà j'ai une macro qui me permetrait de faire une copie dans un classeur fermer .le seul problème est que l'auteur de cette macro à oublier ce me dir comment on active "Microsfot ActiceX data objet 2.x" .
Vous troverer ci-joint la macro . Serait-il possible aussi que l'on me donne une petite explication de texte de manière à se que je comprenne comment elle fonctionne . Un grand merci par avance à tous ceux qui prendront le temps de lire se message . Br 44
Voici la macro:
la référence "microsoft activeX data Object 2.x doit être activée; tu trouveras démo en PJ
Citation:
Sub exporter_br44()
Dim source As ADODB.Connection
Dim rqte As ADODB.Recordset
Dim Fichier As String
dim cptr as Byte
Fichier = ThisWorkbook.Path & "\S.xls"
Set source = New ADODB.Connection
source.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Fichier & ";" & _
"Extended Properties=""Excel 8.0;HDR=No;"";"
Set rqte = New ADODB.Recordset
rqte.Open "SELECT * FROM cible;", source, adOpenKeyset, adLockOptimistic
For cptr = 0 To 5
rqte.Fields(cptr).Value = Cells(27, cptr + 2).Value
Next cptr
rqte.Update
source.Close
Set source = Nothing
Set comd = Nothing
Set rqte = Nothing
End Sub
P.S : si vous dèsire le fichier joint faites le moi savoir S.V.P merci
br44
Voilà j'ai une macro qui me permetrait de faire une copie dans un classeur fermer .le seul problème est que l'auteur de cette macro à oublier ce me dir comment on active "Microsfot ActiceX data objet 2.x" .
Vous troverer ci-joint la macro . Serait-il possible aussi que l'on me donne une petite explication de texte de manière à se que je comprenne comment elle fonctionne . Un grand merci par avance à tous ceux qui prendront le temps de lire se message . Br 44
Voici la macro:
la référence "microsoft activeX data Object 2.x doit être activée; tu trouveras démo en PJ
Citation:
Sub exporter_br44()
Dim source As ADODB.Connection
Dim rqte As ADODB.Recordset
Dim Fichier As String
dim cptr as Byte
Fichier = ThisWorkbook.Path & "\S.xls"
Set source = New ADODB.Connection
source.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Fichier & ";" & _
"Extended Properties=""Excel 8.0;HDR=No;"";"
Set rqte = New ADODB.Recordset
rqte.Open "SELECT * FROM cible;", source, adOpenKeyset, adLockOptimistic
For cptr = 0 To 5
rqte.Fields(cptr).Value = Cells(27, cptr + 2).Value
Next cptr
rqte.Update
source.Close
Set source = Nothing
Set comd = Nothing
Set rqte = Nothing
End Sub
P.S : si vous dèsire le fichier joint faites le moi savoir S.V.P merci
br44
