Message d'erreur execution macro

Bonjour à tous

Dans le classeur avec le lien en fin de message ; il me semble depuis une MAJ du SIH vers la version d'Excel 2013 ( mais cela n'a peut-être rien à voir ) .

Donc quand je clique sur le bouton "enlever les protections"

J'ai le message d'erreur suivant

" erreur d'execution '_1247024809 (80070057)':

je clique sur débogage et j'arrive sur ( je t'ai copié la ligne du dessus , celles du dessous et la ligne incriminé doit t'apparaitre en bleu ; si je ne me trompe pas !! .

With ActiveSheet

.Shapes("Enlever_protection").Delete

.Buttons.Add(50, 10, 120, 25).Name = "NS" ''distance depuis la gauche, le haut, largeur, hauteur

.Shapes("NS").OnAction = "Nouvelle_semaine_bis"

.Shapes("NS").TextFrame.Characters.Text = "Nouvelle semaine"

Merci pour votre aide

Cdlt

Desmidt

PS : le mot de passe est "prof"

Bonjour,

il semblerait que la forme que la macro essaie de supprimer n'existe plus dans ton classeur.

pour gérer ce genre de problème. tu peux utiliser la gestion des erreurs.

With ActiveSheet
        On Error Resume Next
        .Shapes("Enlever_protection").Delete
        On Error GoTo 0
        .Buttons.Add(50, 10, 120, 25).Name = "NS"    ''distance depuis la gauche, le haut, largeur, hauteur
        .Shapes("NS").OnAction = "Nouvelle_semaine_bis"
        .Shapes("NS").TextFrame.Characters.Text = "Nouvelle semaine"

        .Buttons.Add(180, 10, 220, 25).Name = "Désactiver"
        .Shapes("Désactiver").OnAction = "FIGER_les_macros_évènementielles"
        .Shapes("Désactiver").TextFrame.Characters.Text = "Désactiver les macros événementielles"

        .Buttons.Add(410, 10, 100, 25).Name = "Réactiver"
        .Shapes("Réactiver").OnAction = "REACTIVER_les_macros_évènementielles"
        .Shapes("Réactiver").TextFrame.Characters.Text = "Réactiver"

        .Buttons.Add(520, 10, 130, 25).Name = "MJ_Jours"
        .Shapes("MJ_Jours").OnAction = "Calculjournées2014"
        .Shapes("MJ_Jours").TextFrame.Characters.Text = "Mise à jour des jours"

        .Buttons.Add(660, 10, 130, 25).Name = "Protéger_fichier"
        .Shapes("Protéger_fichier").OnAction = "Protection_feuilles_bis"
        .Shapes("Protéger_fichier").TextFrame.Characters.Text = "Protéger le fichier"

    End With

Bonjour,

come vous l'a dit Yvouille, il se peut que dans le fonctionnement du code vous "partiez" de la feuille "planning" du coup la feuille active n'est plus "Planning" mais une autre et de ce fait le code ne trouve pas le bouton...

Donc plutôt que de faire "With ActiveSheet"

faire : With Sheets("Planning")

Cela devrait résoudre le problème, puisse que le bouton se trouve sur la feuille "Planning"... non ?

@ bientôt

LouReeD