Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Probleme de sendkey...

Probleme de sendkey...

6 réponses
Avatar
Michel HOLDERITH
Bonjour tout le monde,

J'ai un petit probleme aujourd'hui avec un sendkey, je ne comprend pas avant
tout marchait bien......

Voila mon bout de code :

ReturnValue = Shell("C:\Program Files\Internet Explorer\IEXPLORE.EXE", 1)
Application.Wait Now + TimeValue("0:00:20")
SendKeys "{TAB}", True
SendKeys ("http://www.pt.lu"), True
Application.Wait Now + TimeValue("0:00:2")
etc......

pt.lu est un exemple, car la vraie adresse se termine par un *.php
normalement il doit tout m'ecrire en minuscule mais aujourd'hui il m'ecrit
l'adresse sans dans la totalite en majuscule ou seulement une partie.....
????? je ne sais pas pourquoi....

si l'adresse est en majuscule internet n'ouvre pas cette page.

Que pourrais-je faire pour y remedier ?
Existe-il un moyen d'appeller internet explorer avec une adresse
directement, sans passer par de sendkey ?

Merci pour vos suggestions,

@+

Michel.
Signaler un problème avec ce contenu

6 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
michdenis
Bonjour Michel,

est-ce que ceci t'aide ?

'------------------------------
Sub OuvrirIEexploreur()

Dim Adr As String
Adr = "http://www.microsoft.com"

With CreateObject("internetexplorer.application")
.Navigate (Adr)
.Visible = True
End With

End Sub
'------------------------------


Salutations!



"Michel HOLDERITH" <#nospam# a écrit dans le message de news:%
Bonjour tout le monde,

J'ai un petit probleme aujourd'hui avec un sendkey, je ne comprend pas avant
tout marchait bien......

Voila mon bout de code :

ReturnValue = Shell("C:Program FilesInternet ExplorerIEXPLORE.EXE", 1)
Application.Wait Now + TimeValue("0:00:20")
SendKeys "{TAB}", True
SendKeys ("http://www.pt.lu"), True
Application.Wait Now + TimeValue("0:00:2")
etc......

pt.lu est un exemple, car la vraie adresse se termine par un *.php
normalement il doit tout m'ecrire en minuscule mais aujourd'hui il m'ecrit
l'adresse sans dans la totalite en majuscule ou seulement une partie.....
????? je ne sais pas pourquoi....

si l'adresse est en majuscule internet n'ouvre pas cette page.

Que pourrais-je faire pour y remedier ?
Existe-il un moyen d'appeller internet explorer avec une adresse
directement, sans passer par de sendkey ?

Merci pour vos suggestions,

@+

Michel.
Avatar
papou
Bonjour Michel
Existe-il un moyen d'appeller internet explorer avec une adresse
directement, sans passer par de sendkey ?
Ben oui simplement comme ça :

LeLink = "http://www.pt.lu"
ActiveWorkbook.FollowHyperlink Address:=LeLink, NewWindow:=True

Cordialement
Pascal


"Michel HOLDERITH" <#nospam# a écrit dans le message de
news:%
Bonjour tout le monde,

J'ai un petit probleme aujourd'hui avec un sendkey, je ne comprend pas
avant

tout marchait bien......

Voila mon bout de code :

ReturnValue = Shell("C:Program FilesInternet ExplorerIEXPLORE.EXE", 1)
Application.Wait Now + TimeValue("0:00:20")
SendKeys "{TAB}", True
SendKeys ("http://www.pt.lu"), True
Application.Wait Now + TimeValue("0:00:2")
etc......

pt.lu est un exemple, car la vraie adresse se termine par un *.php
normalement il doit tout m'ecrire en minuscule mais aujourd'hui il m'ecrit
l'adresse sans dans la totalite en majuscule ou seulement une partie.....
????? je ne sais pas pourquoi....

si l'adresse est en majuscule internet n'ouvre pas cette page.

Que pourrais-je faire pour y remedier ?
Existe-il un moyen d'appeller internet explorer avec une adresse
directement, sans passer par de sendkey ?

Merci pour vos suggestions,

@+

Michel.










Avatar
Pascal Engelmajer
Salut Michel,
bizarre !!!
c'est unix (Apache sous Linux ?) qui est sensible à la casse !!!
De toute façon SendKeys est une méthode qui ne te permets pas un contrôle
précis.
Je préfère utiliser un contrôle comme WebBrowser dans un user form...

