Contrairement à mon habitude, je te propose une solution
complète pour résoudre ton problème.
Option Explicit
Sub CadeauDuSchtroumphFarceur()
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim row, col As Integer
Dim ws As Worksheet
Set db = OpenDatabase("chemin\fichier_access.mdb")
Set rs = db.OpenRecordset("SELECT * FROM grosstable")
row = 0
Do While Not rs.EOF
If row = 0 Then
Set ws = Sheets.Add(, Sheets(Sheets.Count))
End If
For col = 0 To 1
ws.Cells(row + 1, col + 1).Value = rs.Fields(col).Value
Next
rs.MoveNext
row = row + 1
If row >= 1000 Then row = 0
Loop
Set ws = Nothing
rs.Close
db.Close
Set rs = Nothing
Set db = Nothing
End Sub
En contre partie, je te demande :
- de copier tout ça dans un module VBA dans Excel.
- de cocher
Microsoft DAO X.Y Object Library dans le menu
Outils/Références de l'éditeur VBA dans Excel.
- de tenter de comprendre tout le code en t'aidant de l'aide de VBA.
- de l'adapter à ton besoin particulier
- de poster ici, soit les questions qui resteraient en suspend, soit un ptit mot pour nous dire que tu as tout compris
![;) ;)]()
et que maintenant, toi aussi, tu aideras les autres en VBA sur PPC.