Bonjour tout le monde

Je possède un programme en VB6 qui me crée des fichier excel et a la fin du programme avant la sauvegarde du fichier je voudrais que le programme coche directement un fichier xla

J'ai donc rajouté ce code

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Public NomBaseDonnees As String
Public NameUser As String
Public NameFileXLA As String
Public ListReferences As String
Public RefExists As String
 
NomBaseDonnees = ActiveWorkbook.Name
 
           If AddIns("RTEImport").Installed = True Then
           Else
            AddIns("RTEImport").Installed = True
           End If
 
           NameUser = Environ("UserName")
 
           Dim NameFileXLA As String
           NameFileXLA = "C:\Documents and Settings\" & NameUser & "\Application Data\Microsoft\AddIns\RTEImport.xla"
 
         If Dir(NameFileXLA) = "" Then
            MsgBox "XLA not found under: " & NameFileXLA
 
         Else
            Set ListReferences = Workbooks(NomBaseDonnees).VBProject.References
            RefExists = False
            For m = 1 To ListReferences.Count
                If ListReferences.Item(m).FullPath = NameFileXLA Then
                    RefExists = True
                    Exit For
                End If
            Next m


Mais apparament il n'aime pas le "ListReferences", il affiche une fenetre avec "compile error: Object required"
Comment feriez vous?