Discussion :

[man_coef]

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 :

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

On error goto

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

Merci pour votre aide.

Emmanuel.

[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

[man_coef]

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 :

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

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.

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

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

C:\Windows\SysWOW64\

cordialement,

Didier

[Theze]

Bonsoir à toutes et tous,

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

[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

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 :

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

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

[man_coef]

Bonjour!

Très bonne remarque :

Code :

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

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!