Problème de Library

Version imprimable

17/10/2007, 12h33
Drost

Problème de Library

Bonjour,
Je viens de faire quelques modifs sur un fichier ( ajout d'une colonne et donc modification du code pour l'affectation des valeurs dans les cellules).
Et depuis ce matin j'ai un message :

"Object Library invalid or contains references to object definitions that could not be found."

Mon code est bon et j'ai bien vérifié les modifs que je viens de faire et il ne me semble pas qu'il y est de problème a ce niveau la...

Quelqu'un aurait il une idée de ce qui ne fonctionne pas?

Cdlt Drost
17/10/2007, 13h03
cavo789

As-tu vérifié si les références vers d'autres librairies sont OK ? Si tu vois "missing", c'est qu'il y a un blème.

Les library on l'air ok^^

Je comprend pas du tout ou cela peut venir peut etre qu'il me manque une librairie active :
Voici les librairy actives : VB for application
Microsoft Excel 11.0 object library
OLE Automation
Microsoft office 11.0 object library
Microsoft forms 2.0 object library

voici mon code : Vous pourrez peut etre me dire quel librairy je dois laisser ouverte!

Code:

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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
Sub validation()
 
 
Sheets("Expense Report").Select
Cells(4, 2).Select
Selection.End(xlDown).Select
fin = ActiveCell.Row
 
For i = fin To 4 Step -1
If Cells(i, 1).Value = "True" Then
 
nom = "CB" & Cells(i, 20).Value
    ActiveSheet.Shapes(nom).Select
    Selection.Delete
 
    Rows(i).Select
    Selection.Cut
 
 
     Sheets("DBase").Select
    Rows("5:5").Select
    Selection.Insert Shift:=xlDown
    Selection.Interior.ColorIndex = xlNone
 
    Range("A5").Select
    Selection.Delete Shift:=xlToLeft
 
    Sheets("Expense Report").Select
    Rows(i).Delete
 
 
End If
 
Next i
 Chemin = "R:\Expenses Report\"
ChDir Chemin
    Workbooks.Open Filename:= _
    Chemin & "Expense Board.xls", _
    UpdateLinks:=0
 
   Sheets("Solde Personne").Select
    Range("C7").Select
    ActiveSheet.PivotTables("PivotTable1").PivotCache.Refresh
 
 
        Sheets("Solde Compte").Select
    Range("C7").Select
    ActiveSheet.PivotTables("PivotTable2").PivotCache.Refresh
 
 
        Sheets("Solde Client").Select
    Range("C7").Select
    ActiveSheet.PivotTables("PivotTable3").PivotCache.Refresh
 
    ActiveWorkbook.Save
    ActiveWorkbook.Close
 
    Sheets("DBase").Select
End Sub

17/10/2007, 14h36
Drost

Re^^
Apparement cela vient de mes check box
Faut il une reference spécifique pour les activer?
Faut il créer une Class pour les faires fonctionner? de quel maniere procede t'on?

Merci d'avance
17/10/2007, 18h18
patbou

bonjour,
avec
option explicite en debut de code tu n as pas une variable non declaré
18/10/2007, 10h14
Drost

Bijour,

J'ai contourné le problème ! J'ai copiez mes macros dans un nouveau fichier ou j'ai refait les mêmes feuilles et EUREKA^^ ca marche comme avant !