Remplire une page internet

  • Initiateur de la discussion Initiateur de la discussion GClaire
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Salut GClaire,

Il faut explorer le Microsoft Internet Control (à rechercher dans les références du projet à mettre en oeuvre.
Ensuite tu peux essayer ce bout de code (non testé) qu'on m'a transmis et qui ferait la même chose pour Google. A voir.

Code:
Sub test()
Dim objIE As SHDocVw.InternetExplorer

Set objIE = New SHDocVw.InternetExplorer
objIE.Visible = 3

strURL = '[url]http://www.google.com'[/url]
objIE.Navigate strURL

Do Until objIE.ReadyState = READYSTATE_COMPLETE
  DoEvents
Loop

Set objdoc = objIE.document
Set objformsf = objdoc.forms('f')
Set objTextBoxSearch = objformsf('q')
Set objSubmitButton = objdoc.forms('f').Item(2)

objTextBoxSearch.Value = 'Excel'
objSubmitButton.Click
End Sub

J'espère que cela t'aidera.
 
bonsoir GClaire , rebonsoir Jam

Jam, je me demande si tu ne devrais pas éditer ton message car dans les conditions d'utilisation de Google il est clairement spécifié que les requêtes automatisées sont interdites

'Vous ne devez pas transmettre de requêtes automatisées d'aucune sorte aux systèmes de Google sans autorisation explicite et préalable de Google.'


bonne soirée
MichelXld
 
Jam, MichelXld et le forum

Merci pour vos réponses.

Alors là je ne comprends rien, grrrrrrrrr, lol.

En faite je voudrais mettre dans les champs du site Michelin, mes coordonnées et les coordonnées de destination, de manière a créer le plan pour ensuite l'imprimer en PDF, de manière a pouvoir le ressortire.

Donc ma question est :

Es-ce que cela est possible de remplire ces champs :

Départ : N° et rue, gare, métro...
Code postal
Ville, lieu-dit...
Pays

Arrivée : N° et rue, gare, métro...
Code postal
Ville, lieu-dit...
Pays

Pour les champs de départ se sera toujours les même, c'est a dire mon adresse

Pour les champs de arrivée se sera des textbox de mon UserForm :

Pour :

N° et rue, gare, métro...= txtNumDeBatiment + txtBatiment + txtNumeroDeRue + txtNomDeRue

Code postal = txtCodePostaleOrganisateurs

Ville, lieu-dit... = cbxVilleOrganisateurs

et le Pays = France

Pour ce qui est de requète automatiser, je ne sais pas ce que c'est.

Es-ce possible ou non ?

Je vous remercie par avance, G'Claire
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

N
Réponses
2
Affichages
2 K
Novice38
N
N
Réponses
4
Affichages
2 K
Novice38
N
G
Réponses
0
Affichages
662
Goret
G
C
Réponses
30
Affichages
3 K
C
F
Réponses
2
Affichages
1 K
F
T
Réponses
3
Affichages
936
Retour