Modification d'un code

Bonsoir,

J'ai une partie de mes réponses.

Maintenant, je me sers d'un code trouvé ici mais ..

J'aimerai le modifier:

Mettre Mozilla fire foxx a la place de I.E.

Voilà le code en question Merci à son auteur .

========

Sub Connexion()

'Dim ie As InternetExplorer

Dim IEdoc As Object

Dim DOCelement As Object

Set ie = CreateObject("InternetExplorer.application")

ie.Visible = True

ie.Navigate ("https://www.due.urssaf.fr/declarant/index.jsf")

' attente de fin de chargement

Do Until ie.ReadyState = 4

DoEvents

Loop

Set IEdoc = ie.document

Set Siret = IEdoc.getelementsbyname("form_siret:form-grey-siret").Item

Siret.Value = "12345678901234" '14 caractères max ?

Set bouton = IEdoc.getelementsbyname("form_siret:form-compte-submit").Item

bouton.Click

End Sub

=======

Merci

Bonjour,

Il n'est pas besoin de code pour remplacer internet explorer par Mozilla Firefox, il suffit de définir ce dernier comme étant le navigateur

par défaut dans la configuration internet.

Papy Pierrot

Merci