Ouverture classeur dans procédure vba

Bonjour =E0 tous,

Encore un souci pour venir =E0 bout de mon projet. J'ai=20
besoin d'ouvrir une feuille .xls sur l'appel du=20
Workbook_BeforeClose d'une autre. Il se trouve que la=20
feuille fait partie d'un lot dont les noms changent en=20
fonction du projet et je voudrais =E9viter de donner un nom=20
fig=E9 dans le code. Je l'ai fait pour fermer des feuilles,=20
en cr=E9er, =E7a marche, mais l=E0, je n'y parviens pas. En=20
outre, pour simplifier le probl=E8me, la (les) feuilles =E0=20
ouvrir sont sur une machine en r=E9seau pour laquelle j'ai=20
d=E9clar=E9 un lecteur r=E9seau. Pour plus de claret=E9 car ce=20
matin je suis dans le brouillard, voici =E0 suivre le code=20
que j'utilise :

Dim Chr As String

Application.DisplayAlerts =3D False

Chr =3D Range("'Param=E8tres projet'!B5")
(((((=E7a, =E7a ne marche pas)))))))))))
ChDrive "W:\CREEP SCOOL"
Application.Dialogs(xlDialogOpen).Show
Workbook.Open filname:=3D(Chr & ".xls"), updatelinks:=3D3
Calculate
ActiveWorkbook.Saved =3D True=20
ActiveWorkbook.Close

((((((=E7a, =E7a marche)))))))))))))))))) =20
Chr =3D Range("'Param=E8tres projet'!B5")
ChDrive "S:"=20
If Dir("S:\Suivi CREEP SCHOOL", vbDirectory) =3D "" Then
Application.Dialogs(xlDialogSaveAs).Show (Chr & ".xls")
Else
ChDir "S:\Suivi CREEP SCHOOL"
ActiveWorkbook.SaveAs Filename:=3D(Chr & ".xls")
ActiveWorkbook.Saved =3D True=20
End If

Mille mercis =E0 qui pourrait me sortir de cette orni=E8re.

Bien cordialement,