Sub AppuyerSurBoutonWeb()
Dim IE As Object
Dim HTMLDoc As Object
Dim bouton As Object
' Initialiser une nouvelle instance d'Internet Explorer
Set IE = CreateObject("InternetExplorer.Application")
' Ouvrir la page web
IE.navigate "https://www.example.com" ' Remplacez ceci par l'URL de votre page web
' Attendre que la page se charge
Do While IE.readyState <> 4 Or IE.Busy
DoEvents
Loop
' Obtenir le document HTML de la page chargée
Set HTMLDoc = IE.document
' Identifier le bouton à cliquer par son ID ou sa classe et le cliquer
Set bouton = HTMLDoc.getElementById("ID_du_bouton") ' Remplacez "ID_du_bouton" par l'ID de votre bouton
' Si l'élément n'est pas trouvé par ID, essayez de le trouver par sa classe
If bouton Is Nothing Then
Set bouton = HTMLDoc.getElementsByClassName("classe_du_bouton")(0) ' Remplacez "classe_du_bouton" par la classe de votre bouton
End If
' Si le bouton est trouvé, cliquez dessus
If Not bouton Is Nothing Then
bouton.Click
Else
MsgBox "Bouton non trouvé."
End If
' Fermer Internet Explorer
IE.Quit
' Libérer la mémoire
Set IE = Nothing
Set HTMLDoc = Nothing
Set bouton = Nothing
End Sub