-----Message d'origine-----
Salut à toutes et tous
C'est un peu long, mais pas vraiment technique...
Je dois rendre un fichier Excel pour lequel j'ai créé
quelques macros.
Pour de raisons de Corporate Identity, je dois shooté
tout mes boutons sur les feuilles Excel et mettre tout ça
dans un menu à la place
A ce sujet, j'ai une question et un problème.
Voici ma question:
Si mon GU (gentil utilisateur) ouvre son fichier, le menu
vient, ça ok. Mais si mon GU ouvre un autre fichier que
celui dans lequel j'ai placé ce nouveau menu, est-ce que
ce menu va apparaître ? (J'aimerai pas en fait)
et voici mon problème:
Mes macros sont actuellement sur des boutons sur la
feuille. Où dois-je mettre mes macros pour pouvoir les
affecter à mon nouveau menus ? (Parce que pour l'instant
lorsque je fais clic droit sur mon bouton placé dans mon
menu j'ai aucunes macros) :-(
Merci de votre aide et mangez pas trop de chocolat à
Pâques...
Sabian
.
-----Message d'origine-----
Salut à toutes et tous
C'est un peu long, mais pas vraiment technique...
Je dois rendre un fichier Excel pour lequel j'ai créé
quelques macros.
Pour de raisons de Corporate Identity, je dois shooté
tout mes boutons sur les feuilles Excel et mettre tout ça
dans un menu à la place
A ce sujet, j'ai une question et un problème.
Voici ma question:
Si mon GU (gentil utilisateur) ouvre son fichier, le menu
vient, ça ok. Mais si mon GU ouvre un autre fichier que
celui dans lequel j'ai placé ce nouveau menu, est-ce que
ce menu va apparaître ? (J'aimerai pas en fait)
et voici mon problème:
Mes macros sont actuellement sur des boutons sur la
feuille. Où dois-je mettre mes macros pour pouvoir les
affecter à mon nouveau menus ? (Parce que pour l'instant
lorsque je fais clic droit sur mon bouton placé dans mon
menu j'ai aucunes macros) :-(
Merci de votre aide et mangez pas trop de chocolat à
Pâques...
Sabian
.
-----Message d'origine-----
Salut à toutes et tous
C'est un peu long, mais pas vraiment technique...
Je dois rendre un fichier Excel pour lequel j'ai créé
quelques macros.
Pour de raisons de Corporate Identity, je dois shooté
tout mes boutons sur les feuilles Excel et mettre tout ça
dans un menu à la place
A ce sujet, j'ai une question et un problème.
Voici ma question:
Si mon GU (gentil utilisateur) ouvre son fichier, le menu
vient, ça ok. Mais si mon GU ouvre un autre fichier que
celui dans lequel j'ai placé ce nouveau menu, est-ce que
ce menu va apparaître ? (J'aimerai pas en fait)
et voici mon problème:
Mes macros sont actuellement sur des boutons sur la
feuille. Où dois-je mettre mes macros pour pouvoir les
affecter à mon nouveau menus ? (Parce que pour l'instant
lorsque je fais clic droit sur mon bouton placé dans mon
menu j'ai aucunes macros) :-(
Merci de votre aide et mangez pas trop de chocolat à
Pâques...
Sabian
.
-----Message d'origine-----
Bonjour,
Voici un exemple rudimentaire mais assez complet.
Ne s'ouvrira qu'une seule fois, quelque soit le
nombre d'ouverture et ne s'ouvrira que lors de
l'ouverture du fichier Excel spécifié.
Public Function AjoutBarreMenu() As Boolean
'
Dim Texte As String
Dim I As Integer
Dim Flag As Boolean
Dim BarreMenu, MaBarre, MonItem As Object
On Error GoTo Err_Barre
Flag = SupprimeMenu
Flag = False
'Création de la barre de menu
Set BarreMenu = Application.CommandBars.ActiveMenuBar
Set MaBarre = BarreMenu.Controls.Add
(Type:=msoControlPopup, temporary:=True)
MaBarre.Caption = "Automatisme"
'Insère menu
Set MonItem = MaBarre.Controls.Add
(Type:=msoControlButton)
With MonItem
.Caption = "Ouvrir sans VBA"
.OnAction = "OuvrirSansVBA"
.FaceId = 2579
End With
AjoutBarreMenu = True
Exit_Barre:
Exit Function
Err_Barre:
AjoutBarreMenu = False
Texte = "Erreur dans la routine AjoutBarreMenu"
MsgBox Texte
Resume Exit_Barre
End Function
'
Public Function SupprimeMenu() As Boolean
Dim Cmpt, Nombre As Integer
Dim Barre As CommandBarControl
' Cmpt = 1
Nombre =
Application.CommandBars.ActiveMenuBar.Controls.Count
For Cmpt = 1 To Nombre
' For Each Barre In
Application.CommandBars.ActiveMenuBar.Controls
If
(Application.CommandBars.ActiveMenuBar.Controls.Item
(Cmpt).Caption = "Automatisme") Then
Application.CommandBars("Worksheet Menu
Bar").Controls("Automatisme").Delete
End If
' Cmpt = (Cmpt + 1)
Next Cmpt
Cmpt = 0
SupprimeMenu = True
Exit_Close:
Exit Function
Err_Close:
MsgBox "Erreur dans la routine SupprimeMenu du
classeur MenuPerso!"
MsgBox Err.Number & " - " & Err.Description
SupprimeMenu = False
End Function
Public Function OuvrirSansVBA()
Dim NomFichier As String
Dim Dossier As String
Dim NomComplet As String
NomFichier = InputBox("Fichier : ", " NOM DE
FICHIER ", "AdresseIP.xls")
Dossier = InputBox("Répertoire : ", " NOM DE
RÉPERTOIRE ", "C:Temp")
NomComplet = Dossier & "" & Fichier
Application.EnableEvents = False
Workbooks.Open Filename:=Fichier
Application.EnableEvents = True
End Function
'
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Reponse As Boolean
Reponse = SupprimeMenu
If (Reponse) Then
MsgBox "Opération réussie :)"
Else
MsgBox "Opération échoué :("
End If
Exit_Close:
Exit Sub
Err_Close:
Message = "Erreur dans la routine
Workbook_Before_Close"
MsgBox Message
End Sub
'
Private Sub Workbook_Open()
Dim Reponse As Boolean
Reponse = AjoutBarreMenu
If (Reponse) Then
MsgBox "Opération réussie :)"
Else
MsgBox "Opération échoué :("
End If
End Sub
'
mousnynao!-----Message d'origine-----
Salut à toutes et tous
C'est un peu long, mais pas vraiment technique...
Je dois rendre un fichier Excel pour lequel j'ai créé
quelques macros.
Pour de raisons de Corporate Identity, je dois shooté
tout mes boutons sur les feuilles Excel et mettre tout
ça
dans un menu à la place
A ce sujet, j'ai une question et un problème.
Voici ma question:
Si mon GU (gentil utilisateur) ouvre son fichier, le
menu
vient, ça ok. Mais si mon GU ouvre un autre fichier que
celui dans lequel j'ai placé ce nouveau menu, est-ce
que
ce menu va apparaître ? (J'aimerai pas en fait)
et voici mon problème:
Mes macros sont actuellement sur des boutons sur la
feuille. Où dois-je mettre mes macros pour pouvoir les
affecter à mon nouveau menus ? (Parce que pour
l'instant
lorsque je fais clic droit sur mon bouton placé dans
mon
menu j'ai aucunes macros) :-(
Merci de votre aide et mangez pas trop de chocolat à
Pâques...
Sabian
.
.
-----Message d'origine-----
Bonjour,
Voici un exemple rudimentaire mais assez complet.
Ne s'ouvrira qu'une seule fois, quelque soit le
nombre d'ouverture et ne s'ouvrira que lors de
l'ouverture du fichier Excel spécifié.
Public Function AjoutBarreMenu() As Boolean
'
Dim Texte As String
Dim I As Integer
Dim Flag As Boolean
Dim BarreMenu, MaBarre, MonItem As Object
On Error GoTo Err_Barre
Flag = SupprimeMenu
Flag = False
'Création de la barre de menu
Set BarreMenu = Application.CommandBars.ActiveMenuBar
Set MaBarre = BarreMenu.Controls.Add
(Type:=msoControlPopup, temporary:=True)
MaBarre.Caption = "Automatisme"
'Insère menu
Set MonItem = MaBarre.Controls.Add
(Type:=msoControlButton)
With MonItem
.Caption = "Ouvrir sans VBA"
.OnAction = "OuvrirSansVBA"
.FaceId = 2579
End With
AjoutBarreMenu = True
Exit_Barre:
Exit Function
Err_Barre:
AjoutBarreMenu = False
Texte = "Erreur dans la routine AjoutBarreMenu"
MsgBox Texte
Resume Exit_Barre
End Function
'
Public Function SupprimeMenu() As Boolean
Dim Cmpt, Nombre As Integer
Dim Barre As CommandBarControl
' Cmpt = 1
Nombre =
Application.CommandBars.ActiveMenuBar.Controls.Count
For Cmpt = 1 To Nombre
' For Each Barre In
Application.CommandBars.ActiveMenuBar.Controls
If
(Application.CommandBars.ActiveMenuBar.Controls.Item
(Cmpt).Caption = "Automatisme") Then
Application.CommandBars("Worksheet Menu
Bar").Controls("Automatisme").Delete
End If
' Cmpt = (Cmpt + 1)
Next Cmpt
Cmpt = 0
SupprimeMenu = True
Exit_Close:
Exit Function
Err_Close:
MsgBox "Erreur dans la routine SupprimeMenu du
classeur MenuPerso!"
MsgBox Err.Number & " - " & Err.Description
SupprimeMenu = False
End Function
Public Function OuvrirSansVBA()
Dim NomFichier As String
Dim Dossier As String
Dim NomComplet As String
NomFichier = InputBox("Fichier : ", " NOM DE
FICHIER ", "AdresseIP.xls")
Dossier = InputBox("Répertoire : ", " NOM DE
RÉPERTOIRE ", "C:Temp")
NomComplet = Dossier & "" & Fichier
Application.EnableEvents = False
Workbooks.Open Filename:=Fichier
Application.EnableEvents = True
End Function
'
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Reponse As Boolean
Reponse = SupprimeMenu
If (Reponse) Then
MsgBox "Opération réussie :)"
Else
MsgBox "Opération échoué :("
End If
Exit_Close:
Exit Sub
Err_Close:
Message = "Erreur dans la routine
Workbook_Before_Close"
MsgBox Message
End Sub
'
Private Sub Workbook_Open()
Dim Reponse As Boolean
Reponse = AjoutBarreMenu
If (Reponse) Then
MsgBox "Opération réussie :)"
Else
MsgBox "Opération échoué :("
End If
End Sub
'
mousnynao!
-----Message d'origine-----
Salut à toutes et tous
C'est un peu long, mais pas vraiment technique...
Je dois rendre un fichier Excel pour lequel j'ai créé
quelques macros.
Pour de raisons de Corporate Identity, je dois shooté
tout mes boutons sur les feuilles Excel et mettre tout
ça
dans un menu à la place
A ce sujet, j'ai une question et un problème.
Voici ma question:
Si mon GU (gentil utilisateur) ouvre son fichier, le
menu
vient, ça ok. Mais si mon GU ouvre un autre fichier que
celui dans lequel j'ai placé ce nouveau menu, est-ce
que
ce menu va apparaître ? (J'aimerai pas en fait)
et voici mon problème:
Mes macros sont actuellement sur des boutons sur la
feuille. Où dois-je mettre mes macros pour pouvoir les
affecter à mon nouveau menus ? (Parce que pour
l'instant
lorsque je fais clic droit sur mon bouton placé dans
mon
menu j'ai aucunes macros) :-(
Merci de votre aide et mangez pas trop de chocolat à
Pâques...
Sabian
.
.
-----Message d'origine-----
Bonjour,
Voici un exemple rudimentaire mais assez complet.
Ne s'ouvrira qu'une seule fois, quelque soit le
nombre d'ouverture et ne s'ouvrira que lors de
l'ouverture du fichier Excel spécifié.
Public Function AjoutBarreMenu() As Boolean
'
Dim Texte As String
Dim I As Integer
Dim Flag As Boolean
Dim BarreMenu, MaBarre, MonItem As Object
On Error GoTo Err_Barre
Flag = SupprimeMenu
Flag = False
'Création de la barre de menu
Set BarreMenu = Application.CommandBars.ActiveMenuBar
Set MaBarre = BarreMenu.Controls.Add
(Type:=msoControlPopup, temporary:=True)
MaBarre.Caption = "Automatisme"
'Insère menu
Set MonItem = MaBarre.Controls.Add
(Type:=msoControlButton)
With MonItem
.Caption = "Ouvrir sans VBA"
.OnAction = "OuvrirSansVBA"
.FaceId = 2579
End With
AjoutBarreMenu = True
Exit_Barre:
Exit Function
Err_Barre:
AjoutBarreMenu = False
Texte = "Erreur dans la routine AjoutBarreMenu"
MsgBox Texte
Resume Exit_Barre
End Function
'
Public Function SupprimeMenu() As Boolean
Dim Cmpt, Nombre As Integer
Dim Barre As CommandBarControl
' Cmpt = 1
Nombre =
Application.CommandBars.ActiveMenuBar.Controls.Count
For Cmpt = 1 To Nombre
' For Each Barre In
Application.CommandBars.ActiveMenuBar.Controls
If
(Application.CommandBars.ActiveMenuBar.Controls.Item
(Cmpt).Caption = "Automatisme") Then
Application.CommandBars("Worksheet Menu
Bar").Controls("Automatisme").Delete
End If
' Cmpt = (Cmpt + 1)
Next Cmpt
Cmpt = 0
SupprimeMenu = True
Exit_Close:
Exit Function
Err_Close:
MsgBox "Erreur dans la routine SupprimeMenu du
classeur MenuPerso!"
MsgBox Err.Number & " - " & Err.Description
SupprimeMenu = False
End Function
Public Function OuvrirSansVBA()
Dim NomFichier As String
Dim Dossier As String
Dim NomComplet As String
NomFichier = InputBox("Fichier : ", " NOM DE
FICHIER ", "AdresseIP.xls")
Dossier = InputBox("Répertoire : ", " NOM DE
RÉPERTOIRE ", "C:Temp")
NomComplet = Dossier & "" & Fichier
Application.EnableEvents = False
Workbooks.Open Filename:=Fichier
Application.EnableEvents = True
End Function
'
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Reponse As Boolean
Reponse = SupprimeMenu
If (Reponse) Then
MsgBox "Opération réussie :)"
Else
MsgBox "Opération échoué :("
End If
Exit_Close:
Exit Sub
Err_Close:
Message = "Erreur dans la routine
Workbook_Before_Close"
MsgBox Message
End Sub
'
Private Sub Workbook_Open()
Dim Reponse As Boolean
Reponse = AjoutBarreMenu
If (Reponse) Then
MsgBox "Opération réussie :)"
Else
MsgBox "Opération échoué :("
End If
End Sub
'
mousnynao!-----Message d'origine-----
Salut à toutes et tous
C'est un peu long, mais pas vraiment technique...
Je dois rendre un fichier Excel pour lequel j'ai créé
quelques macros.
Pour de raisons de Corporate Identity, je dois shooté
tout mes boutons sur les feuilles Excel et mettre tout
ça
dans un menu à la place
A ce sujet, j'ai une question et un problème.
Voici ma question:
Si mon GU (gentil utilisateur) ouvre son fichier, le
menu
vient, ça ok. Mais si mon GU ouvre un autre fichier que
celui dans lequel j'ai placé ce nouveau menu, est-ce
que
ce menu va apparaître ? (J'aimerai pas en fait)
et voici mon problème:
Mes macros sont actuellement sur des boutons sur la
feuille. Où dois-je mettre mes macros pour pouvoir les
affecter à mon nouveau menus ? (Parce que pour
l'instant
lorsque je fais clic droit sur mon bouton placé dans
mon
menu j'ai aucunes macros) :-(
Merci de votre aide et mangez pas trop de chocolat à
Pâques...
Sabian
.
.
-----Message d'origine-----
Hello,
Est-ce que tu veux remplacer le menu ou créer une
nouvelle barre d'outils
avec des bouton ?
A +
Claude
"Sabian" a écrit dans le message de
news:152ab01c41cdc$7662dd30$
Salut à toutes et tous
C'est un peu long, mais pas vraiment technique...
Je dois rendre un fichier Excel pour lequel j'ai créé
quelques macros.
Pour de raisons de Corporate Identity, je dois shooté
tout mes boutons sur les feuilles Excel et mettre tout ça
dans un menu à la place
A ce sujet, j'ai une question et un problème.
Voici ma question:
Si mon GU (gentil utilisateur) ouvre son fichier, le menu
vient, ça ok. Mais si mon GU ouvre un autre fichier que
celui dans lequel j'ai placé ce nouveau menu, est-ce que
ce menu va apparaître ? (J'aimerai pas en fait)
et voici mon problème:
Mes macros sont actuellement sur des boutons sur la
feuille. Où dois-je mettre mes macros pour pouvoir les
affecter à mon nouveau menus ? (Parce que pour l'instant
lorsque je fais clic droit sur mon bouton placé dans mon
menu j'ai aucunes macros) :-(
Merci de votre aide et mangez pas trop de chocolat à
Pâques...
Sabian
.
-----Message d'origine-----
Hello,
Est-ce que tu veux remplacer le menu ou créer une
nouvelle barre d'outils
avec des bouton ?
A +
Claude
"Sabian" <sab@ian.com> a écrit dans le message de
news:152ab01c41cdc$7662dd30$a001280a@phx.gbl...
Salut à toutes et tous
C'est un peu long, mais pas vraiment technique...
Je dois rendre un fichier Excel pour lequel j'ai créé
quelques macros.
Pour de raisons de Corporate Identity, je dois shooté
tout mes boutons sur les feuilles Excel et mettre tout ça
dans un menu à la place
A ce sujet, j'ai une question et un problème.
Voici ma question:
Si mon GU (gentil utilisateur) ouvre son fichier, le menu
vient, ça ok. Mais si mon GU ouvre un autre fichier que
celui dans lequel j'ai placé ce nouveau menu, est-ce que
ce menu va apparaître ? (J'aimerai pas en fait)
et voici mon problème:
Mes macros sont actuellement sur des boutons sur la
feuille. Où dois-je mettre mes macros pour pouvoir les
affecter à mon nouveau menus ? (Parce que pour l'instant
lorsque je fais clic droit sur mon bouton placé dans mon
menu j'ai aucunes macros) :-(
Merci de votre aide et mangez pas trop de chocolat à
Pâques...
Sabian
.
-----Message d'origine-----
Hello,
Est-ce que tu veux remplacer le menu ou créer une
nouvelle barre d'outils
avec des bouton ?
A +
Claude
"Sabian" a écrit dans le message de
news:152ab01c41cdc$7662dd30$
Salut à toutes et tous
C'est un peu long, mais pas vraiment technique...
Je dois rendre un fichier Excel pour lequel j'ai créé
quelques macros.
Pour de raisons de Corporate Identity, je dois shooté
tout mes boutons sur les feuilles Excel et mettre tout ça
dans un menu à la place
A ce sujet, j'ai une question et un problème.
Voici ma question:
Si mon GU (gentil utilisateur) ouvre son fichier, le menu
vient, ça ok. Mais si mon GU ouvre un autre fichier que
celui dans lequel j'ai placé ce nouveau menu, est-ce que
ce menu va apparaître ? (J'aimerai pas en fait)
et voici mon problème:
Mes macros sont actuellement sur des boutons sur la
feuille. Où dois-je mettre mes macros pour pouvoir les
affecter à mon nouveau menus ? (Parce que pour l'instant
lorsque je fais clic droit sur mon bouton placé dans mon
menu j'ai aucunes macros) :-(
Merci de votre aide et mangez pas trop de chocolat à
Pâques...
Sabian
.