Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel HS vba excel vers vbs

HS vba excel vers vbs

8 réponses
Avatar
sabV
bonjour à tous,

très très hors sujet, mais sachant que plusieurs d'entre vous sont familier avec vbs, et n'ayant pas de réponse sur le groupe m.p.f.vb,
je me permet une petite escapade.
voici mon probleme, j'ai cette macro en excel et j'assai d'en faire une traduction que je pourrais mettre dans bloc note
car certain de mes amis n'ont pas excel:

la macro vba :
'_______________________________________________
Declare Function GetSystemMetrics32 Lib "user32" _
Alias "GetSystemMetrics" (ByVal nIndex As Long) As Long

Sub AMVIC()
Dim IE As Object
Set IE = CreateObject("internetexplorer.application")
IE.Navigate ("https://secure.myterminals.com/CA/ATM/menu.aspx")
IE.Visible = True: IE.Top = 0: IE.Left = 0
IE.Width = GetSystemMetrics32(0)
IE.Height = GetSystemMetrics32(1)
Application.Wait Now + TimeValue("00:00:02")
SendKeys ("MonUserName")
SendKeys "{TAB}"
SendKeys ("MonPassword~")
Application.Wait Now + TimeValue("00:00:02")
Set IE = Nothing
End Sub
'___________________________________________________



La macro vbs ( qui ne fonctionne pas bien sur,)

'___________________________________________________

Dim oIE As Object
Set oIE = CreateObject("InternetExplorer.Application")
Call oIE.Navigate("https://secure.myterminals.com/CA/ATM/menu.aspx?login=MonUserName&password=MonPassword")
oIE.Visible = True
'___________________________________________________


merci pour votre aide
isabelle
Signaler un problème avec ce contenu

8 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
Michel Pierron
Bonjour sabV;

Dim oIE, oSh
Set oSh = CreateObject("WScript.Shell")
Set oIE = CreateObject("InternetExplorer.Application")
oIE.Visible = True
oIE.Navigate ("https://secure.myterminals.com/CA/ATM/menu.aspx")
Do While oIE.busy
Loop
If Not Left(oIE.Document.title,8)="HTTP 404" Then
oSh.SendKeys "MonUserName"
oSh.SendKeys "{TAB}"
oSh.SendKeys "MonPassword~"
End if

MP

"sabV" a écrit dans le message de news:

bonjour à tous,

très très hors sujet, mais sachant que plusieurs d'entre vous sont
familier avec vbs, et n'ayant pas de réponse sur le groupe m.p.f.vb,
je me permet une petite escapade.
voici mon probleme, j'ai cette macro en excel et j'assai d'en faire une
traduction que je pourrais mettre dans bloc note
car certain de mes amis n'ont pas excel:

la macro vba :
'_______________________________________________
Declare Function GetSystemMetrics32 Lib "user32" _
Alias "GetSystemMetrics" (ByVal nIndex As Long) As Long

Sub AMVIC()
Dim IE As Object
Set IE = CreateObject("internetexplorer.application")
IE.Navigate ("https://secure.myterminals.com/CA/ATM/menu.aspx")
IE.Visible = True: IE.Top = 0: IE.Left = 0
IE.Width = GetSystemMetrics32(0)
IE.Height = GetSystemMetrics32(1)
Application.Wait Now + TimeValue("00:00:02")
SendKeys ("MonUserName")
SendKeys "{TAB}"
SendKeys ("MonPassword~")
Application.Wait Now + TimeValue("00:00:02")
Set IE = Nothing
End Sub
'___________________________________________________



La macro vbs ( qui ne fonctionne pas bien sur,)

'___________________________________________________

Dim oIE As Object
Set oIE = CreateObject("InternetExplorer.Application")
Call
oIE.Navigate("https://secure.myterminals.com/CA/ATM/menu.aspx?login=MonUserName&password=MonPassword")
oIE.Visible = True
'___________________________________________________


merci pour votre aide
isabelle


Avatar
sabV
un gros merci Michel, c'est parfait.

isabelle

Bonjour sabV;

Dim oIE, oSh
Set oSh = CreateObject("WScript.Shell")
Set oIE = CreateObject("InternetExplorer.Application")
oIE.Visible = True
oIE.Navigate ("https://secure.myterminals.com/CA/ATM/menu.aspx")
Do While oIE.busy
Loop
If Not Left(oIE.Document.title,8)="HTTP 404" Then
oSh.SendKeys "MonUserName"
oSh.SendKeys "{TAB}"
oSh.SendKeys "MonPassword~"
End if

MP

"sabV" a écrit dans le message de news:


bonjour à tous,

très très hors sujet, mais sachant que plusieurs d'entre vous sont
familier avec vbs, et n'ayant pas de réponse sur le groupe m.p.f.vb,
je me permet une petite escapade.
voici mon probleme, j'ai cette macro en excel et j'assai d'en faire une
traduction que je pourrais mettre dans bloc note
car certain de mes amis n'ont pas excel:

la macro vba :
'_______________________________________________
Declare Function GetSystemMetrics32 Lib "user32" _
Alias "GetSystemMetrics" (ByVal nIndex As Long) As Long

Sub AMVIC()
Dim IE As Object
Set IE = CreateObject("internetexplorer.application")
IE.Navigate ("https://secure.myterminals.com/CA/ATM/menu.aspx")
IE.Visible = True: IE.Top = 0: IE.Left = 0
IE.Width = GetSystemMetrics32(0)
IE.Height = GetSystemMetrics32(1)
Application.Wait Now + TimeValue("00:00:02")
SendKeys ("MonUserName")
SendKeys "{TAB}"
SendKeys ("MonPassword~")
Application.Wait Now + TimeValue("00:00:02")
Set IE = Nothing
End Sub
'___________________________________________________



