internet

M

Mike

Guest

• 27 Février 2006

• #2

Pti probleme désolé

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

Code:

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

 

Vote positif 0 Vote négatif

D

derf44

Guest

• 27 Février 2006

• #3

Salut!

 

Vote positif 0 Vote négatif

porcinet82

XLDnaute Barbatruc

• 27 Février 2006

• #4

Salut Mike,

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

@+

 

Vote positif 0 Vote négatif

M

Mike

Guest

• 27 Février 2006

• #5

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

 

Vote positif 0 Vote négatif

porcinet82

XLDnaute Barbatruc

• 27 Février 2006

• #6

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.

@+

 

Pièces jointes

• Mike.zip

  8.2 KB · Affichages: 36
• Mike.zip

  8.2 KB · Affichages: 32
• Mike.zip

  8.2 KB · Affichages: 33

Vote positif 0 Vote négatif

M

Mike

Guest

• 27 Février 2006

• #7

Merci porcinet82

Ca fonctionne parfaitement.

 

Vote positif 0 Vote négatif