'nécessite la référence DHTML Edit Control for IE5
Private Sub UserForm_Initialize()
Me.htmlBox.BrowseMode = True
Me.htmlBox.LoadURL "http://www.monsite.net/monPhp.php"
Me.htmlBox.ActivateActiveXControls = True
End Sub

Ensuite avec la propriété DOM tu fais tout ce que tu veux... il suffit de
connaître la structure du document HTML
With monUsr.htmlBox.DOM.body.forms(0)
.elements(0).value="Michel"
.elements('ok').Click
End With
j'ai écris un petit exemple pour Gadget (il n'a plus reparu depuis !!!)
http://www.ilyapa.net/baseExcel/questionnaireIE.xls
utilise un questionnaire
http://www.ilyapa.net/baseExcel/index.html
et un php qui retourne la valeur des champs...
--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
Sénèque.
http://www.ilyapa.net/excel
http://www.ilyapa.net/baseExcel
"Michel HOLDERITH" <#nospam# a écrit dans le message de news:
#
Bonjour tout le monde,

J'ai un petit probleme aujourd'hui avec un sendkey, je ne comprend pas
avant

tout marchait bien......

Voila mon bout de code :

ReturnValue = Shell("C:Program FilesInternet ExplorerIEXPLORE.EXE", 1)
Application.Wait Now + TimeValue("0:00:20")
SendKeys "{TAB}", True
SendKeys ("http://www.pt.lu"), True
Application.Wait Now + TimeValue("0:00:2")
etc......

pt.lu est un exemple, car la vraie adresse se termine par un *.php
normalement il doit tout m'ecrire en minuscule mais aujourd'hui il m'ecrit
l'adresse sans dans la totalite en majuscule ou seulement une partie.....
????? je ne sais pas pourquoi....

si l'adresse est en majuscule internet n'ouvre pas cette page.

Que pourrais-je faire pour y remedier ?
Existe-il un moyen d'appeller internet explorer avec une adresse
directement, sans passer par de sendkey ?

Merci pour vos suggestions,

@+

Michel.










Avatar
Pascal Engelmajer
Salut Michdenis,
avec cette méthode comment gère-tu les évènements et les actions
(DocumentComplete ou Click) ?
merci.
--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
Sénèque.
http://www.ilyapa.net/excel
http://www.ilyapa.net/baseExcel
"michdenis" a écrit dans le message de news:

Bonjour Michel,

est-ce que ceci t'aide ?

'------------------------------
Sub OuvrirIEexploreur()

Dim Adr As String
Adr = "http://www.microsoft.com"

With CreateObject("internetexplorer.application")
.Navigate (Adr)
.Visible = True
End With

End Sub
'------------------------------


Salutations!



"Michel HOLDERITH" <#nospam# a écrit dans le message de
news:%

Bonjour tout le monde,

J'ai un petit probleme aujourd'hui avec un sendkey, je ne comprend pas
avant

tout marchait bien......

Voila mon bout de code :

ReturnValue = Shell("C:Program FilesInternet ExplorerIEXPLORE.EXE", 1)
Application.Wait Now + TimeValue("0:00:20")
SendKeys "{TAB}", True
SendKeys ("http://www.pt.lu"), True
Application.Wait Now + TimeValue("0:00:2")
etc......

pt.lu est un exemple, car la vraie adresse se termine par un *.php
normalement il doit tout m'ecrire en minuscule mais aujourd'hui il m'ecrit
l'adresse sans dans la totalite en majuscule ou seulement une partie.....
????? je ne sais pas pourquoi....

si l'adresse est en majuscule internet n'ouvre pas cette page.

Que pourrais-je faire pour y remedier ?
Existe-il un moyen d'appeller internet explorer avec une adresse
directement, sans passer par de sendkey ?

Merci pour vos suggestions,

@+

Michel.











Avatar
Michel HOLDERITH
Merci a tout le monde je test et je vous dirais ce qu'il en est.... pour
l'instant trop de boulot, mais promis je fais le plus vite possible....
@+
Michel.

"Pascal Engelmajer" wrote in message
news:Oobhi$
Salut Michel,
bizarre !!!
c'est unix (Apache sous Linux ?) qui est sensible à la casse !!!
De toute façon SendKeys est une méthode qui ne te permets pas un contrôle
précis.
Je préfère utiliser un contrôle comme WebBrowser dans un user form...

