Petit exemple pour remplir formulaire internet

Slt à tous ci joint un petit exemple si vous en avez marre de remplir des formulaires internet de meme style vous demandant toujours vos coordonneé (a modifier selon vos besoins) a utiliser quand internet est ouvert:

Sub formulaire()
' Remplacer Internet par le nom apparaissant en haut dans votre fenetre internet, si vous utilisez AOL par exemple c'est : AppActivate "AOL"
AppActivate "Internet"
' Application.SendKeys "{TAB}" = tabulation a modifier selon les formulaires
Application.SendKeys "{TAB}"
' remplacer nom par le votre
Application.SendKeys ("Nom")
Application.SendKeys "{TAB}"
' remplacer prenom par le votre
Application.SendKeys ("Prenom")
Application.SendKeys "{TAB}"
' remplacer adresse par la votre
Application.SendKeys ("Adresse")
Application.SendKeys "{TAB}"
' remplacer code postal par le votre
Application.SendKeys ("Code Postal")
Application.SendKeys "{TAB}"
' remplacer ville par la votre
Application.SendKeys ("Ville")
Application.SendKeys "{TAB}"
' Application.SendKeys "~" = envoye une commande entree pour valider
Application.SendKeys "~"
End Sub