VBA excel importer données access

VBA excel importer données access - VB/VBA/VBS - Programmation

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
 

Code :
  1. Private Sub CommandButton1_Click()
  2. Dim MonAccess As New Access.Application
  3. Dim I As Long, J As Long
  4. Dim db2 As DAO.Database
  5. Dim db5 As DAO.Database
  6. Dim rs5 As DAO.Recordset
  7. I = 3
  8. Set db2 = MonAccess.OpenCurrentDatabase("C:\Documents and Settings\p034351\Desktop\base incident\DATA CTL INCIDENT.mdb" )
  9. Set rs5 = db2.OpenRecordset("MOUVEMENT" )
  10. Do Until rs5.EOF
  11. For J = 0 To rs5.Fields.Count - 1
  12.  
  13.                            ActiveSheet.Cells(I, J + 1) = "'" & rs5.Fields(J)
  14.          
  15.  
  16. Next J
  17. I = I + 1
  18.      rs5.MoveNext
  19. Loop
  20. End Sub


 
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  :hello:

Reply

Marsh Posté le 20-03-2007 à 14:24:59   

Reply

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


Message édité par jpcheck le 20-03-2007 à 16:21:54
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed