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

[tepuy]

tu veux parler d'un truc du genre.
http://jpcheck.developpez.com/tutori...ge-parametres/


Si j'adapte ma macro le focus vers l'URL valide ne marche pas il y a une erreur de syntaxe .
La macro suivante ne fait qu'ouvrir firefox sur la page d'acceuil et que sur un seul onglet

Code :

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

1
2
3
4
5
6
Sub ouvrir
Dim app
app= Shell ("c:\Program Files (x86)\Mozilla Firefox\firefox.exe ")
'Cette ligne  ne marche pas app=("c:\Program Files (x86)\Mozilla Firefox\firefox.exe "https://nomduserveurvalide.com/")
 
End Sub

Peux etre faut il rajouter des commutateurs entre "c:\Program Files (x86)\Mozilla Firefox\firefox.exe et "https://nomduserveurvalide.com/" a la place d'un espace.

[Marc-L]

Juste en consultant la documentation des paramètres de Firefox, pas de commutateur …
Déjà tester manuellement dans Firefox chaque " URL " afin de vérifier si elle est correcte.

Ensuite la ligne de code fonctionnera une fois corrigée avec les guillemets bien placés comme indiqué dans la doc !
La tester déjà dans Exécuter via la combinaison de touches Windows R, exemple :

"c:\Program Files (x86)\Mozilla Firefox\firefox.exe" "http://www.developpez.net/forums/"

En VBA, comme indiqué dans les tutoriels et les discussions de ce forum, les guillemets servant à délimiter
une chaîne de caractères, si un guillemet doit apparaître dans la chaine soit le doubler soit utiliser Chr(34) …

Et comme indiqué dans la doc - suffit d'effectuer une recherche et de la lire ! - plusieurs URL peuvent se suivre dans la ligne de commande.

[tepuy]

Effectivement la macro ci dessous marche mieux et ouvre autant d'onglet que d'url valide.

Code :

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

1
2
3
4
Sub ouvrir
Dim app
app= Shell ("c:\Program Files (x86)\Mozilla Firefox\firefox.exe https://nomduserveurvalide.com/ https://nomduserveurvalide.com/ https://nomduserveurvalide.com/ https://nomduserveurvalide.com/ ")
End Sub

L'objectif initial était de parcourir toutes les lignes de la colonne B jusqu'a la fin du tableau pour ouvrir autant d'onglets sous firefox que de ligne ( dans mon tableau , il y a une URL par ligne ).Je pense que juste aprés

Code :

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

