Discussion :

[aguill20]

Bonjour,
j'aimerais pouvoir insérer dans mon tableau excel une macro me permettant d'afficher le MSComm (icone téléphone) ou aussi appelé Microsoft Communications Control.
Je suis passer par l'enregistreur de macro :

Code :

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

1
2
3
Sub Macro1()
    ActiveSheet.OLEObjects.Add(ClassType:="MSCOMMLib.MSComm.1", Link:=False, DisplayAsIcon:=False, Left:=1454, Top:=243, Width:=29, Height:=29).Select
End Sub

cependant j'ai un message d'erreur qui s'affiche lorsque je lance ma macro : "Erreur d'exécution '1004':
La méthode Select de la classe OLEObject a échoué."
J'aurais besoin d'un coup de main
Merci d'avance

[joe.levrai]

Bonjour,

déjà en enlevant l'instruction .Select située à la fin, ça raconte quoi ?

[aguill20]

Il y automatiquement erreur de compilation avec écrit "Attendu : ="

[Phil'oche]

Essaie sans les parenthèses

Code :

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

ActiveSheet.OLEObjects.Add ClassType:="MSCOMMLib.MSComm.1", Link:=False, DisplayAsIcon:=False, Left:=1454, Top:=243, Width:=29, Height:=29

Ou avec en écrivant :

Code :

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

Set x = ActiveSheet.OLEObjects.Add (ClassType:="MSCOMMLib.MSComm.1", Link:=False, DisplayAsIcon:=False, Left:=1454, Top:=243, Width:=29, Height:=29)

[Invité]

Bonsoir,
Arrives tu an le faisant manuellement avec la sourie? Si oui utilise l'enregistreur de macros!
Essais d'ajouter un UserForm dans ton projet et ajoutes lui ton contrôle! Il est for à parier qu'il n'est pas registré correctement

[aguill20]

Re bonjour,
merci Phil'oche mais j'ai un dernier probleme il se passe quelque chose de plutot etrange, lorsque je clique sur mon bouton pour lancer la macro que tu m'as donné j'ai a peine le temps de voir telephone apparaitre qu'il s'en va aussitot apres..

[aguill20]

Oui dysorthographie j'arrive a le faire avec ma souris cependant le code enregistré par l'enregistreur ne s'execute pas une fois que l'enregistreur est coupé il me ramene automatiquement vers un message d'erreur.. (cf. les messages précédents)

[aguill20]

j'aurais re besoin de votre aide afin de mettre grace a ma macro le controle du telephone sur la partie objet du userform mais je n'y arrives pas et l'enregistreur de macro ne fonctionne plus une fois dans la partie visual basic..

[unparia]

Bonjour

afin de mettre grace a ma macro le controle du telephone sur la partie objet du userform

Voilà qu'il s'agit maintenant d'un userform.

mais je n'y arrives pas

Reçois-tu un message d'erreur en mode édition lorsque tu tentes d'insérer ce contrôle ? Si oui : lequel ?
Ne serait-ce pas un message du genre " Le sujet n'est pas approuvé pour l'action spécifiée" ?

Si tel est le message reçu, c'est normal car ce contrôle est un activex dont VBA/Excel n'accepte pas nativement l'utilisation (pour des raisons de sécurité, principalement)
Si tu tiens à l'utiliser à tout prix, il te faudra le trouver dans la base de registre et en modifier la valeur ! Je ne te le conseille absolument pas (et encore moins si tu n'es pas d'un niveau suffisamment avancé pour tripotailler la base de registre) !
Garde à l'esprit que Excel est un tableur et pas autre chose.

[Invité]

Bonjour,
en soit MSCOM est un contrôle qui n'est visible q'en mode création! car il n'est modifiable que par le click d'un commendButon par exemple!

le fonctionnement que tu décris est on ne peut plus normale!

[aguill20]

Cependant sur mon autre ordinateur(sous XP) je le vois apparaitre sans le mode création..

[patricktoulon]

re
si il n'est visible qu'en mode creation ca m'etonnerais qu'il ai la propriété select

ps :robert j'aurais besoins de toi je vais ouvrir un post dans general VBA merci

[Invité]

j'ai créé mon propre contrôle en VB6 , j'ai défini qu'il était visible qu'en mode développement. il est visible sur Xp pas sur Win7????

[Invité]

Bonjour Patrick,
Ok pour moi

[aguill20]

Oui je le vois sans le mode création sous la forme d'un carré aux contours noirs avec une croix rouge a l'interieur mais il comporte le "=INCORPORER("MSCOMMLib.MSComm.1";"")"