'nécessite la référence DHTML Edit Control for IE5
Private Sub UserForm_Initialize()
Me.htmlBox.BrowseMode = True
Me.htmlBox.LoadURL "http://www.monsite.net/monPhp.php"
Me.htmlBox.ActivateActiveXControls = True
End Sub

Ensuite avec la propriété DOM tu fais tout ce que tu veux... il suffit de
connaître la structure du document HTML
With monUsr.htmlBox.DOM.body.forms(0)
.elements(0).value="Michel"
.elements('ok').Click
End With
j'ai écris un petit exemple pour Gadget (il n'a plus reparu depuis !!!)
http://www.ilyapa.net/baseExcel/questionnaireIE.xls
utilise un questionnaire
http://www.ilyapa.net/baseExcel/index.html
et un php qui retourne la valeur des champs...
--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
Sénèque.
http://www.ilyapa.net/excel
http://www.ilyapa.net/baseExcel
"Michel HOLDERITH" <#nospam# a écrit dans le message de
news:

#
Bonjour tout le monde,

J'ai un petit probleme aujourd'hui avec un sendkey, je ne comprend pas
avant

tout marchait bien......

Voila mon bout de code :

ReturnValue = Shell("C:Program FilesInternet ExplorerIEXPLORE.EXE",
1)


Application.Wait Now + TimeValue("0:00:20")
SendKeys "{TAB}", True
SendKeys ("http://www.pt.lu"), True
Application.Wait Now + TimeValue("0:00:2")
etc......

pt.lu est un exemple, car la vraie adresse se termine par un *.php
normalement il doit tout m'ecrire en minuscule mais aujourd'hui il
m'ecrit


l'adresse sans dans la totalite en majuscule ou seulement une
partie.....


????? je ne sais pas pourquoi....

si l'adresse est en majuscule internet n'ouvre pas cette page.

Que pourrais-je faire pour y remedier ?
Existe-il un moyen d'appeller internet explorer avec une adresse
directement, sans passer par de sendkey ?

Merci pour vos suggestions,

@+

Michel.














Avatar
michdenis
Bonjour Pascal,

Si tu veux connaître davantage cet environnement, ajoute la référence suivante à ton projet à partir de la fenêtre VBE
(visual basic editor). "Microsoft Internet Controls" . Ensuite, tu peux utiliser l'explorateur de projets. Dans la liste
déroulante du haut de la fenêtre, tu choisis la bibliothèque suivante : " SHDocVw " ... dans la partie inférieur de la
fenêtre apparaîtront les méthodes ... propriétés et constantes disponibles ...

Voilà les outils et c'est à toi de jouer !

Je t'avoue que j'ai une connaissance très primaire de cet environnement.


Salutations!



"Pascal Engelmajer" a écrit dans le message de
news:
Salut Michdenis,
avec cette méthode comment gère-tu les évènements et les actions
(DocumentComplete ou Click) ?
merci.
--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
Sénèque.
http://www.ilyapa.net/excel
http://www.ilyapa.net/baseExcel
"michdenis" a écrit dans le message de news:

Bonjour Michel,

est-ce que ceci t'aide ?

'------------------------------
Sub OuvrirIEexploreur()

Dim Adr As String
Adr = "http://www.microsoft.com"

With CreateObject("internetexplorer.application")
.Navigate (Adr)
.Visible = True
End With

End Sub
'------------------------------


Salutations!



"Michel HOLDERITH" <#nospam# a écrit dans le message de
news:%

Bonjour tout le monde,

J'ai un petit probleme aujourd'hui avec un sendkey, je ne comprend pas
avant

tout marchait bien......

Voila mon bout de code :

ReturnValue = Shell("C:Program FilesInternet ExplorerIEXPLORE.EXE", 1)
Application.Wait Now + TimeValue("0:00:20")
SendKeys "{TAB}", True
SendKeys ("http://www.pt.lu"), True
Application.Wait Now + TimeValue("0:00:2")
etc......

pt.lu est un exemple, car la vraie adresse se termine par un *.php
normalement il doit tout m'ecrire en minuscule mais aujourd'hui il m'ecrit
l'adresse sans dans la totalite en majuscule ou seulement une partie.....
????? je ne sais pas pourquoi....

si l'adresse est en majuscule internet n'ouvre pas cette page.

Que pourrais-je faire pour y remedier ?
Existe-il un moyen d'appeller internet explorer avec une adresse
directement, sans passer par de sendkey ?

Merci pour vos suggestions,

@+

Michel.