Pb avec fonction LIEN_HYPERTEXTE()

[Thibault]

Bonjour,

J'utilise une feuille excel comme un formulaire HTML pour saisir des parametres et les envoyer à une routine ASP sur un serveur WEB. (L'interet pour moi etant de pouvoir figer facilement des configurations de valeurs)

J'ai essayé la fonction LIEN_HYPERTEXTE() avec un truc du style
=LIEN_HYPERTEXTE(CONCATENER("http://";B3;"?";D16);"SUBMIT")

ou B3 est l'URL de ma page ASP et D16 une serie de parametres à transmettre sous la forme : PARAM1=VAL1&PARAM2=VAL2& etc ..."

J'ai 2 problemes:

PB 1: Il ya un effet de "rebond" c'est à dire lorsque on clique sur le lien la page ASP est appellée 2 fois . Pourquoi ????

PB 2: La fonction LIEN_HYPERTETE est limitée à 256 cars. et je depasse très souvent cette limite.

Conclusion: Quelqu'un connait il une autre façon d'appeler une page WEB en passant une URL qui peut être assez longue ??

Merci de votre aide.

 

[albert]

bonjour Thibault,
je ne suis pas spécialiste, je ne comprends pas toute ta question
essai ce code dans un module vba :


Sub TELECHARGE()




Sheets("Feuil1").Select


url = "URL;" & "http://pieniadz.hoga.pl/euribor.asp"
With ActiveSheet.QueryTables.Add(Connection:=url, Destination:=Range("A1"))
.Name = "DonnéesExternes_1"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlOverwriteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlAllTables
.WebFormatting = xlWebFormattingNone
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.Refresh BackgroundQuery:=False
End With
End Sub



il te suffira ensuite de modifier l'adresse url

albert

 

[Thibault]

Merci Albert,

J'ai essayé ton code, ca telecharge le contenu d'une page web dans la feuille excell. C'est interessant mais ce n'est pas ce je veux. Je veux juste ouvrir IE avec mon URL, c'est pas plus compliqué !

Je suis en train de regarder un truc du style:

URL = Cells(4, 4).Value
ActiveWorkbook.FollowHyperlink Address:=URL

Ca à l'air de fonctionner.

Tchao