macro faite sous excel2007

gaston gaston
1 621 contributions
Membre depuis le 01/03/2001
Envoyé le 13/02/2008 à 16:18


Bonjour,
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
carpe diem
TTB1 TTB1
5 302 contributions
Membre depuis le 15/03/2001
Envoyé le 13/02/2008 à 17:26


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

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

* Galeric
Anonyme
Envoyé le 13/02/2008 à 17:48

Bonjour,

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.


Discussion trop ancienne

Cette discussion a été automatiquement fermée car elle n'a plus reçue de nouveau message depuis trop longtemps.

Nous vous suggérons de créer un nouveau message

« Retour sur la liste des messages de ce forum