Régler fenetre Internet Chrome avec VBA

Version imprimable

07/09/2022, 13h31
max60fr

Régler fenetre Internet Chrome avec VBA
Bonjour ,

Précédemment j'utilisais :
Code:

1 2 3 4 5 Set ie = CreateObject("InternetExplorer.Application") ie.Height = 1000 ie.Width = 1200 ie.Left = 700 ie.Top = 16
pour régler le positionnement et la taille de ma fenetre Internet sous IE.

Je cherche maintenant a effectuer la meme chose sous Chrome..
J'ai réussi à lancer l'ouverture en utilisant :

Code:

Shell ("C:\Program Files (x86)\Google\Chrome\Application\chrome.exe -url https://www.monabanq.com/fr/identification/authentification.html")

mais reste blocqué maintenant !..
Mes recherches avec Selenium ne m'ont pas permis d'avancer ...

Quelques idées ?
Merci !
07/09/2022, 13h53
hyperion13

Salut
Sérieux ! :weird:
Avec gogole est mon ennemi ici

Citation:

Envoyé par max60fr

... Mes recherches avec Selenium ne m'ont pas permis d'avancer ...
07/09/2022, 17h24
max60fr

Bonsoir hyperion13 ,

Oui j'ai cherché sur le Web , sans aucun doute , mal , puisque vous avez pris le soin de me le rappeler en me faisant la remarque ...
Cela aurais été plus "élégant" et "proffessionel" de votre part de me montrer avec quelques lignes a vous , la soluce ; en ajoutant éventuellement quelques conseils pour mes futures recherches ...

=> Pour continuer dans ma médiocrité , votre lien ne m'a pas sorti d'affaire..

Slts.
07/09/2022, 17h29
jurassic pork

hello,
si tu veux utiliser Selenium avec Chrome en VBA, il faut que tu utilises le Selenium Basic. Voir ici pour l'installation et un exemple.
Ami calmant, J.P
07/09/2022, 17h43
max60fr

1 pièce(s) jointe(s)

Bonsoir Jurassic ,

- Je ne cherche pas à utiliser à tout prix Selenium ..
Juste à pouvoir ouvrir une url sous Chrome , puis redimentionner et décaler la fenetre web ouverte.
- Vous me parlez d'une install , mais en regardant dans Outils/Références j'ai :
Pièce jointe 625016

Si la seule solution est d'utiliser Selenium , n'ais-je déjà pa ce qu'il me faut ?

Merci.
Cdlt.
07/09/2022, 17h52
jurassic pork

Citation:

Envoyé par max60fr

Juste à pouvoir ouvrir une url sous Chrome , puis redimentionner et décaler la fenetre web ouverte.

Dans ce cas la solution d' hyperion13 suffit.
Selenium c'est pour faire de l'automatisation et du pilotage de navigateur.
Il est déjà installé sur ton ordinateur Selenium Basic ? Dans ce cas il y a peut-être une mise à jour du webDriver Selenium du navigateur utilisé à faire.
07/09/2022, 18h00
max60fr
Ok.
Mais alors quelles instructions pour réaliser la modif de taille et le déplacement , en remplacement de :
Code:

1 2 3 4 ie.Height = 1000 ie.Width = 1200 ie.Left = 700 ie.Top = 16

voici un exemple pour redimensionner une fenêtre chrome (la fenêtre ne doit pas être maximisée au départ) :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
#If VBA7 Then
    Private Declare PtrSafe Function FindWindow Lib "USER32" Alias "FindWindowA" _
                    (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr
 
    Private Declare PtrSafe Function SetWindowPos _
            Lib "USER32" (ByVal hwnd As LongPtr, ByVal hWndInsertAfter As LongPtr, _
                          ByVal X As Long, ByVal Y As Long, ByVal cx As Long, _
                          ByVal cy As Long, ByVal wFlags As Long) As Long
#Else
    Private Declare Function FindWindow Lib "USER32" Alias "FindWindowA" _
                    (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
 
 
    Private Declare Sub SetWindowPos Lib "USER32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, _
            ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long)
#End If
Sub ModifierFenChrome()
#If VBA7 Then
    Dim ChromeHandle As LongPtr
#Else
    Dim ChromeHandle As Long
#End If
ChromeHandle = FindWindow("Chrome_WidgetWin_1", vbNullString)
SetWindowPos ChromeHandle, -1, 0, 0, 600, 600, &H10
End Sub

1 pièce(s) jointe(s)

Bonjour Jurassic ,

Merci pour votre implication et votre compréhension..

=> Etant sous VBA7 :
Pièce jointe 625042
J'ai copié dans un module vierge les instructions :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Declare PtrSafe Function FindWindow Lib "USER32" Alias "FindWindowA" _
                    (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr
 
Private Declare PtrSafe Function SetWindowPos _
            Lib "USER32" (ByVal hwnd As LongPtr, ByVal hWndInsertAfter As LongPtr, _
                          ByVal X As Long, ByVal Y As Long, ByVal cx As Long, _
                          ByVal cy As Long, ByVal wFlags As Long) As Long
 
Sub ModifierFenChrome()
 
    Dim ChromeHandle As LongPtr
 
    ChromeHandle = FindWindow("Chrome_WidgetWin_1", vbNullString)
    SetWindowPos ChromeHandle, -1, 0, 0, 600, 600, &H10
 
End Sub

Au lancement , pas de message d'erreur , mais aussi pas d'action sur Chrome ...

Cdlt.
Max.

08/09/2022, 08h06
jurassic pork

Hello,
comme je l'ai dit pour que cela fonctionne il faut :
1 - qu'il n'y ait qu'une fenêtre google chrome ouverte dans le bureau.
2 - que cette fenêtre ne soit pas en mode maximisé c'est à dire déplaçable et redimensionnable.

Pour vérifier que la fenêtre est trouvée mettre un point d'arrêt après le findwindow et regarder si la valeur de ChromeHandle est différente de 0.

Ami calmant, J.P
08/09/2022, 09h12
max60fr

.. Effectivement , pardon, mauvaise connections de ma part...

En ouvrant une fenetre , puis en la "dé-maxisant" , votre soluce fonctionne !
Par contre comme je le disais au début de ma demande , j'utilisais :

Code:

Shell ("C:\Program Files (x86)\Google\Chrome\Application\chrome.exe -url https://www.monabanq.com/fr/identification/authentification.html")

.. pour ouvrir la page.
Ceci doit etre remplacé par quoi , maintenant ?
08/09/2022, 10h00
jurassic pork

finalement en ligne de commande on peut spécifier la position et la taille de la fenêtre de chrome voir ici

Citation:

--window-position ⊗ Specify the initial window position: --window-position=x,y ↪
--window-size ⊗ Sets the initial window size. Provided as string in the format "800,600". ↪
08/09/2022, 11h23
max60fr

Parfait !
Quel plaisir de pouvoir echanger avec des personnes comme vous !
Efficace et humble ... Ce n'est pas le cas de tout le monde !
Merci Beaucoup !
Bien cordialement.
Max.