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
MichDenis
J'ai des interrogations sur ceci dans ta procédure : before:=Max(0, PositionOrMacro - 1), _
Essaie ceci :
'--------------------------------- Sub test()
Dim MenuObject As CommandBarControl Set MenuObject = Application.CommandBars(1). _ Controls.Add(Type:=msoControlPopup, _ before:=1, _ Temporary:=True) With MenuObject .Caption = "toto" End With Set MenuObject = Nothing
End Sub '---------------------------------
"pcouas" a écrit dans le message de news:
Bonsoir,
J'ai deux PC XP PRO et Excel 2002 SP3, avec en securite des Macro moyenne
Lorsque j'utilise Set MenuObject = Application.CommandBars(1). _ Controls.Add(Type:=msoControlPopup, _ before:=Max(0, PositionOrMacro - 1), _ Temporary:=True) MenuObject.Caption = Caption
Cela fonctionne sur un PC et pas sur l'autre !
Quelqu'un aurait il une idee ?
Merci d'avance Philipppe
J'ai des interrogations sur ceci dans ta procédure :
before:=Max(0, PositionOrMacro - 1), _
Essaie ceci :
'---------------------------------
Sub test()
Dim MenuObject As CommandBarControl
Set MenuObject = Application.CommandBars(1). _
Controls.Add(Type:=msoControlPopup, _
before:=1, _
Temporary:=True)
With MenuObject
.Caption = "toto"
End With
Set MenuObject = Nothing
End Sub
'---------------------------------
"pcouas" <pcouas@infodev.fr> a écrit dans le message de news:
1159976841.030305.68510@e3g2000cwe.googlegroups.com...
Bonsoir,
J'ai deux PC XP PRO et Excel 2002 SP3, avec en securite des Macro
moyenne
Lorsque j'utilise
Set MenuObject = Application.CommandBars(1). _
Controls.Add(Type:=msoControlPopup, _
before:=Max(0, PositionOrMacro - 1), _
Temporary:=True)
MenuObject.Caption = Caption
J'ai des interrogations sur ceci dans ta procédure : before:=Max(0, PositionOrMacro - 1), _
Essaie ceci :
'--------------------------------- Sub test()
Dim MenuObject As CommandBarControl Set MenuObject = Application.CommandBars(1). _ Controls.Add(Type:=msoControlPopup, _ before:=1, _ Temporary:=True) With MenuObject .Caption = "toto" End With Set MenuObject = Nothing
End Sub '---------------------------------
"pcouas" a écrit dans le message de news:
Bonsoir,
J'ai deux PC XP PRO et Excel 2002 SP3, avec en securite des Macro moyenne
Lorsque j'utilise Set MenuObject = Application.CommandBars(1). _ Controls.Add(Type:=msoControlPopup, _ before:=Max(0, PositionOrMacro - 1), _ Temporary:=True) MenuObject.Caption = Caption
Cela fonctionne sur un PC et pas sur l'autre !
Quelqu'un aurait il une idee ?
Merci d'avance Philipppe
camerboy
Bonjour à tous, Pierre comment accrocher une tache (macro) au menu créer ?
Cordialement
"MichDenis" a écrit dans le message de news:
J'ai des interrogations sur ceci dans ta procédure : before:=Max(0, PositionOrMacro - 1), _
Essaie ceci :
'--------------------------------- Sub test()
Dim MenuObject As CommandBarControl Set MenuObject = Application.CommandBars(1). _ Controls.Add(Type:=msoControlPopup, _ before:=1, _ Temporary:=True) With MenuObject .Caption = "toto" End With Set MenuObject = Nothing
End Sub '---------------------------------
"pcouas" a écrit dans le message de news:
Bonsoir,
J'ai deux PC XP PRO et Excel 2002 SP3, avec en securite des Macro moyenne
Lorsque j'utilise Set MenuObject = Application.CommandBars(1). _ Controls.Add(Type:=msoControlPopup, _ before:=Max(0, PositionOrMacro - 1), _ Temporary:=True) MenuObject.Caption = Caption
Cela fonctionne sur un PC et pas sur l'autre !
Quelqu'un aurait il une idee ?
Merci d'avance Philipppe
Bonjour à tous,
Pierre comment accrocher une tache (macro) au menu créer ?
Cordialement
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
OsfESE95GHA.2208@TK2MSFTNGP04.phx.gbl...
J'ai des interrogations sur ceci dans ta procédure :
before:=Max(0, PositionOrMacro - 1), _
Essaie ceci :
'---------------------------------
Sub test()
Dim MenuObject As CommandBarControl
Set MenuObject = Application.CommandBars(1). _
Controls.Add(Type:=msoControlPopup, _
before:=1, _
Temporary:=True)
With MenuObject
.Caption = "toto"
End With
Set MenuObject = Nothing
End Sub
'---------------------------------
"pcouas" <pcouas@infodev.fr> a écrit dans le message de news:
1159976841.030305.68510@e3g2000cwe.googlegroups.com...
Bonsoir,
J'ai deux PC XP PRO et Excel 2002 SP3, avec en securite des Macro
moyenne
Lorsque j'utilise
Set MenuObject = Application.CommandBars(1). _
Controls.Add(Type:=msoControlPopup, _
before:=Max(0, PositionOrMacro - 1), _
Temporary:=True)
MenuObject.Caption = Caption
Bonjour à tous, Pierre comment accrocher une tache (macro) au menu créer ?
Cordialement
"MichDenis" a écrit dans le message de news:
J'ai des interrogations sur ceci dans ta procédure : before:=Max(0, PositionOrMacro - 1), _
Essaie ceci :
'--------------------------------- Sub test()
Dim MenuObject As CommandBarControl Set MenuObject = Application.CommandBars(1). _ Controls.Add(Type:=msoControlPopup, _ before:=1, _ Temporary:=True) With MenuObject .Caption = "toto" End With Set MenuObject = Nothing
End Sub '---------------------------------
"pcouas" a écrit dans le message de news:
Bonsoir,
J'ai deux PC XP PRO et Excel 2002 SP3, avec en securite des Macro moyenne
Lorsque j'utilise Set MenuObject = Application.CommandBars(1). _ Controls.Add(Type:=msoControlPopup, _ before:=Max(0, PositionOrMacro - 1), _ Temporary:=True) MenuObject.Caption = Caption
Cela fonctionne sur un PC et pas sur l'autre !
Quelqu'un aurait il une idee ?
Merci d'avance Philipppe
jps
pas sûr d'avoir compris, camerboy regarde du côté de
.OnAction = "NomDeTaMacro"
jps
"camerboy" a écrit dans le message de news:
Bonjour à tous, Pierre comment accrocher une tache (macro) au menu créer ?
Cordialement
"MichDenis" a écrit dans le message de news:
J'ai des interrogations sur ceci dans ta procédure : before:=Max(0, PositionOrMacro - 1), _
Essaie ceci :
'--------------------------------- Sub test()
Dim MenuObject As CommandBarControl Set MenuObject = Application.CommandBars(1). _ Controls.Add(Type:=msoControlPopup, _ before:=1, _ Temporary:=True) With MenuObject .Caption = "toto" End With Set MenuObject = Nothing
End Sub '---------------------------------
"pcouas" a écrit dans le message de news:
Bonsoir,
J'ai deux PC XP PRO et Excel 2002 SP3, avec en securite des Macro moyenne
Lorsque j'utilise Set MenuObject = Application.CommandBars(1). _ Controls.Add(Type:=msoControlPopup, _ before:=Max(0, PositionOrMacro - 1), _ Temporary:=True) MenuObject.Caption = Caption
Cela fonctionne sur un PC et pas sur l'autre !
Quelqu'un aurait il une idee ?
Merci d'avance Philipppe
pas sûr d'avoir compris, camerboy
regarde du côté de
.OnAction = "NomDeTaMacro"
jps
"camerboy" <npl@iccnet2000.com> a écrit dans le message de news:
OhqY3QF6GHA.3508@TK2MSFTNGP06.phx.gbl...
Bonjour à tous,
Pierre comment accrocher une tache (macro) au menu créer ?
Cordialement
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
OsfESE95GHA.2208@TK2MSFTNGP04.phx.gbl...
J'ai des interrogations sur ceci dans ta procédure :
before:=Max(0, PositionOrMacro - 1), _
Essaie ceci :
'---------------------------------
Sub test()
Dim MenuObject As CommandBarControl
Set MenuObject = Application.CommandBars(1). _
Controls.Add(Type:=msoControlPopup, _
before:=1, _
Temporary:=True)
With MenuObject
.Caption = "toto"
End With
Set MenuObject = Nothing
End Sub
'---------------------------------
"pcouas" <pcouas@infodev.fr> a écrit dans le message de news:
1159976841.030305.68510@e3g2000cwe.googlegroups.com...
Bonsoir,
J'ai deux PC XP PRO et Excel 2002 SP3, avec en securite des Macro
moyenne
Lorsque j'utilise
Set MenuObject = Application.CommandBars(1). _
Controls.Add(Type:=msoControlPopup, _
before:=Max(0, PositionOrMacro - 1), _
Temporary:=True)
MenuObject.Caption = Caption
pas sûr d'avoir compris, camerboy regarde du côté de
.OnAction = "NomDeTaMacro"
jps
"camerboy" a écrit dans le message de news:
Bonjour à tous, Pierre comment accrocher une tache (macro) au menu créer ?
Cordialement
"MichDenis" a écrit dans le message de news:
J'ai des interrogations sur ceci dans ta procédure : before:=Max(0, PositionOrMacro - 1), _
Essaie ceci :
'--------------------------------- Sub test()
Dim MenuObject As CommandBarControl Set MenuObject = Application.CommandBars(1). _ Controls.Add(Type:=msoControlPopup, _ before:=1, _ Temporary:=True) With MenuObject .Caption = "toto" End With Set MenuObject = Nothing
End Sub '---------------------------------
"pcouas" a écrit dans le message de news:
Bonsoir,
J'ai deux PC XP PRO et Excel 2002 SP3, avec en securite des Macro moyenne
Lorsque j'utilise Set MenuObject = Application.CommandBars(1). _ Controls.Add(Type:=msoControlPopup, _ before:=Max(0, PositionOrMacro - 1), _ Temporary:=True) MenuObject.Caption = Caption
Cela fonctionne sur un PC et pas sur l'autre !
Quelqu'un aurait il une idee ?
Merci d'avance Philipppe
MichDenis
Voici un exemple : Ceci ajoute un menu avant Fichier et et un sous-menu "Bonjour" qui exécute la macro bonjour lors d'un clic.
'--------------------------- Sub test()
Dim x As Office.MsoButtonStyle x = msoButtonIconAndCaption
Dim MenuObject As CommandBarControl Set MenuObject = Application.CommandBars(1). _ Controls.Add(Type:=msoControlPopup, _ before:=1, _ Temporary:=True) With MenuObject .Caption = "toto" With .Controls.Add .Style = x 'Variable peut avoir différente valeur .FaceId = 125 ' Icône du bouton .Caption = "Bonjour" ' Libélé du bouton .OnAction = "Bonjour" ' Le nom de la macro à exécuter End With End With Set MenuObject = Nothing
End Sub
'--------------------------- Sub bonjour() MsgBox "Bonjour" End Sub '---------------------------
"camerboy" a écrit dans le message de news:
Bonjour à tous, Pierre comment accrocher une tache (macro) au menu créer ?
Cordialement
"MichDenis" a écrit dans le message de news:
J'ai des interrogations sur ceci dans ta procédure : before:=Max(0, PositionOrMacro - 1), _
Essaie ceci :
'--------------------------------- Sub test()
Dim MenuObject As CommandBarControl Set MenuObject = Application.CommandBars(1). _ Controls.Add(Type:=msoControlPopup, _ before:=1, _ Temporary:=True) With MenuObject .Caption = "toto" End With Set MenuObject = Nothing
End Sub '---------------------------------
"pcouas" a écrit dans le message de news:
Bonsoir,
J'ai deux PC XP PRO et Excel 2002 SP3, avec en securite des Macro moyenne
Lorsque j'utilise Set MenuObject = Application.CommandBars(1). _ Controls.Add(Type:=msoControlPopup, _ before:=Max(0, PositionOrMacro - 1), _ Temporary:=True) MenuObject.Caption = Caption
Cela fonctionne sur un PC et pas sur l'autre !
Quelqu'un aurait il une idee ?
Merci d'avance Philipppe
Voici un exemple : Ceci ajoute un menu avant Fichier et
et un sous-menu "Bonjour" qui exécute la macro bonjour
lors d'un clic.
'---------------------------
Sub test()
Dim x As Office.MsoButtonStyle
x = msoButtonIconAndCaption
Dim MenuObject As CommandBarControl
Set MenuObject = Application.CommandBars(1). _
Controls.Add(Type:=msoControlPopup, _
before:=1, _
Temporary:=True)
With MenuObject
.Caption = "toto"
With .Controls.Add
.Style = x 'Variable peut avoir différente valeur
.FaceId = 125 ' Icône du bouton
.Caption = "Bonjour" ' Libélé du bouton
.OnAction = "Bonjour" ' Le nom de la macro à exécuter
End With
End With
Set MenuObject = Nothing
End Sub
'---------------------------
Sub bonjour()
MsgBox "Bonjour"
End Sub
'---------------------------
"camerboy" <npl@iccnet2000.com> a écrit dans le message de news:
OhqY3QF6GHA.3508@TK2MSFTNGP06.phx.gbl...
Bonjour à tous,
Pierre comment accrocher une tache (macro) au menu créer ?
Cordialement
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
OsfESE95GHA.2208@TK2MSFTNGP04.phx.gbl...
J'ai des interrogations sur ceci dans ta procédure :
before:=Max(0, PositionOrMacro - 1), _
Essaie ceci :
'---------------------------------
Sub test()
Dim MenuObject As CommandBarControl
Set MenuObject = Application.CommandBars(1). _
Controls.Add(Type:=msoControlPopup, _
before:=1, _
Temporary:=True)
With MenuObject
.Caption = "toto"
End With
Set MenuObject = Nothing
End Sub
'---------------------------------
"pcouas" <pcouas@infodev.fr> a écrit dans le message de news:
1159976841.030305.68510@e3g2000cwe.googlegroups.com...
Bonsoir,
J'ai deux PC XP PRO et Excel 2002 SP3, avec en securite des Macro
moyenne
Lorsque j'utilise
Set MenuObject = Application.CommandBars(1). _
Controls.Add(Type:=msoControlPopup, _
before:=Max(0, PositionOrMacro - 1), _
Temporary:=True)
MenuObject.Caption = Caption
Voici un exemple : Ceci ajoute un menu avant Fichier et et un sous-menu "Bonjour" qui exécute la macro bonjour lors d'un clic.
'--------------------------- Sub test()
Dim x As Office.MsoButtonStyle x = msoButtonIconAndCaption
Dim MenuObject As CommandBarControl Set MenuObject = Application.CommandBars(1). _ Controls.Add(Type:=msoControlPopup, _ before:=1, _ Temporary:=True) With MenuObject .Caption = "toto" With .Controls.Add .Style = x 'Variable peut avoir différente valeur .FaceId = 125 ' Icône du bouton .Caption = "Bonjour" ' Libélé du bouton .OnAction = "Bonjour" ' Le nom de la macro à exécuter End With End With Set MenuObject = Nothing
End Sub
'--------------------------- Sub bonjour() MsgBox "Bonjour" End Sub '---------------------------
"camerboy" a écrit dans le message de news:
Bonjour à tous, Pierre comment accrocher une tache (macro) au menu créer ?
Cordialement
"MichDenis" a écrit dans le message de news:
J'ai des interrogations sur ceci dans ta procédure : before:=Max(0, PositionOrMacro - 1), _
Essaie ceci :
'--------------------------------- Sub test()
Dim MenuObject As CommandBarControl Set MenuObject = Application.CommandBars(1). _ Controls.Add(Type:=msoControlPopup, _ before:=1, _ Temporary:=True) With MenuObject .Caption = "toto" End With Set MenuObject = Nothing
End Sub '---------------------------------
"pcouas" a écrit dans le message de news:
Bonsoir,
J'ai deux PC XP PRO et Excel 2002 SP3, avec en securite des Macro moyenne
Lorsque j'utilise Set MenuObject = Application.CommandBars(1). _ Controls.Add(Type:=msoControlPopup, _ before:=Max(0, PositionOrMacro - 1), _ Temporary:=True) MenuObject.Caption = Caption
Cela fonctionne sur un PC et pas sur l'autre !
Quelqu'un aurait il une idee ?
Merci d'avance Philipppe
pcouas
Bonjour,
Excel à été re-installé, et cela fonctionne Merci de vos reponses Philippe
MichDenis wrote:
Voici un exemple : Ceci ajoute un menu avant Fichier et et un sous-menu "Bonjour" qui exécute la macro bonjour lors d'un clic.
'--------------------------- Sub test()
Dim x As Office.MsoButtonStyle x = msoButtonIconAndCaption
Dim MenuObject As CommandBarControl Set MenuObject = Application.CommandBars(1). _ Controls.Add(Type:=msoControlPopup, _ before:=1, _ Temporary:=True) With MenuObject .Caption = "toto" With .Controls.Add .Style = x 'Variable peut avoir différente valeur .FaceId = 125 ' Icône du bouton .Caption = "Bonjour" ' Libélé du bouton .OnAction = "Bonjour" ' Le nom de la macro à exécuter End With End With Set MenuObject = Nothing
End Sub
'--------------------------- Sub bonjour() MsgBox "Bonjour" End Sub '---------------------------
"camerboy" a écrit dans le message de news:
Bonjour à tous, Pierre comment accrocher une tache (macro) au menu créer ?
Cordialement
"MichDenis" a écrit dans le message de news:
J'ai des interrogations sur ceci dans ta procédure : before:=Max(0, PositionOrMacro - 1), _
Essaie ceci :
'--------------------------------- Sub test()
Dim MenuObject As CommandBarControl Set MenuObject = Application.CommandBars(1). _ Controls.Add(Type:=msoControlPopup, _ before:=1, _ Temporary:=True) With MenuObject .Caption = "toto" End With Set MenuObject = Nothing
End Sub '---------------------------------
"pcouas" a écrit dans le message de news:
Bonsoir,
J'ai deux PC XP PRO et Excel 2002 SP3, avec en securite des Macro moyenne
Lorsque j'utilise Set MenuObject = Application.CommandBars(1). _ Controls.Add(Type:=msoControlPopup, _ before:=Max(0, PositionOrMacro - 1), _ Temporary:=True) MenuObject.Caption = Caption
Cela fonctionne sur un PC et pas sur l'autre !
Quelqu'un aurait il une idee ?
Merci d'avance Philipppe
Bonjour,
Excel à été re-installé, et cela fonctionne
Merci de vos reponses
Philippe
MichDenis wrote:
Voici un exemple : Ceci ajoute un menu avant Fichier et
et un sous-menu "Bonjour" qui exécute la macro bonjour
lors d'un clic.
'---------------------------
Sub test()
Dim x As Office.MsoButtonStyle
x = msoButtonIconAndCaption
Dim MenuObject As CommandBarControl
Set MenuObject = Application.CommandBars(1). _
Controls.Add(Type:=msoControlPopup, _
before:=1, _
Temporary:=True)
With MenuObject
.Caption = "toto"
With .Controls.Add
.Style = x 'Variable peut avoir différente valeur
.FaceId = 125 ' Icône du bouton
.Caption = "Bonjour" ' Libélé du bouton
.OnAction = "Bonjour" ' Le nom de la macro à exécuter
End With
End With
Set MenuObject = Nothing
End Sub
'---------------------------
Sub bonjour()
MsgBox "Bonjour"
End Sub
'---------------------------
"camerboy" <npl@iccnet2000.com> a écrit dans le message de news:
OhqY3QF6GHA.3508@TK2MSFTNGP06.phx.gbl...
Bonjour à tous,
Pierre comment accrocher une tache (macro) au menu créer ?
Cordialement
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
OsfESE95GHA.2208@TK2MSFTNGP04.phx.gbl...
J'ai des interrogations sur ceci dans ta procédure :
before:=Max(0, PositionOrMacro - 1), _
Essaie ceci :
'---------------------------------
Sub test()
Dim MenuObject As CommandBarControl
Set MenuObject = Application.CommandBars(1). _
Controls.Add(Type:=msoControlPopup, _
before:=1, _
Temporary:=True)
With MenuObject
.Caption = "toto"
End With
Set MenuObject = Nothing
End Sub
'---------------------------------
"pcouas" <pcouas@infodev.fr> a écrit dans le message de news:
1159976841.030305.68510@e3g2000cwe.googlegroups.com...
Bonsoir,
J'ai deux PC XP PRO et Excel 2002 SP3, avec en securite des Macro
moyenne
Lorsque j'utilise
Set MenuObject = Application.CommandBars(1). _
Controls.Add(Type:=msoControlPopup, _
before:=Max(0, PositionOrMacro - 1), _
Temporary:=True)
MenuObject.Caption = Caption
Excel à été re-installé, et cela fonctionne Merci de vos reponses Philippe
MichDenis wrote:
Voici un exemple : Ceci ajoute un menu avant Fichier et et un sous-menu "Bonjour" qui exécute la macro bonjour lors d'un clic.
'--------------------------- Sub test()
Dim x As Office.MsoButtonStyle x = msoButtonIconAndCaption
Dim MenuObject As CommandBarControl Set MenuObject = Application.CommandBars(1). _ Controls.Add(Type:=msoControlPopup, _ before:=1, _ Temporary:=True) With MenuObject .Caption = "toto" With .Controls.Add .Style = x 'Variable peut avoir différente valeur .FaceId = 125 ' Icône du bouton .Caption = "Bonjour" ' Libélé du bouton .OnAction = "Bonjour" ' Le nom de la macro à exécuter End With End With Set MenuObject = Nothing
End Sub
'--------------------------- Sub bonjour() MsgBox "Bonjour" End Sub '---------------------------
"camerboy" a écrit dans le message de news:
Bonjour à tous, Pierre comment accrocher une tache (macro) au menu créer ?
Cordialement
"MichDenis" a écrit dans le message de news:
J'ai des interrogations sur ceci dans ta procédure : before:=Max(0, PositionOrMacro - 1), _
Essaie ceci :
'--------------------------------- Sub test()
Dim MenuObject As CommandBarControl Set MenuObject = Application.CommandBars(1). _ Controls.Add(Type:=msoControlPopup, _ before:=1, _ Temporary:=True) With MenuObject .Caption = "toto" End With Set MenuObject = Nothing
End Sub '---------------------------------
"pcouas" a écrit dans le message de news:
Bonsoir,
J'ai deux PC XP PRO et Excel 2002 SP3, avec en securite des Macro moyenne
Lorsque j'utilise Set MenuObject = Application.CommandBars(1). _ Controls.Add(Type:=msoControlPopup, _ before:=Max(0, PositionOrMacro - 1), _ Temporary:=True) MenuObject.Caption = Caption
