Gérer un contrôle additionnel manquant MSCOMCT2.OCX

Version imprimable

27/09/2011, 09h52
man_coef

Gérer un contrôle additionnel manquant MSCOMCT2.OCX

Bonjour.

J’ai développé un ptit programme qui nécessite un contrôle additionnel nommé « MSCOMCT2.OCX ».

Mon problème est que mon fichier est en réseau et qu’il peut être ouvert sur n’importe quel PC même ceux ne possédant pas ce contrôle. Si cela arrive, mon fichier est « cassé » et si on le réouvre sur un PC intégrant bien MSCOMCT2.OCX, c’est trop tard, le mal est fait…

Comment faire pour gérer ça, pour que le fichier ne se « casse » pas si MSCOMCT2.OCX n’est pas installé ? Est-il possible de faire la vérification à l’ouverture du fichier, de gérer ça avec un

Code:

On error goto

, afficher un message d’erreur et quitter le fichier sans le casser ?

Merci pour votre aide.

Emmanuel.
27/09/2011, 12h40
Jean-Pierre49

Bonjour,

Je ne pense pas que tu ais d’autres solution que :
Soit d’installer MSCOMCT2.OCX, fait une recherche sur le forum tu trouveras comment faire

Soit de supprimer le contrôle de ton projet.

Bon courage

J'ai trouvé une solution. A l'ouverture du fichier, je teste si l'OCX est présent ou pas dans le répertoire system32 :
Code:

1 2 3 4 5 'TESTER SI LE MODULE COMPLEMENTAIRE EXISTE If Dir("C:\WINDOWS\system32\MSCOMCT2.OCX", vbDirectory) = "" Then Rep = MsgBox("Message...", vbCritical, "Module complémentaire manquant") ThisWorkbook.Close SaveChanges:=False End If
Si le fichier n'existe pas, je mets un message à l'utilisateur pour expliquer comment l'installer.

Le seul souci c'est si le fichier existe mais n'est pas inscrit dans la base de registre de l'ordinateur (ce qui serait vraiment tordu).

Merci tout de même pour votre réponse.

Emmanuel.

27/09/2011, 17h01
Didier Gonard

Bonjour,

Méfies-toi si des postes passent en Windows 7, si c'est du 32 bit, le chemin sera différent...

Code:

C:\Windows\SysWOW64\

cordialement,

Didier
27/09/2011, 20h53
Theze

Bonsoir à toutes et tous,

Citation:

Méfies-toi si des postes passent en Windows 7, si c'est du 32 bit, le chemin sera différent...

Didier, tu veux dire du 64 bits je pense ?
J'ai Windows 7 64 bits et effectivement, tu as raison, cet ocx se trouve bien dans le chemin que tu as indiqué (C:\Windows\SysWOW64\).

Hervé.
27/09/2011, 23h30
Didier Gonard

Exact pour l'OS , Hervé

en fait, je me suis très mal exprimé, je parlais de Windows 7 64 bits avec un office 32 bits :D

Du coup tu fais tourner une appli 32 bits sous un OS 64*... et la DLL n'est pas là où l'on peut l'attendre.

et se trouve effectivement ici :

Code:

C:\Windows\SysWOW64\

Ceci est dû à : WOW64

http://msdn.microsoft.com/fr-fr/libr...=vs.85%29.aspx

Mais Windows 7 existe aussi en 32 bits..... pour simplifier les choses

* ce qui est ma config et probablement la tienne d'après ce que tu indiques...

cordialement,

Didier

Bonjour!

Très bonne remarque :

Code:

1
2
3
4
5
    'TESTER SI LE MODULE COMPLEMENTAIRE EXISTE
    If Dir("C:\WINDOWS\system32\MSCOMCT2.OCX", vbDirectory) = "" and Dir("C:\Windows\SysWOW64\MSCOMCT2.OCX", vbDirectory) = "" Then
        Rep = MsgBox("Message...", vbCritical, "Module complémentaire manquant")
        ThisWorkbook.Close SaveChanges:=False
    End If

Merci et bonne journée!