Macro para navegar por internet

[grema90]

Tengo una macro que me abre ie y me abre una web https logueandome con user y password, pero después de eso necesito que navegue dentro de la pagina a otra dirección, el primer paso me lo hace con la web que adjunto pero el siguiente paso no, me echais una mano. Es decir despues de .Navigate range("I4").Value tengo que ir a .Navigate range("j4").Value, como construyo esta macro. (puedo jacerlo con ie o con cualquier otro navegador).

Un saludo.

IR()

Set obj = CreateObject("InternetExplorer.application")

With obj

.navigate Range("I4").Value

End sub

[franses]

Hola, no sé si te he entendido muy bien, prueba con esto haber si es lo que necesitas :

Range("I4").Select

Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True

Range("J4").Select

'ActiveCell.FormulaR1C1 = _

'"Ideas y aportes | Ayuda Excel"

Range("J4").Select

Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True

Un saludo.

[grema90]

la web a la que accedo es https, no se si eso influirá pero me da este error y no se loguea

ERROR

No ha sido posible crear una sesión para el usuario

Con este metodo no va.

Gracias

[franses]

lo he probado con páginas https y en una intranet con user y password, y funciona correctamente , podrías decirme si el problema lo tienes al entrar desde la propia página o si puedes acceder directamente a ella? Podrías subir un archivo o dar más datos al problema?

[grema90]

Creo que hay algo en la macro que no esta bien, puedes revisarla, pone dos veces

Range("J4").Select

'ActiveCell.FormulaR1C1 = _

'"Ideas y aportes | Ayuda Excel"

Range("J4").Select

esto esta bien?

Por defecto uso chrome no se si tiene algo que ver.

Un saludo

[grema90]

ahora funciona pero:

Sub nuevaweb()

Range("b5").Select

Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True

Range("b6").Select

ActiveCell.FormulaR1C1 = _

Range("b6").Select

Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True

End Sub

salen dos paginas, no nageva sobre la misma pagina sino que abre una y después otra pagina, no sobre la misma, aun así me vale.

Pero ahora me pasa otro problema, los dos hiperlinks son variable, es decir, son usser y pass diferentes y ademas van cambiando una vez al mes, como le indico al hiperlink que tome el valor de la celda. y la segunda dir tiene incluida la fecha que también es variable. Como hago esto?

[franses]

Prueba con esto:

Sub nuevaweb()

Dim myRange As Range

Set myRange = Range("B5:B6")



myRange.Select

If Selection.Hyperlinks.Count > 0 Then

Selection.Hyperlinks.Delete

  End If

  Range("B5").Select

  ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _

  ActiveCell.Value, TextToDisplay:=ActiveCell.Text


  Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True

  Range("B6").Select

  ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _

  ActiveCell.Value, TextToDisplay:=ActiveCell.Text


  Range("B6").Select

  Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True

  Range("B5").Select


End Sub


   [/CODE]