Microsoft 365 Impossible d'exécuter les macros

Usine à gaz · 12 Novembre 2021

Bonjour à toutes et à tous,
Je vous souhaite une très belle journée

Il m'arrive un souci que je n'ai jamais rencontré : exécution de mes macros.
Alors qu'hier, tout fonctionnait très bien, ce matin, quand je clique sur un bouton , voici le message que j'ai :
Pour mes autres fichiers excel, je n'ai pas de souci.
Mais sur ce fichier :

Pourtant, mes macros sont présentes et actives :
- quand je vais dans le vbe, je peux les trouver et les exécuter,
- mes boutons sont bien affectés aux macros qui leur correspondent,
- à l'ouverture et à la fermeture, les macros s'exécutent normalement,

Je n'arrive pas comprendre ce qui se passe ?
Auriez-vous une idée ?
Je vous remercie,
lionel

Usine à gaz · 12 Novembre 2021

Je viens de réaffecter les macros aux boutons et c'est pareil Grrrrrrrrrrrrrr !!!

patricktoulon · 12 Novembre 2021

bonjour
sans fichier ca va être difficile

Usine à gaz · 12 Novembre 2021

Bonjour et Merci Patrick pour m'avoir répondu.
mais le fichier est beaucoup trop gros.
je vais voir ce que je peux faire

patricktoulon · 12 Novembre 2021

donne moi au moins le code de la fonction plein écran déjà

Usine à gaz · 12 Novembre 2021

Si tu veux bien regarder, je peux t'envoyer le fichier par mail (c'est un fichier confidentiel) et on mettra l'explication sur le forum
Je t'envoie un message privé ?

Usine à gaz · 12 Novembre 2021

Je t'envoie quand même le code de cette macro :

VB:

Sub plein_ecran()
'Dim Mdp As String
'Mdp = Application.InputBox("MdP Admin")
'If Mdp <> "" Then MsgBox "Erreur : accès refusé !": Exit Sub
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"
Application.CommandBars("Formatting").Enabled = False
'Application.CommandBars("Cell").Enabled = False
'ActiveWindow.DisplayHorizontalScrollBar = False
ActiveWindow.DisplayVerticalScrollBar = True
Application.DisplayFormulaBar = False
ActiveSheet.Protect Password:="", DrawingObjects:=True, Contents:=True, Scenarios:=True
With Application
 .WindowState = xlMaximized 'window max
End With
BloqueFeuilles
'If [a1] = "Fonctionnalités" Then
Sheets("Appels").Shapes("SuivisAppels_Ellipse 1").Visible = True
Sheets("Appels").Shapes("SuivisAppels_Ellipse 2").Visible = False
Sheets("Table").Shapes("Table_Ellipse 1").Visible = False
Sheets("Table").Shapes("Table_Ellipse 2").Visible = True
'Else
Sheets("SMS RdV").Shapes("SMS RdV_MOUI").Visible = False
Sheets("SMS RdV").Shapes("SMS RdV_MNon").Visible = True
Sheets("Table").Shapes("Table_Ellipse 1").Visible = True
Sheets("Table").Shapes("Table_Ellipse 2").Visible = False
'End If

On Error Resume Next
Sheets("Appels").Range("a1") = "Désactiver les codes ?"
Application.EnableEvents = True
End Sub

Mais les codes ne sont en pas en causes car ils s'exécutent parfaitement à partir du vbe

Compte Supprimé 979 · 12 Novembre 2021

Bonjour le fil,

Edit, tu devrais avoir ceci dans ton bouton
'IsiTel_Catherine_Mael 2021 11 12.xlsm'!plein_ecran

Et ce n'est pas ce que je vois dans ta capture d'écran

Usine à gaz · 12 Novembre 2021

Bonjour Bruno,
Merci d'être là
J'ai renommé mon fichier en "2021.11.12" et c'est pareil Grrrr !!!
Ce je ne comprends pas c'est que mes autres fichiers Excel fonctionnement normalement.
Je peux t'envoyer un message privé ?

Compte Supprimé 979 · 12 Novembre 2021

Salut Lionel,

après test, j'ai changé mon post, c'est plutôt sur le nom dans le bouton que je m'interroge

MP envoyé

Usine à gaz · 12 Novembre 2021

Re Bruno : MP non reçu

Phil69970 · 12 Novembre 2021

Bonjour à tous

A l'aveugle ....
Deux pistes :

1)Dans "ThisWorkbook" , "SelectionChange" ou "Change" tu as peux être une macro qui s’exécute quand tu lances ta macro qui remet tout à l'état initial ou qui la bloque....
-Essaye de désactivé les événements pour voir si cela ne vient pas de là.

VB:

    'Désactivation de tous les événements
    Application.EnableEvents = False
    
    '*****Ton code blablabla
    
    'Réactivation de tous les événements
    Application.EnableEvents = True   '<== OBLIGATOIRE

2)Si ça marchait avant et que ça marche plus maintenant :
-Soit tu reprends une ancienne sauvegarde
-Soit tu regardes ce que tu as modifié/supprimé/déplacé.....

@Phil69970

Usine à gaz · 12 Novembre 2021

Phil69970 à dit:
Bonjour à tous

A l'aveugle ....
Deux pistes :

1)Dans "ThisWorkbook" , "SelectionChange" ou "Change" tu as peux être une macro qui s’exécute quand tu lances ta macro qui remet tout à l'état initial ou qui la bloque....
-Essaye de désactivé les événements pour voir si cela ne vient pas de là.

VB:

'Désactivation de tous les événements Application.EnableEvents = False '*****Ton code blablabla 'Réactivation de tous les événements Application.EnableEvents = True '<== OBLIGATOIRE

2)Si ça marchait avant et que ça marche plus maintenant :
-Soit tu reprends une ancienne sauvegarde
-Soit tu regardes ce que tu as modifié/supprimé/déplacé.....

@Phil69970

Merci Phil,
j'ai vérifié mais ça ne change rien (c'était déjà à Application.EnableEvents = True)
et il n'y a que 3 boutons qui sont bloqués tout le reste fonctionnent y y compris les codes des feuilles
lionel,

Usine à gaz · 12 Novembre 2021

En fait, ce sont tous les boutons dans toutes les feuilles qui sont bloqués.
Tous les autres codes dans les feuilles fonctionnent normalement.

Phil69970 · 12 Novembre 2021

Lionel

C'est pas pour réactiver les événements c'est exactement le contraire.
Tu désactives les événements au début de ta macro, elle s’exécute et en fin de macro tu réactives les événements

Cela c'est pour le début de ta macro

Application.EnableEvents = False

Le reste de ton code... blablabla......
Cela c'est pour la fin de la macro

Application.EnableEvents = True

As tu au moins essayer ....

Et as tu vu ma 2eme solution

Phil69970 à dit:
2)Si ça marchait avant et que ça marche plus maintenant :
-Soit tu reprends une ancienne sauvegarde
-Soit tu regardes ce que tu as modifié/supprimé/déplacé.....

@Phil69970

Microsoft 365 Impossible d'exécuter les macros

Usine à gaz

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Compte Supprimé 979

Guest

Usine à gaz

XLDnaute Barbatruc

Compte Supprimé 979

Guest

Usine à gaz

XLDnaute Barbatruc

Phil69970

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Phil69970

XLDnaute Barbatruc

Discussions similaires