macro faite sous excel2007

13/02 à 16:18Bonjour,
un copain qui est sous excel2007 m'a donné une macro et je n'arrive pas à la faire fonctionner sous excel2002
voici la macro en question:
Sub V_janvier()

'importe les ventes de janvier dans excel

With ActiveSheet.ListObjects.Add(SourceType:=0, Source:=Array(Array( _
"ODBC;DSN=MS Access Database;DBQ=C:\Program Files\perso\wino.mdb;DefaultDir=C:\Program Files\perso;DriverId=281;FIL=MS Ac" _
), Array("cess;MaxBufferSize=2048;PageTimeout=5;")), Destination:=Range( _
"$A$4")).QueryTable
.CommandText = Array( _
"SELECT Year(Ventes.Date), Month(Ventes.Date), Ventes.Catégorie, Sum(Ventes.Total), Sum(Ventes.Qté)" & Chr(13) & "" & Chr(10) & "FROM `C:\Program Files\perso\wino.mdb`.Ventes Ventes" & Chr(13) & "" & Chr(10) & "WHERE (Year(Ventes.Date)=2008) AND (Mo" _
, _
"nth(Ventes.Date)=1)" & Chr(13) & "" & Chr(10) & "GROUP BY Year(Ventes.Date), Month(Ventes.Date), Ventes.Catégorie" _
)
.RowNumbers = True
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = False
.ListObject.DisplayName = "Tableau_juju_2"
.Refresh BackgroundQuery:=True
End With

End Sub

ça coince à l'endroit marqué en gras: erreur 438
et impossible de comprendre le pourquoi. Chez un autre copain qui a excel 2003, ça fonctionne

----------
le bonheur n'est pas au bout du chemin, il EST le chemin
http://i22.servimg.com/u/f22/11/12/87/18/22-1810.jpg

13/02 à 17:26Je suppose que ton ficher wino.mdb est bien sur ton PC.

T'as configuré l'ODBC ?
Tu peux aussi mettre à jour le MDAC.

----------
Pendons les écolos pendant qu'il y a encore des arbres.

13/02 à 17:48Bonjour,

Je suppose que ton ficher wino.mdb est bien sur ton PC.

et bien à cet endroit : C:\Program Files\perso\wino.mdb

L'erreur 438 correspond au message suivant :

Cet objet ne gère pas cette propriété ou méthode.