VBA excel importer données access - VB/VBA/VBS - Programmation
Marsh Posté le 20-03-2007 à 16:21:27
Private Sub CommandButton1_Click()
Dim MonAccess As New Access.Application
Dim I As Long, J As Long
Dim db2 As DAO.Database
Dim db5 As DAO.Database
Dim rs5 As DAO.Recordset
I = 3
Set db2 = MonAccess.OpenDatabase("C:\Documents and Settings\p034351\Desktop\base incident\DATA CTL INCIDENT.mdb" )
Set rs5 = db2.OpenRecordset("MOUVEMENT" )
Do Until rs5.EOF
For J = 0 To rs5.Fields.Count - 1
ActiveSheet.Cells(I, J + 1) = "'" & rs5.Fields(J)
Next J
I = I + 1
rs5.MoveNext
Loop
End Sub
Marsh Posté le 20-03-2007 à 14:24:59
bonjour a tous,
j'ai un petit soucis de rien du tout
j'ai un classeur excel tout vide avec juste un bouton
et j'aimerais qu'en cliquant sur ce bouton cela m'importe le contenu complet d'une table d'une base access
voila mon code
pour le moment le probleme se situe au niveau de l'ouverture de la base
quelqu'un pourrait-il me dire ce qui cloche
merci d'avance
Subkiller