Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

incompatibilite access / excel

1 réponse
Avatar
agnes
Bonjour,

Mon coll=E8gue a d=E9velopp=E9 une application sous access 97=20
(sous le systeme d'exploitation 98). Il fait appel aux=20
r=E9f=E9rences : Excel8.OLB (Version 8.0), Vbapplication=20
Vba332.dll (version 3.0.7019)pour faire un export vers=20
excel (ouverture d'un fichier excel avec des listes=20
d=E9roulante)=20

Or sur mon poste : systeme exploitation XP Pro , Excel=20
97, Access 97, l'export vers excel ne se fait pas (excel=20
ne s'ouvre pas : erreur : "Erreur d'ex=E9cution -214741851=20
(8001015) la method ADD de l'objet 'Workbooks' a echoue"

Dim MonExcel As Excel.Application
Dim Monclasseur As Excel.Workbook

'ouverture Excel cr=E9ation du fichier
Set MonExcel =3D CreateObject("Excel.application")

MonExcel.Workbooks.Add
MonExcel.Visible =3D True

Set Monclasseur =3D MonExcel.ActiveWorkbook
Monclasseur.Worksheets.Add
Set MaFeuille =3D Monclasseur.ActiveSheet


'g=E9n=E9ration des listes sur une feuille 2
'cr=E9ation d'une feuille param=E9tre
Set nvlleFeuille =3D Monclasseur.Sheets.Add
(Type:=3DxlWorksheet)

J'ai verifi=E9 mes r=E9f=E9rences :=20
Excel8.OLB (Version 8.0), Vbapplication Vba332.dll=20
(version 3.0.7019)

Je ne comprend pas pourquoi l'application fonctionne sur=20
Windows 98 et non sur XP ?

Merci de votre aide

Agn=E8s

1 réponse

Avatar
Denis Taglia
Bonjour,
Je ne suis pas sûr pour cause de config un peu differente. J'ai bien
access97 mais excel XP pour la méthode Add de la feuille ça fonctionne si je
modifie les dim
Dim MonExcel As Object
Dim Monclasseur As Object
C'est peut-être un bout de piste
Denis