interagir sur une page web google chrome sans passer par IE

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:

---

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

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 ;)

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:

---

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.

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.

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

ton code traduit en VBA donne ca

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 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

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:

---

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

---

re

Code:

---

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

---