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?
Partager