XL 2016 Recherche Youtube

[halecs93]

Bonjour,

J'ai ce fichier qui me permet de générer une setlist.

Sur la feuille de base nommée "Repertoire", un double clic sur le titre (colonne A) permet de faire une recherche sur youtube.

Je n'arrive pas à faire la même chose lors de la création d'une feuille (bouton "Setlist")

Merci à tout le monde.

 

[fanch55]

Bonjour
Code à mettre dans le module Thisworkbook :

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
    If Sh.Name <> "REPERTOIRE" Then
        ' ? Partie pour la colonne B (colonne 2) à partir de la ligne 3
        If Target.Column = 2 And Target.Row > 2 Then
            If Not IsEmpty(Target.Value) Then
                Dim searchTerm As String
                searchTerm = """" & Target.Value & """ """ & Target.Offset(, 1).Value & """" ' B + C
                Dim searchURL As String
                searchURL = "https://www.youtube.com/results?search_query=" & WorksheetFunction.EncodeURL(searchTerm)
                ' searchURL = "https://www.google.com/search?q=" & WorksheetFunction.EncodeURL(searchTerm)
                
                ThisWorkbook.FollowHyperlink searchURL
                Cancel = True
                Exit Sub
            End If
        End If
    
        ' ? Si double clic ailleurs, empêcher l'édition
        Cancel = True
    End If
End Sub

 

[halecs93]

Bonjour
Code à mettre dans le module Thisworkbook :

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
    If Sh.Name <> "REPERTOIRE" Then
        ' ? Partie pour la colonne B (colonne 2) à partir de la ligne 3
        If Target.Column = 2 And Target.Row > 2 Then
            If Not IsEmpty(Target.Value) Then
                Dim searchTerm As String
                searchTerm = """" & Target.Value & """ """ & Target.Offset(, 1).Value & """" ' B + C
                Dim searchURL As String
                searchURL = "https://www.youtube.com/results?search_query=" & WorksheetFunction.EncodeURL(searchTerm)
                ' searchURL = "https://www.google.com/search?q=" & WorksheetFunction.EncodeURL(searchTerm)
               
                ThisWorkbook.FollowHyperlink searchURL
                Cancel = True
                Exit Sub
            End If
        End If
   
        ' ? Si double clic ailleurs, empêcher l'édition
        Cancel = True
    End If
End Sub

Bonjour.

Super, et grand merci !!