Microsoft 365 Impossible d'exécuter les macros

[Usine à gaz]

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]

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

 

[patricktoulon]

bonjour
sans fichier ca va être difficile

 

[Usine à gaz]

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]

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

 

[Usine à gaz]

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]

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

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]

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]

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]

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]

Re Bruno : MP non reçu

 

[Phil69970]

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à.

    '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]

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à.

    '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]

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]

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

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