Discussion :

[tepuy]

Bonjour
j'ai les adresses url de differents instruments répertoriés dans un tableau.Je souhaite automatiser sur firefox l'ouverture d'autant d'onglet que de ligne présente dans ce tableau. Je pense qu'il faut passer par un offset(0,1) et boucler via un Do Until mais je reste bloqué a la ligne sendkeys "T".
Jusqu'ici j'ai écrit cette macro qui ouvre firefox et pointe sur la premiere ligne de mon tableau, mais le focus vers l'url ne se fait pas, ainsi que l'ouverture vers un nouveau onglet ( ALT+D;CTRL+T).
Donc dans l' exemple ci dessous ouvrir 3 onglets sous firefox

Pouvez vous m'aider ?

Code :

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

1
2
3
4
5
6
7
Sub ouvrir
Dim, ret, app
app=("c:\Program Files (x86)\Mozilla Firefox\firefox.exe
ret =Shell (app,1)
SendKeys "%{D}"
SendKeys "^{T}",True
End Sub

Appareil 1	https:\nom du serveur\ID11111
Appareil 2	https:\nom du serveur\ID55511
Appareil 3	https:\nom du serveur\ID198511

[kiki29]

Salut, pour automatiser FireFox il te faudra passer par selenium-vba

[tepuy]

Bonjour kiki 29
J'aimerais eviter d'utiliser un plugin additionel .
Je pensais plutot ame diriger vers quelque chose comme ceci, (qui ouvrirait d'abord firefox et apres un onglet de firefox par ligne)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Sub ouvrir
Dim a As Range
Dim, ret, app
app=("c:\Program Files (x86)\Mozilla Firefox\firefox.exe")
ret =Shell (app,1)
For each a in range ("B2:B100").Cells
a.Select
SendKeys"{F2}", True
SendKeys"{ENTER}, True
SendKeys "%{D}"
SendKeys "^{T}",True
Next

[kiki29]

Salut, les sendkeys étant par essence instables, même si j'en ai fait usage, voir ici le travail remarquable de David ( sans senkeys via les APIs ).

[tepuy]

tu verrais plutot un code comme ceci

Code :

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

1
2
3
4
5
6
7
8
9
Sub ouvrir
Dim a As Range
Dim, ret, app
app=("c:\Program Files (x86)\Mozilla Firefox\firefox.exe")
ret =Shell (app,1)
For each a in range ("B1:B10").Cells
Set fich=Workbooks.Open("https://nomduserveur")
Next
End Sub

Désolé pour les erreurs de syntaxe mais j'essaie plusieurs méthodes et je suis débutant en vba.
j'ai ce message d'erreur ( aucune connectivité avec le serveur . Impossible d'ouvrir le fichier https://nomduserveur .
Je n'ai pas les moyens actuellement de tester ce code car je l'utiliserais sur un serveur d'entreprise Vs peut etre mardi ) .
Suis je dans la bonne direction du code pour ouvrir autant d'onglet qu d'url listé dans un tableau excel ???

[Marc-L]

Bonjour, bonjour !

Pas besoin de Senkeys : voir les paramètres de ligne de commande ou les options de lancement de Firefox …
Une commande unique pour ouvrir Firefox et les onglets mais faut-il encore que les URL soient valides !



__________________________________________________________________________________________________
Je suis Charlie - Je suis Bardo