Recherche internet à partir de cellules excel

[Fab62]

Bonjour à tous.
Je liste, dans un fichier excel, dans la colonne A, tous les films de ma vidéothèque. Je souhaiterai créer une macro qui me permettrait d'ouvrir mon navigateur internet, d'effectuer la recherche du titre du film placé dans la première cellule sur google , d'en extraire par exemple l'année de sortie et l'intégrer dans mon fichier excel puis fermer le navigateur internet. Et répéter cette opération pour toutes les cellules descendantes.
Jusqu'alors, j'ai trouvé une macro qui me permet d'ouvrir google et d'effectuer la recherche de la cellule A1. Je vous remercie d'avance.

 

[mapomme]

Re : Recherche internet à partir de cellules excel

Bonsoir Fab62 et bienvenue ,

Une piste dans le fichier joint. Double-cliquer sur une cellule de la colonne A, pour placer l'année de sortie dans la colonne B.

Attention: Cette macro fonctionne chez moi avec Excel 2010, je n'ai pas pu vérifier en Excel 2007 !

Le code est dans le module de code de la feuille "Feuil1":

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim SortiEn
If Target.Column <> 1 Or Target.Value = "" Then Exit Sub
    Cancel = True
    Application.ScreenUpdating = False
    ActiveWorkbook.Worksheets.Add
    With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;http://www.google.fr/search?hl=fr&source=hp&q=" & CStr(Target.Value) & " &meta=&aq=f&oq=" _
        , Destination:=ActiveSheet.Range("$A$1"))
        .Name = "search?hl=fr&source=hp&q=Code%20Meurtre&meta=&aq=f&oq="
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlEntirePage
        .WebFormatting = xlWebFormattingNone
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With
    SortiEn = ActiveSheet.Cells.Find(What:="Film (????)", After:=ActiveCell, LookIn:=xlValues, _
        LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Value
    Target.Offset(, 1) = Mid(SortiEn, 7, 4)
    Application.DisplayAlerts = False
    ActiveSheet.Delete
    Application.DisplayAlerts = False
    Application.ScreenUpdating = True
End Sub

 

[mapomme]

Re : Recherche internet à partir de cellules excel

(re)Bonsoir,

Une variante (toujours en Excel 2010) avec une macro permettant d'afficher toutes les dates de sortie des films en une seule fois.

Le code de la macro dans le module de code de la feuille "Feuil1"
(après avoir supprimé le 'Private' devant Sub Worksheet_BeforeDoubleClick...) :

Sub toutes()
Dim xrg As Range, xcell As Range

Set xrg = Range(Range("A1"), Range("A" & Rows.Count).End(xlUp))
  For Each xcell In xrg
    Sheets("Feuil1").Worksheet_BeforeDoubleClick xcell, True
  Next xcell
End Sub

 

[DoubleZero]

Re : Recherche internet à partir de cellules excel

Bonjour à toutes et à tous,

Un petit tour pour dire BRAVO, mapomme !

Les deux fichiers fonctionnent parfaitement avec Excel 2007.

A bientôt

 

[Fab62]

Re : Recherche internet à partir de cellules excel

Et bien merci beaucoup mapomme, le second fichier répond à mes attentes!! Merci pour cette réponse rapide!!!

 

[mapomme]

Re : Recherche internet à partir de cellules excel

(re)Bonsoir Fab62,
Bonsoir DoubleZero , Modeste geedee , le forum,

Merci à tous pour les vérifs, surtout avec Excel 2007.

 

[maval]

Re : Recherche internet à partir de cellules excel

Bonjour,

Je viens de trouver le code qui a été réaliser par mapomme que j'ai trouver génial. J'aimerai si possible le modifier a ma convenace c'est à dire, les noms des films se trouvant à la colonne "B3:B" et l'année de la sortie du film se trouvant à la colonne "K3:K"
Je vous remercie d'avance

 

[mapomme]

Re : Recherche internet à partir de cellules excel

Bonjour maval,

voir fichier joint...

 

[maval]

Re : Recherche internet à partir de cellules excel

Bonjour mapomme

Je te remercie beaucoup. De la même manière peut rechercher le réalisateur et la nationalité?

Merci et bonne journée

 

[maval]

Re : Recherche internet à partir de cellules excel

Re Bonjour

 

[mapomme]

Re : Recherche internet à partir de cellules excel

Bonsoir maval,

Voir le fichier joint. Le pays n'est pas dans un champ précis, je ne sais pas le retrouver

 

[maval]

Re : Recherche internet à partir de cellules excel

Bonsoir mapomme


Je te remercie je ferais avec Nickel

Bonne soirée

 

[Miel]

Bonjour Mapomme,

J'aimerais bien exécuter ta macro mais j'ai du mal avec ton fichier.

Quand je le compile (Excel 2010) je n'ai pas de réponses ni d'erreur, est ce normal. En effet je voulais me servir de ton travail pour en développer un autre

 

[Miel]

Merci pour vos réponses