Affectation macro a des boutons

Enigme · 8 Octobre 2003

Bonjour,
j'ai créé un fichier excel, avec des macros et une barre d'outils personnalisée. Dans cette barre d'outils, des macros sont affectées à des boutons.
Mon probleme est le suivant :
Si l'utilisateur enregistre sous un autre non de fichier le fichier en cours, les macros fonctionne corectement à l'ouverture du fichier renommé.
En revanche, si l'utilisateur renomme son fichier directement depuis l'explorateur par exemple, les liens ne sont alors plus conservés...
Comment faire ? En faisant un module qui réaffecte chaque macro à chaque bouton de la barre d'outils à l'ouverture du classeur ? Si oui, comment ?
Si vous avez plus simple... welcome !..

Merci

david · 9 Octobre 2003

faire une barre d'outil via VBA et la lancer a l'ouverture
dans thisworkbook ---> open
dans un module la barre avec ce code
Sub nouvelle_barre()
Dim mabar As CommandBar
Dim Button As CommandBarButton

On Error Resume Next
CommandBars("MaBarre").Delete 'faire le ménage
On Error GoTo 0

Set mabar = CommandBars.Add
For T = 1 To 3
Set Button = mabar.Controls.Add(msoControlButton)
With Button
.OnAction = "Macro" & T 'ça c'est la macro
.FaceId = T + 55 'et ça l'image du bouton
End With
Next T
mabar.Name = "MaBarre" 'le nom qui apparaitra dans la liste
With mabar
.Visible = True 'et la s'affiche l'oeuvre sonnez aubois resonnee etc,etc..
End With
'en dessous la fin
End Sub

___________
aprés à la fermeture tj ds thisWorkbook --> close

CommandBars("MaBarre").Delete

si ça te depanne tan mieux
A+ G.David

Affectation macro a des boutons

Enigme

Guest

david

Guest

Discussions similaires