Macro insérer objet

Version imprimable

Macro insérer objet

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:

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

29/07/2017, 07h51
Invité

Citation:

Envoyé par StabiloHB

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

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:

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