Discussion :

[Drost]

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

[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.

[Drost]

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 :

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

[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

[patbou]

bonjour,
avec
option explicite en debut de code tu n as pas une variable non declaré

[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 !