Salut Damien,
Ta question est intéressante, mais pas si facile à mon avis.
Je te propose de tester la procédure suivante :
Private Sub CommandButton1_Click()
Dim SH As Double, RCH As String
'Récupérer le contenu de A1 en lettres minuscules
RCH = LCase(Trim(Range("A1").Text))
'Remplacer les espaces par un signe +
RCH = Replace(RCH, " ", "+")
'Passer en revue les caractères accentués pour les convertir en codes Google
RCH = Replace(RCH, "é", "%C3%A9")
RCH = Replace(RCH, "è", "%C3%A8")
RCH = Replace(RCH, "ô", "%C3%B4")
RCH = Replace(RCH, "â", "%C3%A2")
'... (série à compléter)
'Compléter la chaîne de recherche avec l'adresse de Google
RCH = "http://www.google.fr/search?q=" & RCH & "&ie=UTF-8&hl=fr&btnG=Recherche+Google&meta=lr%3Dlang_fr"
'Appeler Internet Explorer avec la chaîne de recherche et lui laisser la main.
SH = Shell("c:\Program Files\Internet Explorer\iexplore.exe " & RCH, vbNormalFocus)
End Sub
Bien sûr, cette procédure suppose que la connexion Internet soit établie, sinon je ne sais pas faire.
A+
LN
