Discussion :

[chris67]

Bonjour tout le monde,

J'ai un léger problème au niveau des contrôles ActiveX

J'ai réalisé une application sous excel 2000 pour le travail.
Un userform me permet de saisir plein de données et donc de les organiser dans le classeur Excel jusque la tout va bien.

Le soucis que je rencontre est le suivant:

J'ai voulu insérer la fonction webcam
j'ai donc un bouton qui me permet d'ouvrir un autre userform dans lequel on trouve les outils suivants:
video preview et device manager


ET en fait lorsque je clique sur le bouton pour appeler l'userform "webcam" j'obtiens le message suivant:

Cette application est sur le point d'initialiser les contrôles ActiveX potentiellement non sûrs. Si la source de ce fichier est fiable, cliquez Ok pour que les contrôles soient initialisés à l'aide des paramètres d'espace de travail en cours.

Et ce message réapparait 3 fois d'affilé quand je clique sur OK avant que l'userfom ne s'ouvre.

A partir de la tout fonctionne normalement mais j'aimerais pouvoir me débarrasser de ce message et des 3 cliques nécessaires.

J'ai déja tenté application.displayalerts = false
marche pas

et j'ai trouvé sur le net une histoire de modification de HKEY dans windows mais sa me parle pas des masses!

Merci d'avance pour vos réponses

[Jean-Pierre49]

Bonjour,


Essais

Procédure pour déclarer un composant ActiveX

I---------------------------
Rentrer dans le registre :
Démarrer – Exécuter – Ouvrir « regedit » - OK

Aller dans le Dossier
HKEY_CURRENT_USER\SOFTWARE\Microsoft\Office\Common

ClickDroit sur Common – Nouveau – clé
Renommer Security et ENTER pour valider le nom

ClickDroit sur Security – Nouveau – et cliquer sur Valeur D WORD
Renommer UFIControls et ENTER pour valider le nom

DoubleClick sur UFIControls
Dans Données de la valeur indiquer 1 et OK


Aller dans le Dossier
HKEY_CURRENT_USER\Software\Microsoft\VBA

ClickDroit sur VBA – Nouveau – clé
Renommer Security et ENTER pour valider le nom

ClickDroit sur Security – Nouveau – et cliquer sur Valeur D WORD
Renommer LoadControlsInForms et ENTER pour valider le nom

DoubleClick sur LoadControlsInForms
Dans Données de la valeur indiquer 1 et OK
I---------------------------


Ceci sera à faire sur chaque poste devant faire fonctionner ton apllication

Bon courage

[chris67]

Super!!!!

Merci beaucoup, sa marche plus aucun message d'erreur.

[danbo52]

Bonjour et merci aussi pour la clé.

Est ce qu'il est possible via Excel VBa de faire cette manip, sachant la prudence sécuritaire qu'il faut y apporter ?

I'am novice !

Merci