romika
Messages postés8Date d'inscriptionmardi 21 juin 2005StatutMembreDernière intervention 8 août 2005
-
27 juin 2005 à 09:24
romika
Messages postés8Date d'inscriptionmardi 21 juin 2005StatutMembreDernière intervention 8 août 2005
-
27 juin 2005 à 15:37
Bonjour à tous,
j'ai encore un souci, comme d'habitude
dans un fichier A je saisie des données que je voudrais envoyer dans un fichier B fermé en appuyant sur un bouton "envoi"
romika
Messages postés8Date d'inscriptionmardi 21 juin 2005StatutMembreDernière intervention 8 août 2005 27 juin 2005 à 15:37
rebonjour,
La question était:
dans un fichier A je saisie des données que je voudrais envoyer dans un fichier B fermé en appuyant sur un bouton "envoi"
une fois cliqué, les données dans le fichier A disparaissent et en retapant d'autres et e recliquant sur envoi les nouvelles données vinnent se rajouter aux autres dans le fichier B
j'ai trouvé la réponse mais ça ne vient pas de moi....
Bonne journée
voilà:
'necessite d'activer la reference Microsoft ActiveX Data Objects x.x Library
Dim Cn As ADODB.Connection
Dim Rs As ADODB.Recordset
Dim Fichier As String, Cible As String, Feuille As String
Dim i As Integer, j As Integer
Fichier = ThisWorkbook.Path & "\fichierB.xls"
Feuille = "Feuil1$" 'attention a ne pas oublier le "$"
Set Cn = New ADODB.Connection
Cn.Open "Provider = Microsoft.Jet.OLEDB.4.0;" & _
" data source=" & Fichier & ";" & _
" extended properties=""Excel 8.0;"""
;
Cible = "SELECT * FROM [" & Feuille & "];"
Set Rs = New Recordset
Rs.Open Cible, Cn, adOpenKeyset, adLockOptimistic
For j = 2 To Range("A65536").End(xlUp).Row 'nb de lignes à transferer
With Rs
.AddNew For i 0 To 4 'nb de colonnes a transferer ( index 1ere colonne0)
.Fields(i) = Cells(j, i + 1)
Next i
.Update
End With