> Tous les forums > Forum Bureautique
 Ouvrir un lien internet
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
Saturnien
  Posté le 12/04/2010 @ 14:45 
Aller en bas de la page 
Astucien

Bonjour,

Comment agencer une macro pour faire apparaître le site suivant ?

http://www.mediadico.com/dictionnaire/lecture.asp/definition/AGILES/parle

Merci de votre aide

Cordialement

Publicité
Eric45
 Posté le 12/04/2010 à 18:48 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonjour à tous

Bonjour Saturnien

Essaie ceci :

Sub internet_explorer()
Dim RetVal
' Lance IE sur une URL spécifiée
RetVal = _
Shell("C:\Program Files\Internet Explorer\IEXPLORE.EXE http://www.excel-downloads.com", 1)
End Sub

Sub internet_explorer()

Dim RetVal

' Lance IE sur une URL spécifiée

RetVal = Shell("C:\Program Files\Internet Explorer\IEXPLORE.EXE http://www.mediadico.com/dictionnaire/lecture.asp/definition/AGILES/parle", 1)

End Sub

Eric

Saturnien
 Posté le 12/04/2010 à 19:15 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Bonjour,

Oui c'est bon, ça fonctionne.

Mais j'ai laisser le mot "ARGILES"en oubliant une précision.

Car le but rechercher, c'est d'avoir un mot dans une cellule et de pouvoir
déclencher ce lien avec ce mot.
Et le site donne directement la définition du mot par voix oral.

Cordialement

Mytå
 Posté le 12/04/2010 à 23:29 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Salut le forum

Avec un double-click sur le mot de la cellule

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Necessite d'activer la reference to Microsoft Internet Controls
Dim IE As InternetExplorer

Set IE = CreateObject("InternetExplorer.Application")

With IE
.Visible = True
.Silent = True
.Navigate "www.mediadico.com/dictionnaire/lecture.asp/definition/" & Target.Value & "/parle"
Do Until .ReadyState = READYSTATE_COMPLETE
DoEvents
Loop 'attend la fin du chargement
End With
Set IE = Nothing

Target.Offset(0, 1).Activate


End Sub

Mytå



Modifié par Mytå le 12/04/2010 23:36
Saturnien
 Posté le 13/04/2010 à 09:11 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Bonjour,

J'ai un problème à la ligne 2.

Dim IE As InternetExplorer.

Double clic sur le mot m'interesse aussi.

Mais je souhaiterais déclencher ce lien quand le mot apparait dans la cellule.

Mytå
 Posté le 13/04/2010 à 12:59 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Re le forum

Pour Dim IE As InternetExplorer, il faut activer la reference to Microsoft Internet Controls.

Pour cela dans VBA, Outils > Référence cocher Microsoft Internet Controls.

Pour l'automatisme, qu'est ce qui déclenche l'apparition du mot....

A te relire

Mytå

Mytå
 Posté le 13/04/2010 à 13:04 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Re le forum

Pour un déclenchement au changement de la cellule A1

Dans le module de la feuille

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A1")) Is Nothing Then
MsgBox "Click on " & Target.Address
End If
End Sub

Cela devrait t'aider pour ta demande

Mytå

Saturnien
 Posté le 13/04/2010 à 13:36 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Bonjour,

Ça ne fonctionne pas.

Peut être parceque je n'ai pas "Microsoft Internet Controls" ?

http://www.cijoint.fr/cjlink.php?file=cj201004/cijTnAk3Ao.xls

Mytå
 Posté le 14/04/2010 à 01:59 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Re le forum

Saturnien télécharge le fichier : Saturnien.xls

Mytå

Saturnien
 Posté le 14/04/2010 à 09:00 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

bonjour,

Pour le fonctionnement, ,c'est tout simplement parfait.

Par contre, je n'est plus le son sur internet.

Le son est revenu, je ne sais pas ce qui c'est passé

Merci de ton aide

Saturnien



Modifié par Saturnien le 14/04/2010 09:56
Saturnien
 Posté le 14/04/2010 à 11:07 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Re bonjour,

Je viens de l'essayer sur mon fichier original.

J'ai un petit souci, le lien démmarre trop tôt, j'aurais souhaité faire passer une macro son avant.

D'habitude, il suffit de mettre le nom de la macro dans le code, mais là ça ne fonctionne pas.

