Problème Macro Xls 2003 - Xls 2010

Version imprimable

15/11/2012, 12h43
marco56

Problème Macro Xls 2003 - Xls 2010

Bonjour,

J'ai lu cette discussion.

Je développe un petit fichier excel pour mon service en entreprise. Le fichier est développer sous 2003, pour des utilisateurs pour certains, en 2003, d'autre en 2007 et d'autres en 2010.

lorsque le fichier est généré, a la fin le message d'erreur 'cannot find project or library" apparaît. Ce message apparaît au moment ou je protège le fichier (suppression d'un des modules).

Le message n'apparaît pas quand je fais tourner le fichier sur mon ordinateur, mais quand certains de mes collègues le font. Lorsque le message apparaît, il faut que j'aille dans référence et décocher Missing : Micorsoft Web component 11.0

Comment faire, pour éviter que cela ne se produise?

Merci pour votre aide

Salut,
voici un code de Frederic SIGONNEAU

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
Attribute VB_Name = "ReparerReferencesManquantes"
 
'Essayer de réinstaller les références manquantes d'un projet
 
Sub AddMissingRefs()
'examine les références d'un projet, repère celles qui
'sont déclarées manquantes et essaye de les réinstaller
'à tester
Dim LesRefs As Object, i&, Msg$, Cpt&, Rep&, Mnq&, Chemin$, Nom$
 
  Set LesRefs = ThisWorkbook.VBProject.References
  For i = 1 To LesRefs.Count
    With LesRefs(i)
      If .IsBroken Then
        Mnq = Mnq + 1: Chemin = .FullPath: Nom = .Name
        LesRefs.Remove LesRefs.Item(.Name)
        If Dir(Chemin) = "" Then
          Msg = "La librairie " & Nom & " est manquante et le fichier" & vbLf
          Msg = Msg & "'" & Chemin & "'" & vbLf
          Msg = Msg & "ne peut être trouvé pour l'installer."
          MsgBox Msg, vbCritical
          Cpt = Cpt + 1
        Else
          LesRefs.AddFromFile Chemin
          Rep = Rep + 1
        End If
      End If
    End With
  Next i
 
  If Mnq > 0 Then
    If Cpt > 0 Then Msg = Cpt & " référence(s) toujours manquante(s)"
    If Rep > 0 Then Msg = Msg & Rep & "référence(s) réinstallée(s)"
  End If
 
End Sub 'fs

sinon essaye en LATE BINDING

15/11/2012, 15h07
kiki29

Salut, juste en complément d'info, si l'Early / Late Binding t'intrigues voir ici.
17/11/2012, 01h30
marco56

Merci beaucoup,

Je m'y remet et je vois ce que ça donne ;)