OVH Cloud OVH Cloud

EXCEL et lien internet sécurisé

4 réponses
Avatar
flibus2
bonjours,

j'ai éssayé de faire une macro VBA pour automatiser une connexion internet
sur le site de BNP

en fait la macro s'exécute bien et me donne la page ou l'on doit saisir le
login et pass

et s'est la suite qui ne fonctionne pas
voici la macro
Sub BNPSECURE()
'
' BNPSECURE Macro
' Macro enregistrée le 03/03/2005 par RF
'

'
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("plan comptable").Select
Range("F77").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
Range("D78").Select
ActiveCell.FormulaR1C1 = "xxxxxxxxxx"
Range("E78").Select
ActiveCell.FormulaR1C1 = "yyyyyy"
Sheets("saisi").Select
End Sub


xxxx étant le login et yyy le pass

pour créer cette macro j'ai fait simple en fait j'ai mis sur une feuille le
lien hypertexte, le login, et pass

a la création j'ai donc fait l'exécution du lien puis une foi la page
ouverte j'ai appliqué le copier coler du login puis du pass

je ne comprend pas pourquoi lorsque j'applique la macro l'oppération
s'arrete a l'ouverture de la page sans appliquer le colage mentionné sur le
module VBA

pourriez vous me donner un conseil voir une solution s'il vous plait et
surtout m'expliquer ou j'ai fait la faute car le but n'est pas d'avoir
uniquement une solution toute faite de votre part mais de comprendre (ce qui
équivau a apprendre)

merci d'avence

4 réponses

Avatar
Philippe.R
Bonjour,
Regarde de ce côté, il y a des pistes me semble t il :
http://jacxl.free.fr/cours_xl/cadres.html
--
Amicales Salutations
XL 97 / 2000 / 2002
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"flibus2" a écrit dans le message de news:
42276b0d$0$19316$
bonjours,

j'ai éssayé de faire une macro VBA pour automatiser une connexion internet sur le site de BNP

en fait la macro s'exécute bien et me donne la page ou l'on doit saisir le login et pass

et s'est la suite qui ne fonctionne pas
voici la macro
Sub BNPSECURE()
'
' BNPSECURE Macro
' Macro enregistrée le 03/03/2005 par RF
'

'
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("plan comptable").Select
Range("F77").Select
Selection.Hyperlinks(1).Follow NewWindow:úlse, AddHistory:=True
Range("D78").Select
ActiveCell.FormulaR1C1 = "xxxxxxxxxx"
Range("E78").Select
ActiveCell.FormulaR1C1 = "yyyyyy"
Sheets("saisi").Select
End Sub


xxxx étant le login et yyy le pass

pour créer cette macro j'ai fait simple en fait j'ai mis sur une feuille le lien hypertexte, le login,
et pass

a la création j'ai donc fait l'exécution du lien puis une foi la page ouverte j'ai appliqué le copier
coler du login puis du pass

je ne comprend pas pourquoi lorsque j'applique la macro l'oppération s'arrete a l'ouverture de la page
sans appliquer le colage mentionné sur le module VBA

pourriez vous me donner un conseil voir une solution s'il vous plait et surtout m'expliquer ou j'ai
fait la faute car le but n'est pas d'avoir uniquement une solution toute faite de votre part mais de
comprendre (ce qui équivau a apprendre)

merci d'avence




Avatar
flibus2
bonjours,
merci du lien mais je n'ai pas trouvé mon bonheur,
a part la posibilité d'ouvrier des pages web via une macro VBA
mais cela la macro que j'ai créé le fait déja
s'est surtout commen remplir les deux céllules de cette page concernat le
nom de l'utilisateur et son mot de passe qui me faudrait

ce que je ne comprend pas s'est que manuellement le copier coler fonctionne
mais pas lorsque la commende est faite par la macro
est il possible dans la macro ci dessous de pouvoir faire une commande
directe pour remplir les céllules de la feuille web une foi que celle ci est
ouverte sans utiliser le copier coler
ou peut etre que l'érreur que j'ai faite serais d'avoir utilisé un lien
hypertexte pour la commande d'ouverture le page web au lieu de faire une
commande directe sur l'URL de cette page ce qui la rendrait peut etre active
pour apliquer le copier coler



ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("plan comptable").Select
Range("F77").Select
Selection.Hyperlinks(1).Follow NewWindow:úlse, AddHistory:=True



