Je fais appel au groupe, car ce qui m'arrive n'est pas banal.
- 1 - Si je modifie le texte de légende du contrôle du texte de légende
d'un bouton de ma ligne de commande, pour l'afficher dans son info-bulle, la
mise à jour n'est pas prise en charge, mais elle figure bien dans l'écriture
VBA.
- 2 - De la même façon si je modifie un des modules de l'application, il
n'est pas pris en charge.
Quelqu'un pourrait-il me donner la cause. Il n'y a pas de mot de passe,
aucune astuce.
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
Oliv'
*Greffier que je salut a écrit *:
Bonjour,
Je fais appel au groupe, car ce qui m'arrive n'est pas banal. - 1 - Si je modifie le texte de légende du contrôle du texte de légende d'un bouton de ma ligne de commande, pour l'afficher dans son info-bulle, la mise à jour n'est pas prise en charge, mais elle figure bien dans l'écriture VBA. - 2 - De la même façon si je modifie un des modules de l'application, il n'est pas pris en charge.
Quelqu'un pourrait-il me donner la cause. Il n'y a pas de mot de passe, aucune astuce.
Merci pour vos suggestions,
Greffier.
c'est pas très clair ton explication !
--- oliv'
*Greffier <spam@spam.fr> que je salut a écrit *:
Bonjour,
Je fais appel au groupe, car ce qui m'arrive n'est pas banal.
- 1 - Si je modifie le texte de légende du contrôle du texte de
légende d'un bouton de ma ligne de commande, pour l'afficher dans son
info-bulle, la mise à jour n'est pas prise en charge, mais elle
figure bien dans l'écriture VBA.
- 2 - De la même façon si je modifie un des modules de l'application,
il n'est pas pris en charge.
Quelqu'un pourrait-il me donner la cause. Il n'y a pas de mot de
passe, aucune astuce.
Je fais appel au groupe, car ce qui m'arrive n'est pas banal. - 1 - Si je modifie le texte de légende du contrôle du texte de légende d'un bouton de ma ligne de commande, pour l'afficher dans son info-bulle, la mise à jour n'est pas prise en charge, mais elle figure bien dans l'écriture VBA. - 2 - De la même façon si je modifie un des modules de l'application, il n'est pas pris en charge.
Quelqu'un pourrait-il me donner la cause. Il n'y a pas de mot de passe, aucune astuce.
Merci pour vos suggestions,
Greffier.
c'est pas très clair ton explication !
--- oliv'
Greffier
Bonjour oliv
Je joins le premier exemple, en changeant le "caption", le texte n'est pas pris en charge ni immédiatement ni après fermeture et redémarrage ... pourquoi.
Est-ce plus clair.
Greffier.
Sub CreateBOAutoOpen() Dim cbr As CommandBar - - - Dim Btn7 As CommandBarButton - - -
''' Création toolbar. Set cbr = CommandBars.Add("Gestion hebdomadaire ") cbr.Visible = True ''' Add control toolbar. - - - - Set Btn7 = cbr.Controls.Add(msoControlButton) Btn7.Caption = "envoi des feuilles par émail" & vbNewLine & _ "aux membres du bureau " & vbNewLine & _ "de l'association" Btn7.FaceId = 917 ''' nouveau button icon Btn7.OnAction = ThisWorkbook.Name & "!Macro6" - - - - End Sub
"Oliv'" <(supprimerceci) a écrit dans le message de news: %
*Greffier que je salut a écrit *:
Bonjour,
Je fais appel au groupe, car ce qui m'arrive n'est pas banal. - 1 - Si je modifie le texte de légende du contrôle du texte de légende d'un bouton de ma ligne de commande, pour l'afficher dans son info-bulle, la mise à jour n'est pas prise en charge, mais elle figure bien dans l'écriture VBA. - 2 - De la même façon si je modifie un des modules de l'application, il n'est pas pris en charge.
Quelqu'un pourrait-il me donner la cause. Il n'y a pas de mot de passe, aucune astuce.
Merci pour vos suggestions,
Greffier.
c'est pas très clair ton explication !
--- oliv'
Bonjour oliv
Je joins le premier exemple, en changeant le "caption", le texte n'est pas
pris en charge ni immédiatement ni après fermeture et redémarrage ...
pourquoi.
Est-ce plus clair.
Greffier.
Sub CreateBOAutoOpen()
Dim cbr As CommandBar
-
-
-
Dim Btn7 As CommandBarButton
-
-
-
''' Création toolbar.
Set cbr = CommandBars.Add("Gestion hebdomadaire ")
cbr.Visible = True
''' Add control toolbar.
-
-
-
-
Set Btn7 = cbr.Controls.Add(msoControlButton)
Btn7.Caption = "envoi des feuilles par émail" & vbNewLine & _
"aux membres du bureau " & vbNewLine & _
"de l'association"
Btn7.FaceId = 917 ''' nouveau button icon
Btn7.OnAction = ThisWorkbook.Name & "!Macro6"
-
-
-
-
End Sub
"Oliv'" <(supprimerceci)catteau@ricour-assurances.fr> a écrit dans le
message de news: %23Onz53F6GHA.2380@TK2MSFTNGP02.phx.gbl...
*Greffier <spam@spam.fr> que je salut a écrit *:
Bonjour,
Je fais appel au groupe, car ce qui m'arrive n'est pas banal.
- 1 - Si je modifie le texte de légende du contrôle du texte de
légende d'un bouton de ma ligne de commande, pour l'afficher dans son
info-bulle, la mise à jour n'est pas prise en charge, mais elle
figure bien dans l'écriture VBA.
- 2 - De la même façon si je modifie un des modules de l'application,
il n'est pas pris en charge.
Quelqu'un pourrait-il me donner la cause. Il n'y a pas de mot de
passe, aucune astuce.
Je joins le premier exemple, en changeant le "caption", le texte n'est pas pris en charge ni immédiatement ni après fermeture et redémarrage ... pourquoi.
Est-ce plus clair.
Greffier.
Sub CreateBOAutoOpen() Dim cbr As CommandBar - - - Dim Btn7 As CommandBarButton - - -
''' Création toolbar. Set cbr = CommandBars.Add("Gestion hebdomadaire ") cbr.Visible = True ''' Add control toolbar. - - - - Set Btn7 = cbr.Controls.Add(msoControlButton) Btn7.Caption = "envoi des feuilles par émail" & vbNewLine & _ "aux membres du bureau " & vbNewLine & _ "de l'association" Btn7.FaceId = 917 ''' nouveau button icon Btn7.OnAction = ThisWorkbook.Name & "!Macro6" - - - - End Sub
"Oliv'" <(supprimerceci) a écrit dans le message de news: %
*Greffier que je salut a écrit *:
Bonjour,
Je fais appel au groupe, car ce qui m'arrive n'est pas banal. - 1 - Si je modifie le texte de légende du contrôle du texte de légende d'un bouton de ma ligne de commande, pour l'afficher dans son info-bulle, la mise à jour n'est pas prise en charge, mais elle figure bien dans l'écriture VBA. - 2 - De la même façon si je modifie un des modules de l'application, il n'est pas pris en charge.
Quelqu'un pourrait-il me donner la cause. Il n'y a pas de mot de passe, aucune astuce.
Merci pour vos suggestions,
Greffier.
c'est pas très clair ton explication !
--- oliv'
MichDenis
Tu dois ajouter la propriété Style à ton bouton, voir l'exemple suivant :
'------------------------------ Sub CreateBOAutoOpen()
Dim X As Office.MsoButtonStyle Dim cbr As CommandBar X = msoButtonIconAndCaption
Dim Btn7 As CommandBarButton
On Error Resume Next Application.CommandBars("Gestion hebdomadaire").Delete ''' Création toolbar. Set cbr = Application.CommandBars.Add("Gestion hebdomadaire ") cbr.Visible = True ''' Add control toolbar. With cbr.Controls.Add(msoControlButton) .Style = X .Caption = "envoi des feuilles par émail" & _ "aux membres du bureau " & _ "de l'association" .FaceId = 917 ''' nouveau button icon .OnAction = ThisWorkbook.Name & "!Macro6" .TooltipText = "Ok ça marche !" End With End Sub '------------------------------
"Greffier" a écrit dans le message de news: % Bonjour,
Je fais appel au groupe, car ce qui m'arrive n'est pas banal. - 1 - Si je modifie le texte de légende du contrôle du texte de légende d'un bouton de ma ligne de commande, pour l'afficher dans son info-bulle, la mise à jour n'est pas prise en charge, mais elle figure bien dans l'écriture VBA. - 2 - De la même façon si je modifie un des modules de l'application, il n'est pas pris en charge.
Quelqu'un pourrait-il me donner la cause. Il n'y a pas de mot de passe, aucune astuce.
Merci pour vos suggestions,
Greffier.
Tu dois ajouter la propriété Style à ton bouton, voir l'exemple suivant :
'------------------------------
Sub CreateBOAutoOpen()
Dim X As Office.MsoButtonStyle
Dim cbr As CommandBar
X = msoButtonIconAndCaption
Dim Btn7 As CommandBarButton
On Error Resume Next
Application.CommandBars("Gestion hebdomadaire").Delete
''' Création toolbar.
Set cbr = Application.CommandBars.Add("Gestion hebdomadaire ")
cbr.Visible = True
''' Add control toolbar.
With cbr.Controls.Add(msoControlButton)
.Style = X
.Caption = "envoi des feuilles par émail" & _
"aux membres du bureau " & _
"de l'association"
.FaceId = 917 ''' nouveau button icon
.OnAction = ThisWorkbook.Name & "!Macro6"
.TooltipText = "Ok ça marche !"
End With
End Sub
'------------------------------
"Greffier" <spam@spam.fr> a écrit dans le message de news:
%236cnrmF6GHA.4932@TK2MSFTNGP06.phx.gbl...
Bonjour,
Je fais appel au groupe, car ce qui m'arrive n'est pas banal.
- 1 - Si je modifie le texte de légende du contrôle du texte de légende
d'un bouton de ma ligne de commande, pour l'afficher dans son info-bulle, la
mise à jour n'est pas prise en charge, mais elle figure bien dans l'écriture
VBA.
- 2 - De la même façon si je modifie un des modules de l'application, il
n'est pas pris en charge.
Quelqu'un pourrait-il me donner la cause. Il n'y a pas de mot de passe,
aucune astuce.
Tu dois ajouter la propriété Style à ton bouton, voir l'exemple suivant :
'------------------------------ Sub CreateBOAutoOpen()
Dim X As Office.MsoButtonStyle Dim cbr As CommandBar X = msoButtonIconAndCaption
Dim Btn7 As CommandBarButton
On Error Resume Next Application.CommandBars("Gestion hebdomadaire").Delete ''' Création toolbar. Set cbr = Application.CommandBars.Add("Gestion hebdomadaire ") cbr.Visible = True ''' Add control toolbar. With cbr.Controls.Add(msoControlButton) .Style = X .Caption = "envoi des feuilles par émail" & _ "aux membres du bureau " & _ "de l'association" .FaceId = 917 ''' nouveau button icon .OnAction = ThisWorkbook.Name & "!Macro6" .TooltipText = "Ok ça marche !" End With End Sub '------------------------------
"Greffier" a écrit dans le message de news: % Bonjour,
Je fais appel au groupe, car ce qui m'arrive n'est pas banal. - 1 - Si je modifie le texte de légende du contrôle du texte de légende d'un bouton de ma ligne de commande, pour l'afficher dans son info-bulle, la mise à jour n'est pas prise en charge, mais elle figure bien dans l'écriture VBA. - 2 - De la même façon si je modifie un des modules de l'application, il n'est pas pris en charge.
Quelqu'un pourrait-il me donner la cause. Il n'y a pas de mot de passe, aucune astuce.
Merci pour vos suggestions,
Greffier.
Greffier
Bonjour MichDenis,
J'ai bien noté la mise à jour, et je m'empresse de la concrétiser. OK, cela a l'air de marcher. J'ai ajouté "on resume next".
Merci.
"MichDenis" a écrit dans le message de news:
Tu dois ajouter la propriété Style à ton bouton, voir l'exemple suivant :
'------------------------------ Sub CreateBOAutoOpen()
Dim X As Office.MsoButtonStyle Dim cbr As CommandBar X = msoButtonIconAndCaption
Dim Btn7 As CommandBarButton
On Error Resume Next Application.CommandBars("Gestion hebdomadaire").Delete ''' Création toolbar. Set cbr = Application.CommandBars.Add("Gestion hebdomadaire ") cbr.Visible = True ''' Add control toolbar. With cbr.Controls.Add(msoControlButton) .Style = X .Caption = "envoi des feuilles par émail" & _ "aux membres du bureau " & _ "de l'association" .FaceId = 917 ''' nouveau button icon .OnAction = ThisWorkbook.Name & "!Macro6" .TooltipText = "Ok ça marche !" End With End Sub '------------------------------
"Greffier" a écrit dans le message de news: % Bonjour,
Je fais appel au groupe, car ce qui m'arrive n'est pas banal. - 1 - Si je modifie le texte de légende du contrôle du texte de légende d'un bouton de ma ligne de commande, pour l'afficher dans son info-bulle, la mise à jour n'est pas prise en charge, mais elle figure bien dans l'écriture VBA. - 2 - De la même façon si je modifie un des modules de l'application, il n'est pas pris en charge.
Quelqu'un pourrait-il me donner la cause. Il n'y a pas de mot de passe, aucune astuce.
Merci pour vos suggestions,
Greffier.
Bonjour MichDenis,
J'ai bien noté la mise à jour, et je m'empresse de la concrétiser.
OK, cela a l'air de marcher.
J'ai ajouté "on resume next".
Merci.
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
eU9RoXH6GHA.4604@TK2MSFTNGP03.phx.gbl...
Tu dois ajouter la propriété Style à ton bouton, voir l'exemple suivant :
'------------------------------
Sub CreateBOAutoOpen()
Dim X As Office.MsoButtonStyle
Dim cbr As CommandBar
X = msoButtonIconAndCaption
Dim Btn7 As CommandBarButton
On Error Resume Next
Application.CommandBars("Gestion hebdomadaire").Delete
''' Création toolbar.
Set cbr = Application.CommandBars.Add("Gestion hebdomadaire ")
cbr.Visible = True
''' Add control toolbar.
With cbr.Controls.Add(msoControlButton)
.Style = X
.Caption = "envoi des feuilles par émail" & _
"aux membres du bureau " & _
"de l'association"
.FaceId = 917 ''' nouveau button icon
.OnAction = ThisWorkbook.Name & "!Macro6"
.TooltipText = "Ok ça marche !"
End With
End Sub
'------------------------------
"Greffier" <spam@spam.fr> a écrit dans le message de news:
%236cnrmF6GHA.4932@TK2MSFTNGP06.phx.gbl...
Bonjour,
Je fais appel au groupe, car ce qui m'arrive n'est pas banal.
- 1 - Si je modifie le texte de légende du contrôle du texte de légende
d'un bouton de ma ligne de commande, pour l'afficher dans son info-bulle,
la
mise à jour n'est pas prise en charge, mais elle figure bien dans
l'écriture
VBA.
- 2 - De la même façon si je modifie un des modules de l'application, il
n'est pas pris en charge.
Quelqu'un pourrait-il me donner la cause. Il n'y a pas de mot de passe,
aucune astuce.
J'ai bien noté la mise à jour, et je m'empresse de la concrétiser. OK, cela a l'air de marcher. J'ai ajouté "on resume next".
Merci.
"MichDenis" a écrit dans le message de news:
Tu dois ajouter la propriété Style à ton bouton, voir l'exemple suivant :
'------------------------------ Sub CreateBOAutoOpen()
Dim X As Office.MsoButtonStyle Dim cbr As CommandBar X = msoButtonIconAndCaption
Dim Btn7 As CommandBarButton
On Error Resume Next Application.CommandBars("Gestion hebdomadaire").Delete ''' Création toolbar. Set cbr = Application.CommandBars.Add("Gestion hebdomadaire ") cbr.Visible = True ''' Add control toolbar. With cbr.Controls.Add(msoControlButton) .Style = X .Caption = "envoi des feuilles par émail" & _ "aux membres du bureau " & _ "de l'association" .FaceId = 917 ''' nouveau button icon .OnAction = ThisWorkbook.Name & "!Macro6" .TooltipText = "Ok ça marche !" End With End Sub '------------------------------
"Greffier" a écrit dans le message de news: % Bonjour,
Je fais appel au groupe, car ce qui m'arrive n'est pas banal. - 1 - Si je modifie le texte de légende du contrôle du texte de légende d'un bouton de ma ligne de commande, pour l'afficher dans son info-bulle, la mise à jour n'est pas prise en charge, mais elle figure bien dans l'écriture VBA. - 2 - De la même façon si je modifie un des modules de l'application, il n'est pas pris en charge.
Quelqu'un pourrait-il me donner la cause. Il n'y a pas de mot de passe, aucune astuce.
Merci pour vos suggestions,
Greffier.
MichDenis
| On Error Resume Next | Application.CommandBars("Gestion hebdomadaire").Delete
J'ai ajouté "On error resume next" afin de t'assurer de ne pas dédoubler tes boutons ....
"Greffier" a écrit dans le message de news: Bonjour MichDenis,
J'ai bien noté la mise à jour, et je m'empresse de la concrétiser. OK, cela a l'air de marcher. J'ai ajouté "on resume next".
Merci.
"MichDenis" a écrit dans le message de news:
Tu dois ajouter la propriété Style à ton bouton, voir l'exemple suivant :
'------------------------------ Sub CreateBOAutoOpen()
Dim X As Office.MsoButtonStyle Dim cbr As CommandBar X = msoButtonIconAndCaption
Dim Btn7 As CommandBarButton
On Error Resume Next Application.CommandBars("Gestion hebdomadaire").Delete ''' Création toolbar. Set cbr = Application.CommandBars.Add("Gestion hebdomadaire ") cbr.Visible = True ''' Add control toolbar. With cbr.Controls.Add(msoControlButton) .Style = X .Caption = "envoi des feuilles par émail" & _ "aux membres du bureau " & _ "de l'association" .FaceId = 917 ''' nouveau button icon .OnAction = ThisWorkbook.Name & "!Macro6" .TooltipText = "Ok ça marche !" End With End Sub '------------------------------
"Greffier" a écrit dans le message de news: % Bonjour,
Je fais appel au groupe, car ce qui m'arrive n'est pas banal. - 1 - Si je modifie le texte de légende du contrôle du texte de légende d'un bouton de ma ligne de commande, pour l'afficher dans son info-bulle, la mise à jour n'est pas prise en charge, mais elle figure bien dans l'écriture VBA. - 2 - De la même façon si je modifie un des modules de l'application, il n'est pas pris en charge.
Quelqu'un pourrait-il me donner la cause. Il n'y a pas de mot de passe, aucune astuce.
Merci pour vos suggestions,
Greffier.
| On Error Resume Next
| Application.CommandBars("Gestion hebdomadaire").Delete
J'ai ajouté "On error resume next" afin de t'assurer de ne pas
dédoubler tes boutons ....
"Greffier" <spam@spam.fr> a écrit dans le message de news: u0Ev12I6GHA.4476@TK2MSFTNGP04.phx.gbl...
Bonjour MichDenis,
J'ai bien noté la mise à jour, et je m'empresse de la concrétiser.
OK, cela a l'air de marcher.
J'ai ajouté "on resume next".
Merci.
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
eU9RoXH6GHA.4604@TK2MSFTNGP03.phx.gbl...
Tu dois ajouter la propriété Style à ton bouton, voir l'exemple suivant :
'------------------------------
Sub CreateBOAutoOpen()
Dim X As Office.MsoButtonStyle
Dim cbr As CommandBar
X = msoButtonIconAndCaption
Dim Btn7 As CommandBarButton
On Error Resume Next
Application.CommandBars("Gestion hebdomadaire").Delete
''' Création toolbar.
Set cbr = Application.CommandBars.Add("Gestion hebdomadaire ")
cbr.Visible = True
''' Add control toolbar.
With cbr.Controls.Add(msoControlButton)
.Style = X
.Caption = "envoi des feuilles par émail" & _
"aux membres du bureau " & _
"de l'association"
.FaceId = 917 ''' nouveau button icon
.OnAction = ThisWorkbook.Name & "!Macro6"
.TooltipText = "Ok ça marche !"
End With
End Sub
'------------------------------
"Greffier" <spam@spam.fr> a écrit dans le message de news:
%236cnrmF6GHA.4932@TK2MSFTNGP06.phx.gbl...
Bonjour,
Je fais appel au groupe, car ce qui m'arrive n'est pas banal.
- 1 - Si je modifie le texte de légende du contrôle du texte de légende
d'un bouton de ma ligne de commande, pour l'afficher dans son info-bulle,
la
mise à jour n'est pas prise en charge, mais elle figure bien dans
l'écriture
VBA.
- 2 - De la même façon si je modifie un des modules de l'application, il
n'est pas pris en charge.
Quelqu'un pourrait-il me donner la cause. Il n'y a pas de mot de passe,
aucune astuce.
| On Error Resume Next | Application.CommandBars("Gestion hebdomadaire").Delete
J'ai ajouté "On error resume next" afin de t'assurer de ne pas dédoubler tes boutons ....
"Greffier" a écrit dans le message de news: Bonjour MichDenis,
J'ai bien noté la mise à jour, et je m'empresse de la concrétiser. OK, cela a l'air de marcher. J'ai ajouté "on resume next".
Merci.
"MichDenis" a écrit dans le message de news:
Tu dois ajouter la propriété Style à ton bouton, voir l'exemple suivant :
'------------------------------ Sub CreateBOAutoOpen()
Dim X As Office.MsoButtonStyle Dim cbr As CommandBar X = msoButtonIconAndCaption
Dim Btn7 As CommandBarButton
On Error Resume Next Application.CommandBars("Gestion hebdomadaire").Delete ''' Création toolbar. Set cbr = Application.CommandBars.Add("Gestion hebdomadaire ") cbr.Visible = True ''' Add control toolbar. With cbr.Controls.Add(msoControlButton) .Style = X .Caption = "envoi des feuilles par émail" & _ "aux membres du bureau " & _ "de l'association" .FaceId = 917 ''' nouveau button icon .OnAction = ThisWorkbook.Name & "!Macro6" .TooltipText = "Ok ça marche !" End With End Sub '------------------------------
"Greffier" a écrit dans le message de news: % Bonjour,
Je fais appel au groupe, car ce qui m'arrive n'est pas banal. - 1 - Si je modifie le texte de légende du contrôle du texte de légende d'un bouton de ma ligne de commande, pour l'afficher dans son info-bulle, la mise à jour n'est pas prise en charge, mais elle figure bien dans l'écriture VBA. - 2 - De la même façon si je modifie un des modules de l'application, il n'est pas pris en charge.
Quelqu'un pourrait-il me donner la cause. Il n'y a pas de mot de passe, aucune astuce.
