Discussion :

[Ju1.0]

Bonjour

Voilà mon cas :

Ni moi ni mon client ne somme informaticien (Ce qui veut tout et rien dire, j'en suis bien conscient). Il m'a fourni une base Access au format accdb, "bricolé maison", édité sous Access 2013. J'ai travaillé dessus, sans faire attention que ma version de Access est 2016. Au moment de la lui livrer, il ne peut pas exécuter d'extraction Excel, cad le seul truc qui l’intéresse

Vous remarquerez la qualité du livrable
En cause, les bibliothèques de références Excel et Word, à l'origine au format 15.0 chez lui au format 2013, et passées "de force" par ma version 2016 au format 16.0. Format que sa version 2013 ne connait pas. (Affiché "[Absent] Microsoft Excel 16.0 Object Library" dans la fenêtre de sélection de références)

J'ai reçu ce mail

J’ai contacté la hotline hier et après quelques vérifications m’a confirmé que nous ne pouvons pas installer des librairies 16.0 sur nos postes, la version d’Access validée chez nous étant la version 2013 seules les librairies 15.0 sont validées.

La solution consiste à convertir la base 2016 en 2013, à priori ce serait asses simple d’après la hotline.

Sauf que moi je ne trouve que la possibilité de revenir à des versions de fichier antérieur (.mdb), ce qui n'est pas pensable.

Sans aucun doute la solution est simple et je me sentirai bête en voyant sa simplicité et comprenant qu'elle était déjà à ma portée, mais pour l'instant, tel la saucisse, je sèche


J'en appelle donc à votre expertise / expérience / meilleure utilisation des moteurs de recherches, pour m'aider à sortir de cette mauvaise passe

Merci

[Jean-Philippe André]

Salut,

la solution pour contourner le problème est de passer par du late binding.

Il s'agit en fait de recoder une partie de tes lignes, pour pouvoir supprimer la librairie Excel en "dur".

Tu as probablement dans ton code des lignes du style

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim xlApp as Excel.Application
Dim xlwbk As Excel.Workbook
Set xlwbk = xlapp.Workbooks.Open()

l'idée est de supprimer toutes les références directes à Excel et de les transformer par des objets.
Et il faut ensuite passer par les fonctions GetObject() et CreateObject()
ici ca donnerait une ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Dim xlApp As Object
Dim xlwbk As Object
Set xlApp = CreateObject("Excel.Application")
Set xlwbk = xlapp.Workbooks.Open()

[Ju1.0]

Merci pour la réponse

Ca me fait me poser 2 questions :

Avec ça on peut supprimer la bibliothèque Excel des références ?
Ca marche de la même manière avec Word ?

Je teste ça dès que je peux, mais c'est pas pour tout de suite

[Jean-Philippe André]

Salut


oui et oui

[Ju1.0]

Salut

Après mes vacances, j'ai pu implémenter la solution chez moi. En supprimant les références aux bibliothèques Excel et Word, le code marche toujours


J'attends de tester ça chez le client avant de fermer la discution

Encore merci