lecture-ecriture dans un classeur fermé ne fonctionne plus depuis la mise à jour de win7

Bonjour =C3=A0 tous,

Me revoil=C3=A0 depuis la derni=C3=A8re fois datant de mars 2013(MichD).
Je me repr=C3=A9sente:
Soignant en milieu hospitalier je d=C3=A9veloppe depuis 2002 des applicatio=
ns de gestion(plannings, stocks, inscriptions en ligne =C3=A0 des=20

formations,etc) pour mes coll=C3=A8gues aides soignantes,infirmi=C3=A8res, =
r=C3=A9=C3=A9ducateurs, medico-techniques, m=C3=A9decins,etc.

Ces applications =C3=A9crites en VBA sous excel 2002-2003:

1- s'ouvrent en copie =C3=A0 partir d'un script(donc pas de probl=C3=A9mes =
de partage):
on error resume next
set xl=3Dcreateobject("Excel.Application")=20
xl.visible=3Dtrue=20
xl.workbooks.add("\\Nas-y\intersite$\Outils-HCL\PROGRAMMATION DES SOINS\Pro=
g\F-Synth-HG-2013-B1.xlsm")=20
set xl=3Dnothing=20

2- utilisent la m=C3=A9thode des ADO pour lire et =C3=A9crire dans des clas=
seurs mis en partage faisant office de bases de donn=C3=A9es

3- depuis l'arriv=C3=A9e d'excel 2010 dans mon =C3=A9tablissement elles fon=
ctionnent encore sans probl=C3=A8me en mode compatibilit=C3=A9

MAIS depuis le 13/10/2017, date de deux mises a jour Windows l'=C3=A9critur=
e(exportation) et la lecture(importation) dans les classeurs ferm=C3=A9s ne=
fonctionne plus.
Ce qui est bizarre c'est qu'il n'y a aucune message d'erreur.

J'ai tent=C3=A9 de r=C3=A9parer:
en convertissant les classeurs(source et base de donn=C3=A9es,les deux en =
xlsm ) au format excel 2010 a partir de la commande Fichier-Imformations-Co=
nvertir.
en m=C3=AAme temps j'ai mis =C3=A0 jour les r=C3=A9f=C3=A9rences:
Source.Open "Provider=3DMicrosoft.Jet.OLEDB.4.0;Data Source=3D" & Chemin & =
ClasseurDeDestination & ";Extended Properties=3D""Excel 8.0;HDR=3DNo;IMEX=
=3D1"";"=20
en
Source.Open "Provider=3DMicrosoft.ACE.OLEDB.12.0;Data Source=3D" & Chemin &=
ClasseurDeDestination & ";Extended Properties=3D""Excel 12.0;HDR=3DNo;IMEX=
=3D1"";"=20

Les noms des mises a jour que j'incrimine se trouvent ci dessous.

Je serai super heureux si vous pouviez m'aider car j'ai beau chercher et fa=
ire des essais le probl=C3=A8me s'incruste et je n'en dors plus!

De plus tous les utilisateurs sont en rades et attendent la r=C3=A9paration=
avec impatience!!!.

Merci =C3=A0 tous pour votre aide
'**************************************************************************=
*****
2017-10 Mise =C3=A0 jour qualitative de s=C3=A9curit=C3=A9 uniquement pour =
Windows 7 pour les syst=C3=A8mes bas=C3=A9s sur x64 (KB4041678)

Date d'installation=C2=A0: =E2=80=8E16/=E2=80=8E10/=E2=80=8E2017 14:10
=C3=89tat de l'installation=C2=A0: R=C3=A9ussite
Type de mise =C3=A0 jour=C2=A0: Important

Un probl=C3=A8me de s=C3=A9curit=C3=A9 qui pourrait avoir un impact sur vot=
re syst=C3=A8me a =C3=A9t=C3=A9 identifi=C3=A9 dans un produit logiciel Mic=
rosoft. Vous pouvez renforcer la protection de votre syst=C3=A8me en instal=
lant cette mise =C3=A0 jour de Microsoft. Pour consulter la liste compl=C3=
=A8te des probl=C3=A8mes r=C3=A9solus par cette mise =C3=A0 jour et en savo=
ir plus, reportez-vous =C3=A0 l'article correspondant de la Base de connais=
sances Microsoft. Une fois la mise =C3=A0 jour install=C3=A9e, vous serez p=
eut-=C3=AAtre amen=C3=A9 =C3=A0 red=C3=A9marrer l=E2=80=99ordinateur.

Plus d'informations=C2=A0:=20
http://support.microsoft.com/help/4041678

Aide et support=C2=A0:=20
http://support.microsoft.com/help/4041678
*********************************************************************
2017-10 Correctif cumulatif mensuel de qualit=C3=A9 pour Windows 7 pour les=
syst=C3=A8mes bas=C3=A9s sur x64 (KB4041681)
Date d'installation=C2=A0: =E2=80=8E16/=E2=80=8E10/=E2=80=8E2017 14:10
=C3=89tat de l'installation=C2=A0: R=C3=A9ussite
Type de mise =C3=A0 jour=C2=A0: Important
Un probl=C3=A8me de s=C3=A9curit=C3=A9 qui pourrait avoir un impact sur vot=
re syst=C3=A8me a =C3=A9t=C3=A9 identifi=C3=A9 dans un produit logiciel Mic=
rosoft. Vous pouvez renforcer la protection de votre syst=C3=A8me en instal=
lant cette mise =C3=A0 jour de Microsoft. Pour consulter la liste compl=C3=
=A8te des probl=C3=A8mes r=C3=A9solus par cette mise =C3=A0 jour et en savo=
ir plus, reportez-vous =C3=A0 l'article correspondant de la Base de connais=
sances Microsoft. Une fois la mise =C3=A0 jour install=C3=A9e, vous serez p=
eut-=C3=AAtre amen=C3=A9 =C3=A0 red=C3=A9marrer l=E2=80=99ordinateur.

Plus d'informations=C2=A0:=20
http://support.microsoft.com/help/4041681

Aide et support=C2=A0:=20
http://support.microsoft.com/help/4041681