Bonjour,

Sur ordinateur j’ai une fenêtre windows internet ouvert sur google et une fenêtre excel

Je souhaite lier en direct excel et internet
la Fenêtre windows internet ouvert sur google on écrire (météo)
Bouton lance macro
Sur un tableau d’excel feuil1 cellule a1 = météo
Ou
la fenêtre windows internet ouvert sur google on écrire (journal)
sur l’uniform vba textbox1 = journal ’pour l’utilisiser dans le classeur

Merci pour toutes les réponses.

PS : je souhaite faire un lien direct ,comme uniform et un feuil,meis la cette web uniform ou web feuille
"Sheets("utilitaire").Range("a30").Value = TextBox1.Value"


Petit bout qui me permet de fait inverse et qui ouvre une nouvelle fenêtre



Sub RechercheVBAExcel()
'Déclaration des variables
Dim IE As New InternetExplorer
Dim IEDoc As HTMLDocument
Dim InputGoogleZoneTexte As HTMLInputElement
Dim InputGoogleBouton As HTMLInputElement

'Chargement d'une page Web Google
IE.navigate "www.google.fr"

'Affichage de la fenêtre IE
IE.Visible = True

'On attend le chargement complet de la page
'WaitIE IE
newHour = Hour(Now())
newMinute = Minute(Now())
newSecond = Second(Now()) + 5
waitTime = TimeSerial(newHour, newMinute, newSecond)
Application.Wait waitTime


'On pointe le membre Document
Set IEDoc = IE.document

'On pointe notre Zone de texte
Set InputGoogleZoneTexte = IEDoc.all("q")

'On définit le texte que l'on souhaite placer à l'intérieur
InputGoogleZoneTexte.Value = "Méteo"

'On attend la fin de la recherche
'WaitIE IE
newHour = Hour(Now())
newMinute = Minute(Now())
newSecond = Second(Now()) + 5
waitTime = TimeSerial(newHour, newMinute, newSecond)
Application.Wait waitTime


'On libère les variables
Set IE = Nothing
Set IEDoc = Nothing
End Sub