voila une macro qui fonctionne dans word, et je souhaiterai l'ajouter dans
Excel
la ligne qui bloque : CustomizationContext = Application.NormalTemplate
Avez vous une idée ?
Sub AddMenu()
Dim omainmenubar As Object
Dim onewmenu As Object
Dim osousmenu As Object
Dim osousmenu1 As Object
--> CustomizationContext = Application.NormalTemplate
Set omainmenubar = CommandBars.Item("menu bar")
Set onewmenu = omainmenubar.Controls.Add(Type:=msoControlPopup)
onewmenu.Caption = "macros"
Set osousmenu = onewmenu.Controls.Add(Type:=msoBarTypeMenuBar)
Set osousmenu1 = onewmenu.Controls.Add(Type:=msoBarTypeMenuBar)
osousmenu.Caption = "macro1"
osousmenu.OnAction = "mamacro1"
osousmenu1.Caption = "macro2"
osousmenu1.OnAction = "mamacro2"
End Sub
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Patrick Fredin
Bonjour,
Je pense que cela fait appel à une propriété particulière à Word. Donc, je pense qu'il faut tout simplement la supprimer.
-- Patrick
"Greg Etition" wrote in message news:ct4vh8$j39$
Bonjour a tous
voila une macro qui fonctionne dans word, et je souhaiterai l'ajouter dans Excel la ligne qui bloque : CustomizationContext = Application.NormalTemplate
Avez vous une idée ?
Sub AddMenu() Dim omainmenubar As Object Dim onewmenu As Object Dim osousmenu As Object Dim osousmenu1 As Object --> CustomizationContext = Application.NormalTemplate Set omainmenubar = CommandBars.Item("menu bar") Set onewmenu = omainmenubar.Controls.Add(Type:=msoControlPopup) onewmenu.Caption = "macros" Set osousmenu = onewmenu.Controls.Add(Type:=msoBarTypeMenuBar) Set osousmenu1 = onewmenu.Controls.Add(Type:=msoBarTypeMenuBar) osousmenu.Caption = "macro1" osousmenu.OnAction = "mamacro1" osousmenu1.Caption = "macro2" osousmenu1.OnAction = "mamacro2" End Sub
Merci beaucoup !
Bonjour,
Je pense que cela fait appel à une propriété particulière à Word. Donc, je
pense qu'il faut tout simplement la supprimer.
--
Patrick
"Greg Etition" <getition@hotmail.com> wrote in message
news:ct4vh8$j39$1@s1.news.oleane.net...
Bonjour a tous
voila une macro qui fonctionne dans word, et je souhaiterai l'ajouter dans
Excel
la ligne qui bloque : CustomizationContext = Application.NormalTemplate
Avez vous une idée ?
Sub AddMenu()
Dim omainmenubar As Object
Dim onewmenu As Object
Dim osousmenu As Object
Dim osousmenu1 As Object
--> CustomizationContext = Application.NormalTemplate
Set omainmenubar = CommandBars.Item("menu bar")
Set onewmenu = omainmenubar.Controls.Add(Type:=msoControlPopup)
onewmenu.Caption = "macros"
Set osousmenu = onewmenu.Controls.Add(Type:=msoBarTypeMenuBar)
Set osousmenu1 = onewmenu.Controls.Add(Type:=msoBarTypeMenuBar)
osousmenu.Caption = "macro1"
osousmenu.OnAction = "mamacro1"
osousmenu1.Caption = "macro2"
osousmenu1.OnAction = "mamacro2"
End Sub
Je pense que cela fait appel à une propriété particulière à Word. Donc, je pense qu'il faut tout simplement la supprimer.
-- Patrick
"Greg Etition" wrote in message news:ct4vh8$j39$
Bonjour a tous
voila une macro qui fonctionne dans word, et je souhaiterai l'ajouter dans Excel la ligne qui bloque : CustomizationContext = Application.NormalTemplate
Avez vous une idée ?
Sub AddMenu() Dim omainmenubar As Object Dim onewmenu As Object Dim osousmenu As Object Dim osousmenu1 As Object --> CustomizationContext = Application.NormalTemplate Set omainmenubar = CommandBars.Item("menu bar") Set onewmenu = omainmenubar.Controls.Add(Type:=msoControlPopup) onewmenu.Caption = "macros" Set osousmenu = onewmenu.Controls.Add(Type:=msoBarTypeMenuBar) Set osousmenu1 = onewmenu.Controls.Add(Type:=msoBarTypeMenuBar) osousmenu.Caption = "macro1" osousmenu.OnAction = "mamacro1" osousmenu1.Caption = "macro2" osousmenu1.OnAction = "mamacro2" End Sub
