internet

[Mike]

Bonjour à tous

 

[Mike]

Pti probleme désolé

Voila, j'utilise le code suivant pour ouvrir internet explorer

Sub aller_sur_internet()
Dim IE As Object

Set IE = CreateObject('InternetExplorer.Application')
IE.Navigate '[url]www.google.fr'[/url]
IE.AddressBar = True
IE.Menubar = True
IE.Toolbar = True
IE.Width = 800
IE.Height = 600
IE.Resizable = True
IE.Visible = True
Set IE = Nothing

End Sub

Comme vous pouvez le voir
IE.Navigate 'www.google.fr'
me permet d'aller sur le page google

Mais est il possible de rentrer l'adresse manuellement dans la cellule C10 par exemple et que cela me le prenne en compte dans mon code

Merci d'avance

 

[derf44]

Salut!

 

[porcinet82]

Salut Mike,

Il te suffit simplement de modifier la ligne
IE.Navigate 'www.google.fr' par
IE.Navigate Cells(10, 3).Value

@+

 

[Mike]

Merci porcinet cela fonctionne parfaitement

J'essai de répéter l'opération avec une textbox mais cela ne fonctionne pas.

IE.Navigate Textbox1.Value

Ca ne doit pas etre ca

Pourrais tu m'aider?


Merci d'avance

Mike

 

[porcinet82]

re,

Je n'ai pas trop le temps donc je t'ai fait un exemple avec un fichier qui utilise le meme code que toi.

[file name=Mike.zip size=8423]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Mike.zip[/file]

Je serais de retour ce soir, si tu as d'autres questions ou un autre soucis n'hesite pas.

@+

 

[Mike]

Merci porcinet82

Ca fonctionne parfaitement.