Discussion :

[totobobo]

bnojour,
je me tourne vers vous car j'ai un petit soucis de gestion d'objet calendar(ou autre d'ailleurs).
voila, j'ai crée un fichier avec une feuille de saisie qui utilise calendar.
ce fichier excel est utilisé par plusieurs personnes et donc plusieurs PC.

sur les PC avec le module contenant calendar en bibliotheque cela fonctionne très bien.

lorsqu'on ouvre le fichier avec un PC qui n'a pas ce module, excel détecte un module manquant et en plus il enleve l'objet de la feuille!!!

ce qui fait que plus tard lorsqu'on utilise ce fichier avec un pc (n'importe lequel) ce sont les variables de ce module qui créent des erreurs.

pouvez vous m'aider pour ce problème?

d'avance merci

[zyhack]

Bonsoir

peut être en agissant au niveau de l'ouverture du classeur

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub Workbook_Open()
  If Not ReferenceActive("Word") Then
    If Not ActiverReference("msword.olb") Then
      MsgBox "référence non utilisable contacter mr xxx"
      ThisWorkbook.Close
    End If
  End If
 
End Sub

je ne connais pas le nom de la référence pour le calendar donc j'ai utilisé celle de word donc "Word" et "msword.olb" sont à remplacer

et dans un module ces deux fonctions

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
Function ReferenceActive(Nom As String) As Boolean
    Dim i As Integer
    Dim NbreRef As Integer
 
    NbreRef = ThisWorkbook.VBProject.References.Count
 
    For i = 1 To NbreRef
        If ThisWorkbook.VBProject.References(i).Name = Nom Then
            ReferenceActive = True
            Exit Function
        End If
    Next i
End Function
 
Function ActiverReference(NomComplet As String) As Boolean
    On Error GoTo erreur
    ThisWorkbook.VBProject.References.AddFromFile NomComplet
    ActiverReference = True
    Exit Function
erreur:
    ActiverReference = False
End Function