Discussion :

[StabiloHB]

Bonjour à tous,

Je voudrais faire un bouton que j'accrocherais au ruban (qui soit donc valable dans nimporte quel fichier excel) qui me permetterai d'effectuer une macro.
Je n'ai pas encore cherché pour cette partie je l'avoue car j'ai encore un problème avec ma macro :

La macro devra permettre d'ajouter un fichier avec l'icone qui correspond dans la feuille active.

J'ai trouvé ce code sur le net qui je pense est une bonne base, mais je suis malheuresement pas assez doué en VBA pour le modifier proprement.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Sub InsererPDF()
 
Dim Obj As OLEObject
 
Dim Chemin As Variant
 
Dim T As String
 
    Chemin = Application.GetOpenFilename(Title:="Parcourir")
 
    If Chemin = False Then Exit Sub
 
    Application.ScreenUpdating = False
 
 
 
    With ActiveSheet
 
        On Error Resume Next
 
        .Name = Left(Mid(Chemin, InStrRev(Chemin, "") + 1), 31)
 
 
        Set Obj = .OLEObjects.Add(Filename:=Chemin, Link:=True, DisplayAsIcon:=True)
 
    End With
 
    Obj.Left = 1
 
    Obj.Top = 1
 
    Application.ScreenUpdating = True
 
End Sub

Ce code m'ajoute une feuille pour chaque fichier entré, il faut changer le with avec activesheet je pense. Je ne sais pas non plus comment élargir à tout type de fichier et pour finir l'icone du fichier ne s'affiche pas.

EDIT : j'ai reussis à changer pour tout type de fichier et le mettre sur la feuille active. Mais il reste toujours le problème des icones

Merci d'avance,

Valentin

[Invité]

Je voudrais faire un bouton que j'accrocherais au ruban (qui soit donc valable dans nimporte quel fichier excel) qui me permetterai d'effectuer une macro.

Bonjour,

Regardez aussi du côté des macros complémentaires un exemple

[patricktoulon]

bonjour
j'avoue que c'est ambiguë ta demande au vue du code que tu montre

si ton but est de mettre une commandbar supplémentaire avec un/des boutons dans le ruban
voici un début de piste

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub Ajout_Barre()
    Sup_Cbar
    Set mabar = CommandBars.Add("mabarre", msoBarTop, , True)
    mabar.Visible = True
    With mabar.Controls.Add(msoControlButton)    '<-- création du bouton
        .Style = msoButtonIconAndCaption    '<-- bouton avec icône + texte
        .FaceId = 256
        .Caption = "Bouton 1"    '<-- texte du bouton
        OnAction = "mamacro"
    End With
End Sub
Sub Sup_Cbar()
    Dim Cbar As CommandBar
    For Each Cbar In CommandBars
        If Cbar.BuiltIn = False Then Cbar.Delete
    Next
End Sub
Sub mamacro()
    MsgBox "vous avez cliqué sur le bouton de la nouvelle commandbar " & CommandBar.ActionControl.Tag
End Sub

mettre cela dans le xlb ou un xla/m et activer la référence dans les option pour l'avoir partout sinon on peut l'activer par vba sur un classeur en particulier