A voir également:
- Internetexplorer.application vba
- Erreur 1004 vba ✓ - Forum VB / VBA
- Vba attendre 1 seconde ✓ - Forum VB / VBA
- Vba dernière colonne non vide ✓ - Forum VB / VBA
- Récupérer valeur cellule vba ✓ - Forum VB / VBA
- Mkdir vba ✓ - Forum VB / VBA
2 réponses
eriiic
Messages postés
24570
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
23 avril 2024
7 216
8 mai 2011 à 09:24
8 mai 2011 à 09:24
Bonjour,
Lancer une application : shell()
Activer une fenetre : appactivate
Envoyer des caractères vers une fenetre active : sendkeys()
Fais F1 sur chaque fonction pour avoir la syntaxe et les exemples.
eric
Lancer une application : shell()
Activer une fenetre : appactivate
Envoyer des caractères vers une fenetre active : sendkeys()
Fais F1 sur chaque fonction pour avoir la syntaxe et les exemples.
eric
Utilisateur anonyme
8 mai 2011 à 11:30
8 mai 2011 à 11:30
Merci je vais méditer là dessus. Juste une autre question à quoi correspond la variable à gauche du égale qu'il faut ajouter ?
eriiic
Messages postés
24570
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
23 avril 2024
7 216
8 mai 2011 à 12:06
8 mai 2011 à 12:06
je ne vois pas ce que tu as devant les yeux, désolé...
salut,
moi j'utilise ça :
'Si ça ne fonctionne pas, aller dans :
'Outils -> Références -> Parcourir C:\Windows\System 32\shdocvw.dll
'Si ça ne marche toujours pas, aller dans IE7
'Outils -> Options Internet -> Onglet Sécurité -> Désactiver le mode protégé
Dim IE As InternetExplorer
Dim winShell As New ShellWindows
Dim MyURL As String
MyURL = "http://eui.orange.fr/lost/bin/lost.cgi"
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True `=False pour aller plus vite
IE.Navigate MyURL
`On attend que la page soit chargée
Do While IE.readyState <> READYSTATE_COMPLETE
DoEvents
Loop
'Remplir le champ souhaité (en l'appelant par son nom -> Code source)
IE.document.all("credential").Value = "blablabla"
est ce que ça te va ?
moi j'utilise ça :
'Si ça ne fonctionne pas, aller dans :
'Outils -> Références -> Parcourir C:\Windows\System 32\shdocvw.dll
'Si ça ne marche toujours pas, aller dans IE7
'Outils -> Options Internet -> Onglet Sécurité -> Désactiver le mode protégé
Dim IE As InternetExplorer
Dim winShell As New ShellWindows
Dim MyURL As String
MyURL = "http://eui.orange.fr/lost/bin/lost.cgi"
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True `=False pour aller plus vite
IE.Navigate MyURL
`On attend que la page soit chargée
Do While IE.readyState <> READYSTATE_COMPLETE
DoEvents
Loop
'Remplir le champ souhaité (en l'appelant par son nom -> Code source)
IE.document.all("credential").Value = "blablabla"
est ce que ça te va ?
En effet ta façon de faire les choses est beaucoup plus poussée.. Tu as crée un objet qui représente IE.
Mais en tout cas ta méthode est très bien, peut être un soupçon trop poussé par rapport à mes connaissance de VBA. Mais après tout c'est comme ça que l'on apprend.. :p
Le soucis c'est que si le site dans lequel je veux venir chercher mes infos est mit à jour, et que le code source est changé. Le programme ne fonctionnera plus, non ? Qu'en penses-tu ?
PS: Désolé Eric ma question n'étais pas clair mais j'ai résolu le problème.
Mais en tout cas ta méthode est très bien, peut être un soupçon trop poussé par rapport à mes connaissance de VBA. Mais après tout c'est comme ça que l'on apprend.. :p
Le soucis c'est que si le site dans lequel je veux venir chercher mes infos est mit à jour, et que le code source est changé. Le programme ne fonctionnera plus, non ? Qu'en penses-tu ?
PS: Désolé Eric ma question n'étais pas clair mais j'ai résolu le problème.
