Discussion :

[ami18noam]

[/B]Bonjour à tous,

Je débute en VBA, et j'ai un probleme avec un de mes codes.

J'ai une feuille excel (Clients) qui contient des numéros de téléphone en colonne L.
J'ai paramétrer dans la cellule un lien hypertexte (LIEN_HYPERTEXTE(sip:;0467657405) pour qu'en appuyant sur le numéro de téléphone, un logiciel d'appel (Xlite) s'ouvre et compose le numéro.
Je souhaite simplement crée un bouton "appeler" qui activerait le lien hypertexte depuis mon userform.

Ci dessous mon code du bouton qui ne fonctionne pas

Code :

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

1
2
3
Private Sub APPELER_Click()
ActiveWorkbook.FollowHyperlink Address:=[Sheets("Clients").Range("L2")], NewWindow:=True
End Sub

Comment activer dans la feuille "Clients" la cellule L2 depuis un bouton ?
Ou placer ce code ?

Merci beaucoup pour votre aide.

[jijie]

essaye ça :

Code :

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

Sheets("client").Range("L2").Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True

[ami18noam]

Merci pour ta réponse jijie mais malheureusement ton code ne fonctionne pas j'ai une erreur :

Erreur d’exécution 9 : l'indice n'appartient pas à la sélection

Si quelqu'un a une idée, ou si je dois rajouter quelque chose dans mon code.

On m'a donné une autre solution qui ne marche pas non plus :

Code :

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

ActiveWorksheet.FollowHyperlink Address:=Range("H2")

Erreur 424 : Objet requis.

Je n'y comprend rien je débute, si vous pouvez m'aider...

Merci

Ci joint mon fichier je vous prie trouver moi une solution cela fait 2 jours et deux nuits que je recherche sur les forums.

http://cjoint.com/?CHwaTsHTtLy

Merci d'avance.

[jijie]

ça devrait fonctionner! ce n'est pas ton logicielle qui pose problème avec excel?

lorsque tu clique avec ta souris sur ta cellule ton programme s'exécute ou pas?

tu as essayé avec l'enregistreur de macro?

[ami18noam]

Il n'y a aucun problème justement quand je cliques sur le lien hypertexte avec ma souris le logiciel se déclenche et appel le client.
C'est cette action de cliquer sur le lien que je souhaites réaliser depuis le bouton "appeler"

Concernant l'enregistreur de macro je ne sais pas de quoi il s'agit.
Tu peux m'expliquer s'il te plait.

Merci beaucoup pour tes réponses rapides.

[jijie]

alors ds option de ton classeur excel dans "option" et standard tu
coche afficher l'onglet développeur dans le ruban !

ensuite tu auras un onglet développeur sur ton classeur, sur cet onglet tu clique sur enregistrer une macro, et tu actionne avec ta souris ce que tu souhaite faire et lorsque tu as terminé tu clique sur arrêter l'enregistrement et dans un module tu regarde le code et tu nous le montre !

[Marc-L]

Bonjour,

je lui ai déjà conseillé l'Enregistreur de macros dans son premier sujet dans le forum Excel …

Merci pour ta réponse jijie mais malheureusement ton code ne fonctionne pas j'ai une erreur :

Erreur d’exécution 9 : l'indice n'appartient pas à la sélection

Si quelqu'un a une idée, ou si je dois rajouter quelque chose dans mon code.



On m'a donné une autre solution qui ne marche pas non plus :

Code :

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

1
2
ActiveWorksheet.FollowHyperlink Address:=Range("H2")
Erreur 424 : Objet requis.

Je n'y comprend rien je débute, si vous pouvez m'aider...

Merci

L'erreur 9, le code de jijie ne comportant pas d'erreur, veut dire qu'il n'y a pas de vrai lien hypertexte dans la cellule ‼
c'est à dire créé via le menu ou CTRL + K …

Il faut juste penser à vérifier que la cellule comporte bien un lien avant de l'appliquer, du genre
If Sheets("client").[L2].Hyperlinks.Count Then …


Quant à l'erreur 424, c'est clairement indiqué dans le message et son aide, donc grossière erreur de programmation ‼
Rien qu'en consultant l'aide et son exemple de la méthode FollowHyperlink,
on peut donc y lire qu'elle n'est pas liée à un objet Worksheet !

Maintenant pour déclencher cette méthode via un bouton d'un UserForm,
il n'y a aucunement besoin de lien hypertexte dans la feuille de calcul
mais juste d'un numéro de téléphone … Simplement bien passer les paramètres de la commande et du numéro, du genre
ActiveWorkbook.FollowHyperlink "commande du logiciel ici" & [L2].text, NewWindow:=True …


__________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

[ami18noam]

J'ai trouvé la solution !!!
Merci a toi Marc-L

En fait j'ai analyser le fonctionnement du lien hypertexte dans excel et je l'ai reproduit dans vba

Code :

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

ActiveWorkbook.FollowHyperlink "sip:0" & [L2].text, NewWindow:=True

Un grand merci à vous pour votre indulgence !!!
On a tous démarrer un jour...