Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Reset d'une barre à la fermeture d'un fichier (prise 2)

Reset d'une barre à la fermeture d'un fichier (prise 2)

4 réponses
Avatar
Gaspareau
Bonjour

J'ai déjà posé la question vendredi dernier mais
les réponses obtenues ne me permettent pas de résoudre mon problème

Alors de retente le coup

J'ai le code suivant qui crée une commande dans le menu clique droit

With Application.CommandBars("cell").Controls.Add(msoControlButton)
.Caption = "Ouvre Fichier"
.OnAction = "Ouvrircellref"
.FaceId = 120
.BeginGroup = True
End With

Mais voilà qu'à chaque fois que j'ouvre ou ferme EXCEL, la commande se
rajoute<
donc après trois ouvertures j'ai trois fois "ouvrir fichier".

Si je fais le reset à l'ouverture, il m'enlève d'autres menu provenant de
fichiers XLA
qui s'ajoutent à l'ouverture avant.

Et je n'arrive pas à le faire à la fermeture. J'ai essayeé

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.CommandBars("Cell").Reset
End Sub

MAis ça ne fonctionne pas.

Il faudrait que j'Arrive à supprimer spécifiquement la commande "ouvrir
fichier"

Merci de tenter de m'Aider

Dany
Signaler un problème avec ce contenu

4 réponses

Supprimer
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
Avatar
michdenis
Essaie ceci :

'--------------------
On Error Resume Next
With Application.CommandBars("cell")
.Controls("Ouvre Fichier").Delete
With .Controls.Add(msoControlButton)
.Caption = "Ouvre Fichier"
.OnAction = "Ouvrircellref"
.FaceId = 120
.BeginGroup = True
End With
End With
'--------------------




"Gaspareau" a écrit dans le message de news:
Bonjour

J'ai déjà posé la question vendredi dernier mais
les réponses obtenues ne me permettent pas de résoudre mon problème

Alors de retente le coup

J'ai le code suivant qui crée une commande dans le menu clique droit

With Application.CommandBars("cell").Controls.Add(msoControlButton)
.Caption = "Ouvre Fichier"
.OnAction = "Ouvrircellref"
.FaceId = 120
.BeginGroup = True
End With

Mais voilà qu'à chaque fois que j'ouvre ou ferme EXCEL, la commande se
rajoute<
donc après trois ouvertures j'ai trois fois "ouvrir fichier".

Si je fais le reset à l'ouverture, il m'enlève d'autres menu provenant de
fichiers XLA
qui s'ajoutent à l'ouverture avant.

Et je n'arrive pas à le faire à la fermeture. J'ai essayeé

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.CommandBars("Cell").Reset
End Sub

MAis ça ne fonctionne pas.

Il faudrait que j'Arrive à supprimer spécifiquement la commande "ouvrir
fichier"

Merci de tenter de m'Aider

Dany
Avatar
isabelle
bonjour Dany,

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.CommandBars("Cell").Controls("Ouvre Fichier").Delete
End Sub

isabelle

Bonjour

J'ai déjà posé la question vendredi dernier mais
les réponses obtenues ne me permettent pas de résoudre mon problème

Alors de retente le coup

J'ai le code suivant qui crée une commande dans le menu clique droit

With Application.CommandBars("cell").Controls.Add(msoControlButton)
.Caption = "Ouvre Fichier"
.OnAction = "Ouvrircellref"
.FaceId = 120
.BeginGroup = True
End With

Mais voilà qu'à chaque fois que j'ouvre ou ferme EXCEL, la commande se
rajoute<
donc après trois ouvertures j'ai trois fois "ouvrir fichier".

Si je fais le reset à l'ouverture, il m'enlève d'autres menu provenant de
fichiers XLA
qui s'ajoutent à l'ouverture avant.

Et je n'arrive pas à le faire à la fermeture. J'ai essayeé

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.CommandBars("Cell").Reset
End Sub

MAis ça ne fonctionne pas.

Il faudrait que j'Arrive à supprimer spécifiquement la commande "ouvrir
fichier"

Merci de tenter de m'Aider

Dany




Avatar
lSteph
Bonsoir,
les réponses obtenues ne me permettent pas
si si , les deux:

tu crées à l'ouverture tu supprime à la fermeture
ou
tu supprimes ce qui existe ou non
et tu le recrée dans la même macro

ci après combiné les deux(ce qui est plus sûr)

Cordialement

lSteph
'''''*******dans thisworkbook
Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
Application.CommandBars("cell").Controls("Ouvre Fichier").Delete
On Error GoTo 0
End Sub

Private Sub Workbook_Open()
On Error Resume Next
Application.CommandBars("cell").Controls("Ouvre Fichier").Delete
On Error GoTo 0
With Application.CommandBars("cell").Controls.Add(msoControlButton)
.Caption = "Ouvre Fichier"
.OnAction = "Ouvrircellref"
.FaceId = 120
.BeginGroup = True
End With

End Sub
'''''*******


"Gaspareau" a écrit dans le message de news:

Bonjour

J'ai déjà posé la question vendredi dernier mais
les réponses obtenues ne me permettent pas de résoudre mon problème

Alors de retente le coup

J'ai le code suivant qui crée une commande dans le menu clique droit

With Application.CommandBars("cell").Controls.Add(msoControlButton)
.Caption = "Ouvre Fichier"
.OnAction = "Ouvrircellref"
.FaceId = 120
.BeginGroup = True
End With

Mais voilà qu'à chaque fois que j'ouvre ou ferme EXCEL, la commande se
rajoute<
donc après trois ouvertures j'ai trois fois "ouvrir fichier".

Si je fais le reset à l'ouverture, il m'enlève d'autres menu provenant de
fichiers XLA
qui s'ajoutent à l'ouverture avant.

Et je n'arrive pas à le faire à la fermeture. J'ai essayeé

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.CommandBars("Cell").Reset
End Sub

MAis ça ne fonctionne pas.

Il faudrait que j'Arrive à supprimer spécifiquement la commande "ouvrir
fichier"

Merci de tenter de m'Aider

Dany




Avatar
Gaspareau
Merci beaucoup grâce à vous tout fonctionne

bonne journée

Je n'ai rajouté que
Application.CommandBars("cell").Controls("Ouvre Fichier").Delete
à ma commande qui faisait déjà des opération sur des barres à l'ouverture


Merci encore


"lSteph" a écrit dans le message de
news:%
Bonsoir,
les réponses obtenues ne me permettent pas
si si , les deux:

tu crées à l'ouverture tu supprime à la fermeture
ou
tu supprimes ce qui existe ou non
et tu le recrée dans la même macro

ci après combiné les deux(ce qui est plus sûr)

Cordialement

lSteph
'''''*******dans thisworkbook
Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
Application.CommandBars("cell").Controls("Ouvre Fichier").Delete
On Error GoTo 0
End Sub

Private Sub Workbook_Open()
On Error Resume Next
Application.CommandBars("cell").Controls("Ouvre Fichier").Delete
On Error GoTo 0
With Application.CommandBars("cell").Controls.Add(msoControlButton)
.Caption = "Ouvre Fichier"
.OnAction = "Ouvrircellref"
.FaceId = 120
.BeginGroup = True
End With

End Sub
'''''*******


"Gaspareau" a écrit dans le message de news:

Bonjour

J'ai déjà posé la question vendredi dernier mais
les réponses obtenues ne me permettent pas de résoudre mon problème

Alors de retente le coup

J'ai le code suivant qui crée une commande dans le menu clique droit

With Application.CommandBars("cell").Controls.Add(msoControlButton)
.Caption = "Ouvre Fichier"
.OnAction = "Ouvrircellref"
.FaceId = 120
.BeginGroup = True
End With

Mais voilà qu'à chaque fois que j'ouvre ou ferme EXCEL, la commande se
rajoute<
donc après trois ouvertures j'ai trois fois "ouvrir fichier".

Si je fais le reset à l'ouverture, il m'enlève d'autres menu provenant d
e


fichiers XLA
qui s'ajoutent à l'ouverture avant.

Et je n'arrive pas à le faire à la fermeture. J'ai essayeé

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.CommandBars("Cell").Reset
End Sub

MAis ça ne fonctionne pas.

Il faudrait que j'Arrive à supprimer spécifiquement la commande "ouvrir
fichier"

Merci de tenter de m'Aider

Dany