'Mauvais résultat
[AZ12:BJ12].Select
Selection.Copy
[J8].Select
ActiveSheet.Paste
[A1].Select
With Sheets("Listes")
For Each Cel In .Range("C1:C" & .Range("A65536").End(xlUp).Row)
If Cel.Text = [AZ18].Text Then
Li = Cel.Row
Defaite ' Macro Sub Defaite ()
Parle ' Macro Sub Parle (Texte As String) (Peut être à cause du texte entre parenthèse qui n'est pas comme les autres macros ?)

Exit For
End If
Next
End With
End If
End If
End If
[M46].Select
Application.EnableEvents = True
End Sub

Est-ce possible ?

Saturnien



Modifié par Saturnien le 14/04/2010 11:08
Mytå
 Posté le 14/04/2010 à 13:07 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Re le forum

Rien à faire avec ton bout de code

Il faut voir tes macros Defaite et Parle

Dans mon code de Sub Parle (Texte As String)

Texte est le mot à dire.

A te relire

Mytå

Mytå
 Posté le 14/04/2010 à 13:11 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Saturnien, si tu y arrive vraiment pas joint ton fichier en passant

par http://www.cijoint.fr/ et copie le lien dans ton message.

Je regarderai dans le courant de la journée, si personnes d'autres ne t'a aidé

Mytå

Saturnien
 Posté le 14/04/2010 à 14:35 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

re bonjour,

Voici le fichier :

http://www.cijoint.fr/cjlink.php?file=cj201004/cijhSL7sI7.xls

Cordialement

Saturnien

Page : [1] 
Page 1 sur 1

Vous devez être connecté pour participer à la discussion.
Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !
Recevoir PC Astuces par e-mail


La Lettre quotidienne +226 000 inscrits
Avec l'actu, des logiciels, des applis, des astuces, des bons plans, ...

Les bonnes affaires
Une fois par semaine, un récap des meilleurs offres.

Les fonds d'écran
De jolies photos pour personnaliser votre bureau. Une fois par semaine.

Les nouveaux Bons Plans
Des notifications pour ne pas rater les bons plans publiés sur le site.

Les bons plans du moment PC Astuces

Tous les Bons Plans
119,99 €Kit de 32 Go (2 x 16 Go) de mémoire DDR4 Crucial Ballistix 3200 MHz RGB à 119,99 €
Valable jusqu'au 05 Décembre

Amazon fait une promotion sur le kit de 32 Go (2x16 Go) de mémoire DDR4 Crucial Ballistix 3200 MHz CL16 RGB qui passe à 119,99 € livré gratuitement alors qu'on le trouve ailleurs à partir de 160 €. Vous pourrez personnaliser la palette de couleurs de votre ordinateur avec 16 LED RGB dans 8 zones sur chaque module.

Disponible également en rouge.


> Voir l'offre
13,99 €Jeu de société JUMANJI édition Rétro à 13,99 €
Valable jusqu'au 05 Décembre

Cdiscount fait une promotion sur le jeu de société JUMANJI en édition rétro qui passe à 13,99 € au lieu de 24,99 €.  Revivez les aventures et les embûches en tout genre du film de 1995 ; Traquer les lions, charger les rhinocéros, capturer les crocodiles et autres créatures dangereuses, dans le monde sauvage de Jumanji, vous êtes à un jet de dé du danger ! Un seul objectif dans le jeu Jumanji : traverser la jungle sain et sauf et atteindre en premier le centre du plateau.


> Voir l'offre
48,99 €SSD Western Digital Blue 500 Go à 48,99 €
Valable jusqu'au 04 Décembre

Cdiscount fait une promotion sur le SSD Western Digital Blue 500 Go qui passe à 48,99 € livré gratuitement. On le trouve ailleurs à partir de 60 €. Ce SSD à mémoire TLC offre des vitesses de 560 Mo/s en lecture et 530 Mo/s en écriture. La durée moyenne de fonctionnement avant panne est de 1,75 million d'heures, ce qui en fait un SSD extrêmement fiable. Il est garanti 5 ans.


> Voir l'offre

Sujets relatifs
impossible ouvrir lien dans mails
pbs de lien internet
lien internet
difficultée à ouvrir un lien
lien internet
lien excel internet, mot de passe compris
lien internet
lien Internet
ouvrir un .exe avec un lien hypertexte
Ouvrir un fichier avec un Lien Hypertext
Plus de sujets relatifs à Ouvrir un lien internet
 > Tous les forums > Forum Bureautique