Discussion :

[thirdeye]

Bonjour,

Je dois faire de la qualification d'un fichier excel.

Je dois a partir d'un nom (cellule A1) et accessoirement une ville (cellule P1) faire une recherche sur google pour voir si une entreprise dispose d'un site web.

Pour l'instant j'utilise le code suivant

Code :

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

1
2
3
4
5
6
7
8
Sub moteur_firefox()
Dim mavar As String
mavar = ActiveCell.Value
Dim RetVal  As Long
 
    RetVal = Shell("C:\Program Files (x86)\Mozilla Firefox\firefox.exe " & "http://www.google.fr/search?q=" & Replace(mavar, " ", "+"))
 
End Sub

Donc la en fait je peux soit chercher le nom soit la ville si je me positionne dans l'une où l'autre cellule.

Ce que j'aimerais c'est que je me positionne dans la cellule nom (A1), ma recherche sur google soit la suivante :
nom (A1) + ville (P1)

Sachant que j'ai 1500 ligne à qualifier et que le nom en A1 et associé à la ville P1,

et que le nom en A50 et associé a la ville situé en P1.

Est-ce possible ?

Merci de vos réponses

[Gorfael]

Salut thirdeye et le forum
Tu commences sur un sujet, et tu continues sur un autre ??? Continues sur le même fil, ça évitera de recommencer les explications à chaque fois, et à ceux qui ont commencé à t'aider de continuer.

Sachant que j'ai 1500 ligne à qualifier et que le nom en A1 et associé à la ville P1, et que le nom en A50 et associé a la ville situé en P1.

Tout est possible (ou presque). Mais ne connaissant du problème que ce que tu veux bien donner, je ne comprends pas tout :
Il faut faire des couples (A1-P1, A2-P1,..., A1-Pn,...,An-Pn) ou la valeur en P nulle dit que le An doit être associé si la cellule P est vide, à la première ligne de P qui contient un nom de ville ?
A+

[thirdeye]

Ah oui pardon...

Donc en fait j'ai réussi à modéliser ce que je voulais et ce de cette façon pour ceux que ca interessera :

Code :

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

1
2
3
4
5
6
7
8
Sub moteur_firefox()
Dim mavar As String
mavar = ActiveCell.Value & (" ") & Range("Q" & ActiveCell.Row)
Dim RetVal  As Long
 
    RetVal = Shell("C:\Program Files (x86)\Mozilla Firefox\firefox.exe " & "http://www.google.fr/search?q=" & Replace(mavar, " ", "+"))
 
End Sub

Je voulais une recherche à partir de ma cellule sélectionnée (exemple : A1 ) et de la cellule P dans la ligne sélectionnée.

Je sais pas si j'arrive à être clair

[mercatog]

Tu n'as pas omis un espace (ou un plus) par hasard?
en A1: Alain en P1: Metz
tu auras mavar=AlainMetz

[Chipss]

Bah nan il insere bie n l'espace avec le ' & " " & ' ...

[Pierre Fauconnier]

...

Code :

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

1
2
3
4
Sub moteur_firefox()
...
mavar = ActiveCell.Value & (" ") & Range("Q" & ActiveCell.Row)
...

Je voulais une recherche à partir de ma cellule sélectionnée (exemple : A1 ) et de la cellule P dans la ligne sélectionnée.

Je sais pas si j'arrive à être clair

...