ajouter et sélectionner des activex controls via vba

Question

Bonjour à tous
Comment puis-je ajouter un activex control et l'activer avec du code vba, cad transformer la possibilté de sélectionner via le menu contrôles supplémentaires par du code vba. Je veux par ex. sélectionner microsoft date and time picker control 6.0 à l'aide vba et s'il n'y est pas l'ajouter
Merci d'avance

cs_candyraton · Answer

Dans le menu Outils, choisissez Références

tornero57 · Answer

La sélection devrait se faire par du code et non par le biais du menu Outils. En outre la sélection pour contrôles supplémentaires n'est pas possible dans Outils, Références. Je voudrais faire la sélection par du code. Comment peut-on ajouter une Référence et l'activer par du code vba. Merci d'avance

cs_candyraton · Answer

Les references dans outils et dans contrôles compl- sont referencés par windows. Tu peut faire ça en lançant un batch (.bat).(y a des codes dispos la dessus).
sinon manuellement (executer ou par le menu de vba)
ou par un installateur (type inno)
directement par le code, il doit suffire de mettre le fichier dans le dossier corespondant (comme \system32 pour les dll) et de le déclarer au registre (j'ai pas le code vba qui fait ça).
une fois referencée, tu n'a plus qu'à la déclarer dans ton code.
Si ça peut t'aider

cs_candyraton · Answer

le batch: mettre ça dans un fichier text:
@echo off
regsvr32.exe OleHat32.dll
cls
et le sauver sous.bat
l'executer
(regsvr32.exe -u OleHat32.dll pour desinstaller)
Tu peut le lancer depuis vba avec shell
j'espère que ça ira.

tornero57 · Answer

Merci pour ta réponse candyraton. Si je veux enregistrer plusieurs ddl ou ocx, puis-je les ajouter les uns après les autres en les séparant par un ; ou bien faut-il à chaque fois recommencer une nouvelle ligne avec regsvr32.exe dans le bat. Quel est le code pour lancer dans vba avec shell? merci d'avance

cs_candyraton · Answer

f1: Shell, fonction, exempleCet exemple utilise la fonction Shell pour exécuter une application indiquée par l'utilisateur. Sur Macintosh, le nom de l'unité par défaut est "HD", les éléments constitutifs du chemin d'accès étant séparés par des deux-points au lieu des barres obliques inversées. De même, vous devez remplacer \Windows par des dossiers Macintosh. ' Si vous attribuez la valeur 1 au deuxième argument, ' l'application s'ouvre à sa taille normale ' et devient l'application active. Dim RetVal ' Exécute la calculatrice. RetVal = Shell("C:\WINDOWS\CALC.EXE", 1) bonne chance

tornero57 · Answer

Merci encore candyraton, je pense pouvoir trvailler avec cela.

Ajouter et sélectionner des activex controls via vba

7 réponses

Votre réponse

Discussions similaires