La macro vbs ( qui ne fonctionne pas bien sur,)

'___________________________________________________

Dim oIE As Object
Set oIE = CreateObject("InternetExplorer.Application")
Call
oIE.Navigate("https://secure.myterminals.com/CA/ATM/menu.aspx?login=MonUserName&password=MonPassword")
oIE.Visible = True
'___________________________________________________


merci pour votre aide
isabelle







Avatar
Modeste
Bonsour® bellocchi de Sherbrook avec ferveur ;o))) vous nous disiez :

n'ayant pas de réponse sur le groupe m.p.f.vb,


concernant vbs le groupe francophone c'est :
news://news.microsoft.com/microsoft.public.fr.scripting

;ox


--
--
@+
;o)))

Avatar
sabV
merci Modeste pour ce lien, c'est très apprécier ça va m'aider grandement à avancer.
connais tu d'autres liens (tutoriel) sur vbs ?

isabelle

Bonsour® bellocchi de Sherbrook avec ferveur ;o))) vous nous disiez :


n'ayant pas de réponse sur le groupe m.p.f.vb,



concernant vbs le groupe francophone c'est :
news://news.microsoft.com/microsoft.public.fr.scripting

;ox





Avatar
papou
Bonjour
Une référence en la matière :
http://bellamyjc.org/
Sinon recherche sur Internet avec les mots clefs suivants :
script56.chm download
Et télécharge le fichier script56.chm qui te donnera l'aide sur les
expressions du langage VBS notamment.

Cordialement
Pascal

"sabV" a écrit dans le message de news:

merci Modeste pour ce lien, c'est très apprécier ça va m'aider grandement
à avancer.
connais tu d'autres liens (tutoriel) sur vbs ?

isabelle

Bonsour® bellocchi de Sherbrook avec ferveur ;o))) vous nous disiez :


n'ayant pas de réponse sur le groupe m.p.f.vb,



concernant vbs le groupe francophone c'est :
news://news.microsoft.com/microsoft.public.fr.scripting

;ox






Avatar
sabV
c'est super, merci papouPascal
isabelle

Bonjour
Une référence en la matière :
http://bellamyjc.org/
Sinon recherche sur Internet avec les mots clefs suivants :
script56.chm download
Et télécharge le fichier script56.chm qui te donnera l'aide sur les
expressions du langage VBS notamment.

Cordialement
Pascal

"sabV" a écrit dans le message de news:


merci Modeste pour ce lien, c'est très apprécier ça va m'aider grandement
à avancer.
connais tu d'autres liens (tutoriel) sur vbs ?

isabelle


Bonsour® bellocchi de Sherbrook avec ferveur ;o))) vous nous disiez :



n'ayant pas de réponse sur le groupe m.p.f.vb,



concernant vbs le groupe francophone c'est :
news://news.microsoft.com/microsoft.public.fr.scripting

;ox










Avatar
sabV
re bonjour Pascal,

j'ai téléchargé le fichier script56.chm
et recu le message :Thank You for Downloading
Windows Script 5.6 Documentation

j'ai bien dans la fenêtre de gauche : "Sommaire", "Index" et "Recherche"
mais rien n'apparait dans la fenêtre de droite excepté "I Action annulée "
qu'es je fait de travers ?

isabelle

Bonjour
Une référence en la matière :
http://bellamyjc.org/
Sinon recherche sur Internet avec les mots clefs suivants :
script56.chm download
Et télécharge le fichier script56.chm qui te donnera l'aide sur les
expressions du langage VBS notamment.

Cordialement
Pascal

"sabV" a écrit dans le message de news:


merci Modeste pour ce lien, c'est très apprécier ça va m'aider grandement
à avancer.
connais tu d'autres liens (tutoriel) sur vbs ?

isabelle


Bonsour® bellocchi de Sherbrook avec ferveur ;o))) vous nous disiez :



n'ayant pas de réponse sur le groupe m.p.f.vb,



concernant vbs le groupe francophone c'est :
news://news.microsoft.com/microsoft.public.fr.scripting

;ox










Avatar
sabV
ca y est j'ai trouvé,
j'avais oublier cette étape,
"Right click on script56.chm
Choose Properties
Click on "Unblock"

merci encore,
isabelle


re bonjour Pascal,

j'ai téléchargé le fichier script56.chm
et recu le message :Thank You for Downloading
Windows Script 5.6 Documentation

j'ai bien dans la fenêtre de gauche : "Sommaire", "Index" et "Recherche"
mais rien n'apparait dans la fenêtre de droite excepté "I Action annulée "
qu'es je fait de travers ?

isabelle


Bonjour
Une référence en la matière :
http://bellamyjc.org/
Sinon recherche sur Internet avec les mots clefs suivants :
script56.chm download
Et télécharge le fichier script56.chm qui te donnera l'aide sur les
expressions du langage VBS notamment.

Cordialement
Pascal

"sabV" a écrit dans le message de news:


merci Modeste pour ce lien, c'est très apprécier ça va m'aider
grandement à avancer.
connais tu d'autres liens (tutoriel) sur vbs ?

isabelle


Bonsour® bellocchi de Sherbrook avec ferveur ;o))) vous nous disiez :



n'ayant pas de réponse sur le groupe m.p.f.vb,




concernant vbs le groupe francophone c'est :
news://news.microsoft.com/microsoft.public.fr.scripting

;ox