d'ou suprimer la partie ci dessous pour en faire une commande directe sur la
page web en rendant cette page active via cette macro?

Range("D78").Select
ActiveCell.FormulaR1C1 = "xxxxxxxxxx"
Range("E78").Select
ActiveCell.FormulaR1C1 = "yyyyyy"
Sheets("saisi").Select
End Sub



là j'ai vraiment besoin des connaissences de spécialistes en VBA


Avatar
Philippe.R
Re,
Je citais le site de comme référence pour les manipulations entre Excel et Web, sans garantie.
La lecture des compléments d'information me pousserait à t'orienter vers la piste des APIs de Windows,
toujours sans avoir de solution toute faite à proposer.
--
Amicales Salutations
XL 97 / 2000 / 2002
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"flibus2" a écrit dans le message de news:
422983e4$0$19327$
bonjours,
merci du lien mais je n'ai pas trouvé mon bonheur,
a part la posibilité d'ouvrier des pages web via une macro VBA
mais cela la macro que j'ai créé le fait déja
s'est surtout commen remplir les deux céllules de cette page concernat le nom de l'utilisateur et son
mot de passe qui me faudrait

ce que je ne comprend pas s'est que manuellement le copier coler fonctionne mais pas lorsque la
commende est faite par la macro
est il possible dans la macro ci dessous de pouvoir faire une commande directe pour remplir les
céllules de la feuille web une foi que celle ci est ouverte sans utiliser le copier coler
ou peut etre que l'érreur que j'ai faite serais d'avoir utilisé un lien hypertexte pour la commande
d'ouverture le page web au lieu de faire une commande directe sur l'URL de cette page ce qui la
rendrait peut etre active pour apliquer le copier coler



ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("plan comptable").Select
Range("F77").Select
Selection.Hyperlinks(1).Follow NewWindow:úlse, AddHistory:=True



d'ou suprimer la partie ci dessous pour en faire une commande directe sur la page web en rendant cette
page active via cette macro?

Range("D78").Select
ActiveCell.FormulaR1C1 = "xxxxxxxxxx"
Range("E78").Select
ActiveCell.FormulaR1C1 = "yyyyyy"
Sheets("saisi").Select
End Sub



là j'ai vraiment besoin des connaissences de spécialistes en VBA






Avatar
flibus2
"Philippe.R" a écrit dans le message de news:

Re,
Je citais le site de comme référence pour les manipulations entre
Excel et Web, sans garantie.
La lecture des compléments d'information me pousserait à t'orienter vers
la piste des APIs de Windows, toujours sans avoir de solution toute faite
à proposer.


se n'est pas grave, je cherchai a automatiser cette tache sans etre obligé
de remplir a chaque fois le formulaires d'acxé a la page sécurisé
donc si je ne peut pas le faire avec VBA je continuerai a le remplir
manuellement

merci qu'en meme de votre sollicitude

amicalement R. Francois

--
Amicales Salutations
XL 97 / 2000 / 2002
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"flibus2" a écrit dans le message de news:
422983e4$0$19327$
bonjours,
merci du lien mais je n'ai pas trouvé mon bonheur,
a part la posibilité d'ouvrier des pages web via une macro VBA
mais cela la macro que j'ai créé le fait déja
s'est surtout commen remplir les deux céllules de cette page concernat le
nom de l'utilisateur et son mot de passe qui me faudrait

ce que je ne comprend pas s'est que manuellement le copier coler
fonctionne mais pas lorsque la commende est faite par la macro
est il possible dans la macro ci dessous de pouvoir faire une commande
directe pour remplir les céllules de la feuille web une foi que celle ci
est ouverte sans utiliser le copier coler
ou peut etre que l'érreur que j'ai faite serais d'avoir utilisé un lien
hypertexte pour la commande d'ouverture le page web au lieu de faire une
commande directe sur l'URL de cette page ce qui la rendrait peut etre
active pour apliquer le copier coler



ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("plan comptable").Select
Range("F77").Select
Selection.Hyperlinks(1).Follow NewWindow:úlse, AddHistory:=True



d'ou suprimer la partie ci dessous pour en faire une commande directe sur
la page web en rendant cette page active via cette macro?

Range("D78").Select
ActiveCell.FormulaR1C1 = "xxxxxxxxxx"
Range("E78").Select
ActiveCell.FormulaR1C1 = "yyyyyy"
Sheets("saisi").Select
End Sub



là j'ai vraiment besoin des connaissences de spécialistes en VBA