Discussion :

[moons666]

Bonjour, après quelques jours de recherche, je me trouve dans une impasse. J'aimerai faire une macro sous excel qui ouvre une page web, qui utile des touches de clavier pour ouvrir des fenêtres dans google chrome (sans utiliser la souris) et la referme. J'ai trouvé plusieurs manières pour ouvrir une page web avec google chrome et c'est cette manière présenté si dessous qui me conviendrai le mieux car j'arrive directement dans mon compte sans être obligé de mettre mot de passe et tous le reste. SeleniumBasic est installé et pour finir je ne veux pas passé par Internet Explorer.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub OuvrirWeb()
Dim navigate As String
    navigate = "https://drive.google.com/drive/my-drive"    ' adresse adapter
    Shell ("C:\Program Files (x86)\Google\Chrome\Application\Chrome.exe " & navigate)
End Sub

Je vous remercie d'avance pour votre aide

[patricktoulon]

re
bonsoir
pour chrome et Firefox tu a la librairie selenium moins bien foutu que la librairie IE
et une vrai torture a coder
ma conclusion: chrome tu oublie

[moons666]

Bonjour j'ai réussis avec autoit de faire la démarche que je veux est il possible de le fusionner avec excel ou de le traduire pour excel.
Voici le code:

Code autoit :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
;On lance Google Drive
Run("C:\Program Files (x86)\Google\Chrome\Application\Chrome.exe https://drive.google.com/drive/my-drive")
Sleep (7000)
; Raccourci clavier
send ("f")
Sleep (2000)
; Deplacement fleche clavier
Send ( "{DOWN}" )
Sleep (3000)
Send ("{DOWN}")
sleep (1000)
send ("{ENTER}")
sleep (2000)
; Marquer le nom de la sauvegarde
Send ( "nom du fichier")
Sleep (3000)
Send ( "{ENTER}" )
Sleep (5000)
; Fermer Google Chrome
send ("!{F4}")
sleep (1000)

En vous remerciant d'avance pour votre aide.

[Zekraoui_Jakani]

Si vous avez une version avancée de XL, vous pouvez utiliser "Get data from Web" via le ruban. Si le résultat est probant, vous pouvez enregistrer une macro pour en extraire/adapter le code.

[patricktoulon]

Bonjour
si j'ai bien compris tu souhaite uploader un fichier dans ton Google drive

ton code traduit en VBA donne ca

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
26
27
Sub test()
Dim URL$, ChromePath$, Wsh
'On lance Google Drive
Set Wsh = CreateObject("wscript.shell")
URL = "https://drive.google.com/drive/my-drive"
 ChromePath = """C:\Program Files (x86)\Google\Chrome\Application\chrome.exe"""
  Shell (ChromePath & " -url " & URL)
Sleep (10000)
 ' Raccourci clavier
 Wsh.SendKeys ("f")
 Sleep (2000)
 ' Deplacement fleche clavier
 Wsh.SendKeys ("{DOWN}")
 Sleep (3000)
 Wsh.SendKeys ("{DOWN}")
 Sleep (1000)
 Wsh.SendKeys ("{ENTER}")
 Sleep (2000)
 ' Marquer le nom de la sauvegarde
 Wsh.SendKeys ("aaaa.txt")
 Sleep (3000)
 Wsh.SendKeys ("{ENTER}")
 Sleep (5000)
 ' Fermer Google Chrome
 Wsh.SendKeys ("!{F4}")
 Sleep (1000)
End Sub

après entre nous tu a l'application google drive il me semble qui te créée un dossier synchronisé sur ton pc
AUTREMENT !! avec IE on pourrait gérer les évènement plus facilement et plus surement qu'avec des sleep arbitraires qui ne seront pas forcement toujours suffisant par rapport a la puissance de ta bécane et/ou du débit

[moons666]

Merci aux personnes qui mon aidé . j'ai fait quelques modif dans le macro pour ceux que ça intéresse voici le résultat final.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
26
27
28
29
30
31
32
33
34
35
Option Explicit
Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) ' Version 64
 
Sub Google_Drive()
Dim URL$, ChromePath$, Wsh
'On lance Google Drive
Set Wsh = CreateObject("wscript.shell")
URL = "https://drive.google.com/drive/my-drive"
 ChromePath = """C:\Program Files (x86)\Google\Chrome\Application\chrome.exe"""
  Shell (ChromePath & " -url " & URL)
Tempo 10000
 ' Raccourci clavier
 Wsh.SendKeys ("f")
Tempo 2000
 ' Deplacement fleche clavier
 Wsh.SendKeys ("{DOWN}")
Tempo 2000
 Wsh.SendKeys ("{DOWN}")
Tempo 2000
 Wsh.SendKeys ("{ENTER}")
Tempo 2000
 ' Marquer le nom de la sauvegarde
 Wsh.SendKeys ("nom de fichier")
Tempo 2000
 Wsh.SendKeys ("{ENTER}")
Tempo 5000
 ' Fermer Google Chrome
 Wsh.SendKeys ("%{F4}") ' Correspond a alt F4
Tempo 5000
End Sub
 
Sub Tempo(How As Long)
  'tempo 10000 miliseconde
  Sleep How
End Sub

[patricktoulon]

re

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Option Explicit
#If vba7 Then
 Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) ' Version 64
#Else
 Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)  ' Version 32
#End If