Lien Internet dans barre outils

[MJ13]

Bonjour à tous

J'ai cette macro qui permet de créer une barre d'outils avec des liens internet (j'en ai mis 2 très connus pour l'essai).
Mais je n'arrive pas a coder pour que la macro "lance" trouve le n ième élément coché pour lancer le lien hypertexte.

Remarquez, si, on pouvait le mettre directement dasn la barre d'outils sans passer par le fcihier ce serait bien aussi, mais la j'ai un doute.

Merci d'avance. Voir le fichier joint (je vous conseille ed le copier sur votre DD pour le test).

 

[Pierrot93]

Re : Lien Internet dans barre outils

Bonsoir Michel

regarde le code ci dessous, si j'ai bien compris ta demande, créé des liens internet dans une barre d'outils :

Sub CreationBarreLienHypertexte()
Dim m As CommandBar, c1 As CommandBarPopup, c2 As CommandBarButton, c3 As CommandBarButton
Set m = CommandBars.Add("MesLiens")
m.Visible = True
Set c1 = m.Controls.Add(msoControlPopup)
With c1
    .Caption = "Mes Adresses Internet"
    Set c2 = .Controls.Add(msoControlButton)
    Set c3 = .Controls.Add(msoControlButton)
End With
With c2
    .Caption = "XLD"
    .HyperlinkType = msoCommandBarButtonHyperlinkOpen
    .TooltipText = "http://www.excel-downloads.com/forum/forum-excel/"
End With
With c3
    .Caption = "Google"
    .HyperlinkType = msoCommandBarButtonHyperlinkOpen
    .TooltipText = "http://www.google.fr/"
End With
End Sub

bonne soirée
@+

 

[MJ13]

Re : Lien Internet dans barre outils

Bonjour Pierrot, le forum

Merci pour ce code qui est très bien.
Du coup je l'ai adapté à ma problèmatique pour mon fichier avec ce code.
Mais ne pourrait t'on pas indicer le c pour faire une boucle (je n'y suis pas arrivé , je ne suis malheureument pas aussi calé que toi)?

Encore merci
Bonne journée.

Sub CreationBarreLienHypertextebis()
'Isssu du code de Pierrot93 adapté par MJ
Dim m As CommandBar, c As CommandBarPopup ', c(100) As String
On Error Resume Next
 CommandBars("Internet").Delete
Set m = CommandBars.Add("internet")
m.Visible = True
Set c1 = m.Controls.Add(msoControlPopup)
Set c1 = m.Controls.Add(msoControlPopup)
With c1
.Caption = "Internet"
'For i = 2 To 3
 
        'Set c(i) = .Controls.Add(msoControlButton)
  n = 4
    Set c2 = .Controls.Add(msoControlButton)
With c2
If Range("a" & n).Value = "" Then End
    .Caption = Range("a" & n).Value
        .HyperlinkType = msoCommandBarButtonHyperlinkOpen
    .TooltipText = Range("b" & n).Value
    n = n + 1
End With
    Set c3 = .Controls.Add(msoControlButton)
With c3
If Range("a" & n).Value = "" Then End
    .Caption = Range("a" & n).Value
        .HyperlinkType = msoCommandBarButtonHyperlinkOpen
    .TooltipText = Range("b" & n).Value
    n = n + 1
End With
    Set c4 = .Controls.Add(msoControlButton)
 
 With c4
 If Range("a" & n).Value = "" Then End
    .Caption = Range("a" & n).Value
        .HyperlinkType = msoCommandBarButtonHyperlinkOpen
    .TooltipText = Range("b" & n).Value
    n = n + 1
End With
    Set c5 = .Controls.Add(msoControlButton)
    With c5
    If Range("a" & n).Value = "" Then End
    .Caption = Range("a" & n).Value
        .HyperlinkType = msoCommandBarButtonHyperlinkOpen
    .TooltipText = Range("b" & n).Value
    n = n + 1
    End With
    Set c6 = .Controls.Add(msoControlButton)
    With c6
    If Range("a" & n).Value = "" Then End
    .Caption = Range("a" & n).Value
        .HyperlinkType = msoCommandBarButtonHyperlinkOpen
    .TooltipText = Range("b" & n).Value
    n = n + 1
    End With
    Set c7 = .Controls.Add(msoControlButton)
    With c7
    If Range("a" & n).Value = "" Then End
    .Caption = Range("a" & n).Value
        .HyperlinkType = msoCommandBarButtonHyperlinkOpen
    .TooltipText = Range("b" & n).Value
    n = n + 1
End With
    Set c8 = .Controls.Add(msoControlButton)
    With c8
    If Range("a" & n).Value = "" Then End
   .Caption = Range("a" & n).Value
        .HyperlinkType = msoCommandBarButtonHyperlinkOpen
    .TooltipText = Range("b" & n).Value
    n = n + 1
End With
    Set c9 = .Controls.Add(msoControlButton)
    With c9
    If Range("a" & n).Value = "" Then End
    .Caption = Range("a" & n).Value
        .HyperlinkType = msoCommandBarButtonHyperlinkOpen
    .TooltipText = Range("b" & n).Value
    n = n + 1
End With
    Set c10 = .Controls.Add(msoControlButton)
    With c10
    If Range("a" & n).Value = "" Then End
    .Caption = Range("a" & n).Value
        .HyperlinkType = msoCommandBarButtonHyperlinkOpen
    .TooltipText = Range("b" & n).Value
    n = n + 1
End With
End With
End Sub

 

[Pierrot93]

Re : Lien Internet dans barre outils

Bonjour Michel

en faisant une boucle cela pourrais donner ceci, exemple pour 2 liens (à adapter), noms dans la colonne A et adresses dans la colonne B, tout ca à partir de la ligne 1 :

Option Explicit
Sub CreationBarreLienHypertexte()
Dim m As CommandBar, c1 As CommandBarPopup, c2 As CommandBarButton,i As Byte
Set m = CommandBars.Add("MesLiens")
m.Visible = True
Set c1 = m.Controls.Add(msoControlPopup)
With c1
    .Caption = "Mes Adresses Internet"
    For i = 1 To 2
        Set c2 = .Controls.Add(msoControlButton)
        With c2
        .Caption = Cells(i, 1).Value
        .HyperlinkType = msoCommandBarButtonHyperlinkOpen
        .TooltipText = Cells(i, 2).Value
    End With
    Set c2 = Nothing
    Next i
End With
End Sub

bon après midi
@+

 

[MJ13]

Re : Lien Internet dans barre outils

Re bonjour Pierrot

Merci, c'est tip top, ce qu'il me fallait, pour du condensé de macro, on peut pas faire mieux.

En plus, on peut même, mettre des noms de fichiers.

Encore un post dans mes favoris.

Bonne soirée.