app= Shell ("c:\Program Files (x86)\Mozilla Firefox\firefox.exe

je dois indiquer une variable qui concatenerais toutes les lignes.
C'est tout bète mais je suis bloqué.

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

[Marc-L]

Code :

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

1
2
3
4
Sub Demo()
    Shell "c:\Program Files (x86)\Mozilla Firefox\firefox.exe " & _
          Join(Application.Transpose(Feuil1.[B1:B3].Value))
End Sub

__________________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

[tepuy]

Cette macro a marché une seule fois avec des liens valides. Elle a ouvert autant d'onglets que de lignes.Actuellement j'ai une erreur d'execution 53 et fichier introuvable.

Code :

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

1
2
3
4
 
Sub Demo()
    Shell "c:\Program Files (x86)\Mozilla Firefox\firefox.exe "         Join(Application.Transpose(Feuil1.[B2:B100].Value))
End Sub

De plus les lignes de mon tableau sont variables je pensais rajouter un bloc comme ceci pour parcourir toutes les lignes de mon tableau jusqu’à la dernière ligne .Qu'en pensez vous?

Code :

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

1
2
3
4
5
6
 
Range("B2").Select 
[B2].Select 
Range("B2").Offset(1,0).select 
Activecell.Offset(0,1).select
Range("B2").End(xlDown).Select

Peux tu m'expliquer ce que Join(Application.Transpose(Feuil1.[B1:B3].Value)) veux dire ?
Join renvoie bien une chaine crée par la jonction de sous chaine contenue dans un tableau mais que veux dire Application.Transpose ........?

Merci encore pour l'interet porté a ce sujet

[Marc-L]

Ce code fonctionne depuis des années de mon côté avec différentes versions d'Excel
mais Shell doit être limité en nombre de caractères …

Qui plus est ouvrir une palanquée d'onglets n'a pas d'intérêt sauf à gâcher des ressources et à planter Windows !

Le code a fonctionné avant d'être modifié : ce n'est donc plus le mien, à recopier de nouveau tel quel …

Application.Transpose correspond à la fonction de feuille de calculs du même nom.

Sinon je pense qu'un bon code n'a pas besoin de Select … Combien d'URL ?

[tepuy]

Comme tu dis il doit y avoir un probleme de ressource il y a environ de 35 a 50 URL a ouvrir. Correspondant a la fiche de 35 fiche d'identité d'instruments .

[Marc-L]

Il y a déjà un problème de code modifié ! Recopier mon code puis juste y modifier le numéro de la dernière ligne … ex B3 → B40

Cela se passe-t-il sans encombre ? Sans compter que cela va bien ramer …

[tepuy]

Code :

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

1
2
3
Sub Demo()
    Shell "c:\Program Files (x86)\Mozilla Firefox\firefox.exe " & Join(Application.Transpose(Feuil1.[B2:B40].Value))
End Sub

en colonne B les URL sont activées et j'ai rebooté le PC ( si pb de ressources ) .

me renvoie l'erreur d'execution 53 fichier introuvable

[patricktoulon]

Bonjour
quel est l'intérêt d'ouvrir 50 pages????
que veut tu faire avec ces pages?????

la dans cet acabit ca sent le plantage Windows un joli bluescreen en perspective

[tepuy]

en fait chaque de ces URL possède un identifiant unique qui pointe vers la fiche d'identité d'un instrument. le logiciel centralise environs plusieur milliers d'instruments.L'url est du genre https://nomdulogiciel.com/instruments/ID=15896

[Marc-L]

Le code fonctionnant de mon côté depuis des années mais comme dans le post #7 …
Firefox s'ouvre-t-il seul via le Shell sans URL ? Après il faut essayer en ajoutant une URL à la fois pour trouver la fautive …

A quoi cela peut-il bien servir d'ouvrir une cinquante d'URL en même temps ?!
Mieux vaut en ouvrir à la demande via un double-clic ou un lien hypertexte, non ?

[patricktoulon]

en fait chaque de ces URL possède un identifiant unique qui pointe vers la fiche d'identité d'un instrument. le logiciel centralise environs plusieur milliers d'instruments.L'url est du genre https://nomdulogiciel.com/instruments/ID=15896

d'accord et que veut tu faire avec ces fiches d'identité produit?

[tepuy]

@Marc-L
Oui elle s'ouvre via Windows R en ouvrant la page d'acceuil courante de firefox et une url .
LE tout est limité a 2 ou 3 onglets ( sans doute une limitation de caractères dans la barre d'adresse d'executer

Le but est d'éviter l'affichage stroboscopique et ainsi améliorer la navigation quand je fais proportionnelement au nombre de ligne la séquence CTRL+C ( copie le lien URL située dans mon tableau excel);CTRL+T ( Ouvre un nouvel onglet firefox);CTRL+V+ENTREE( Copie et ouvre l'url prélablement copié)

Code :

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

1
2
3
4
Sub Demo()
    Shell "c:\Program Files (x86)\Mozilla Firefox\firefox.exe " & _
          Join(Application.Transpose(Feuil1.[A1:A3].Value))
End Sub

toujours cette erreur d'execution 53 fichier introuvable meme en restreignant la plage a 3 url

@patricktoulon
Chaque fiche d'identité produit recelle l'historique de la vie de ce produit . l'objectif premier est de pouvoir d'abord pouvoir les consulter .Bien sur en améliorant la navigation.