[XL-2007] Referencer un classeur dans un autre par code vba

bonjour a tous

une idée a adapter
exemple

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
 
sub AjouteRéférence()
 'nom du classeur auquel renvoie la référence :
 '   "D:\OfficeVBA\Progs\ProtectUnprotect\Protege.xla"
 'nom du projet VBA de ce classeur :
 '   "Protege(Protege.xla)"
 
  ThisWorkbook.VBProject.References.AddFromFile _
    "D:\OfficeVBA\Progs\ProtectUnprotect\Protege.xla"
 end sub
 
sub EnleveReferenceEtFerme()
 With ThisWorkbook.VBProject.References
  .Remove .Item("protege")
 End With
 Workbooks("protege.xla").Close
 end sub

celui ci est prevu pour installer et cocher la reference d'un xla mais ca peut bien etre pour un xls

au plaisir