calendar module complémentaire

Version imprimable

03/06/2010, 07h59
totobobo

calendar module complémentaire

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
03/06/2010, 18h06
totobobo

en fait, j'utilise l'objet calendar dans une macro.
quand j'ouvre le fichier avec un PC qui n'a pas Dll correspondant installé (et je n'ai pas le droit admin pour le faire) l'objet calendar est effacé de l'userform.
à partir de là les parametres qui font référence à calendar provoquent évidemment des erreurs.

ce que je voudrai c'est que excel ne m'efface pas l'objet.
voila j'espere que j'ai été clair cette fois ci

:oops:

Bonsoir

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

Code:

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:

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

05/06/2010, 16h06
AlainTech

Bonjour totobobo,

Ta question ressemble à:

Je voudrais un tableau dans mon salon sans avoir à en acheter (ou recevoir) un.

Comment veux-tu que le Calendar soit présent sur ton UserForm s'il n'est pas présent sur l'ordinateur?
05/06/2010, 17h36
JPierreM

Bonjour à tous,

Je m'incruste un peu mais si Calendar n'est pas présent, peut-on l'ajouter et si oui comment?

Merci
06/06/2010, 10h18
totobobo

merci pour vos reponses.

zihack je vais essayer ta solution cela permettra de limiter les dégats.
je dis je vais car je dois le faire sur un ordi qui n'a pas ce oxc (mscal.ocx)

pour repondre à alaintech:
le fichier que j'ai crée est utilisé par plusieurs personnes et plusieurs PC.
donc cela fonctionne bien sur certain PC pas sur d'autres(ceux qui n'ont pas le module installé).
et je n'ai pas le droit admin pour ajouter le module, d'ou mon problème.

sinon de mon coté, en visitant le forum, j'ai essayé d'ajouter le fichier correspondant CàD "MSCAL.OCX" par VBA donc et par le code suivant:

Code:

ThisWorkbook.VBProject.References.AddFromFile "MSCAL.OCX"

résultat:
dans le menu / outils/ references
j'ai bien la reference de calendar cochée et donc disponible....
mais je ne peux pas l'ajouter dans la boite à outils pour pouvoir ensuite l'utiliser dans les useforms (je ne le vois pas dans la liste)...

y-a-t-il autre choses à faire pour que ca marche???

:roll:
06/06/2010, 11h01
mercatog

En mode création de ton usf, tu clique droit sur la boite à outils (contrôles).
menu contextuel: Contrôles supplémentaires
tu coche Contrôle calendrier
06/06/2010, 11h23
totobobo

c'est ce que je dois faire mais je ne vois pas calendrier à l'affichage (pas de ligne correspondante)!!!!
ou alors je suis miro, je vais checker encore une fois
06/06/2010, 13h18
AlainTech

Décidément, tu t'entêtes.

Comment veux-tu accrocher ton tableau au mur sans le posséder?

Tout ce que tu fais avec VBA c'est de dessiner l'emplacement du tableau.

Tant que MSCAL.OCX ne sera pas présent physiquement sur le PC, tu auras beau faire toute les manipulations imaginables, ça ne le créera pas.

Si MSCAL n'est pas présent, regarde si la référence "Date and time Picker" n'y est pas.
Ce pourrait être une alternative valable.

Edit:
Es-tu certain que le fichier MSCAL.OCX n'est pas présent sur les PC en question?
Quelle est la version d'Office installée sur ces PC?
Pour les versions récentes (après 97) le fichier se trouve dans Program Files\Microsoft Office\OFFICExx
S'il est présent mais pas utilisable, c'est, probablement, qu'il n'a pas été enregistré.
Dis-nous ce qu'il en est.
06/06/2010, 15h13
kiki29

Salut, pour téléchargement et install sous XP voir http://www.developpez.net/forums/d58...-mscomct2-ocx/

pour l'installation sous Vista voir
http://www.developpez.net/forums/d57...-mscomctl-ocx/
Sous W7
Copier mscomct2.ocx dans C:\Windows\SysWOW64\ et non Sys32
Ouvrir une fenetre de commande DOS CMD par un clic droit et "ouvrir en tant qu'Administrateur"
TaperC:\windows\syswow64\regsvr32 /u mscomct2.ocx
06/06/2010, 15h42
totobobo

slt kiki29
pour info je ne suis pas admin et donc impossible d'installer quoi que ce soit...
trop facile sinon 8O

pour alaintech
c'est office 2002
normalement "mscal.ocx" est installé par défaut dans le répertoire que tu as écrit.
sauf que manque de pot il n'y est pas sur certain PC.
j'ai fait la remarque à l'admin logiciel (celui qui a le pouvoir de modifier les programmes (ajout).
il m'a envoyé peter en disant que si je voulais ce module il faut que je commande office 2003!!!! c'est du n'importe quoi..

donc pour palier à ce défaut il faut que je détecte sur les PC la présence de MSCAL.
soit il y est et je ne fais rien
soit il n'y est pas et la je l'installe (sinon le code(référence) est modifié par excel et cela ne marche plus sur aucun PC)

sauf que maintenant après avoir installé MSCAL.OCX, je vois dans outils/référence que le module est installé
mais quand je veux ajouter le controle "calendrier" dans la boite à outil, je ne vois pas le controle "calendrier" et donc je ne peux pas l'ajouter dans la boite à outils.
ce qui fait que je ne peux pas mettre le controle sur les userforms
ce qui fait que les variables faisant reference à ce controle me provoquent des erreurs... normal
06/06/2010, 17h39
AlainTech

Si MSCAL n'est pas présent, cherche si tu trouves MSCOMCT2.ocx.
Si oui, il y a peut-être une solution.
06/06/2010, 22h02
totobobo

ok alain
si ca ne marche pas j'essaye avec monthview
mais ca ne me satisfait qu'à moitié car ça ne résoud pas le Pb mais ça le contourne..
07/06/2010, 08h44
babaothe

salut

le problème se poserait de manière similaire avec mscomct2.ocx. Cet ocx est en effet supporté par Vista, mais, absent de vista à la base, devrait être distribué avec l'application (pour les PC dotés de vista). Et tu dis ne pas en avoir le droit .
08/06/2010, 21h56
totobobo

c'est exact le mscomct2.ocx n'est pas present.
donc impossible d'utiliser monthview
je vais juste gerer le test de la presence du fichier mscal.
en effet le code
ThisWorkbook.VBProject.References.AddFromFile NomComplet
necessite egalement d'etre en admin pour que cela fonctionne(je crois)

alors je vais en rester la
merci à tous
12/06/2010, 16h09
AlainTech

Citation:

Envoyé par totobobo

en effet le code
ThisWorkbook.VBProject.References.AddFromFile NomComplet
necessite egalement d'etre en admin pour que cela fonctionne(je crois)

Non!

Admin ou pas, il faut d'abord que le fichier soit présent pour pouvoir y faire référence.

Par contre, je suis presque certain qu'il est possible de faire référence à un fichier présent dans un répertoire où tu as les droits d'écriture.
Essaye donc de copier mscal.ocx dans un répertoire accessible et d'ajouter, manuellement d'abord, la référence à ce fichier.