Erreur shape mise en plein ecran

Bonjour,

Pourriez vous m’éclairer sur cette erreur je ne comprends pas d'ou vient le problème

Sheets(Cpt).Shapes("Plein_écran").TextFrame2.TextRange.Characters.Text = "Petit écran"

Bonjour,

le cpt tu l'as mis sur nouvelle_feuille (sheets(cpt?)

Dim La_feuille As String, Cpt As Integer

tester cela fonctionne comme cela

Option Explicit

Sub Menu()
    Application.ScreenUpdating = False
    Dim La_feuille As String, Cpt As Integer
    La_feuille = ActiveSheet.Name
    If LeMenu = True Then ' si LeMenu = vrai on affiche tout
        With Application
            Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)"
            Application.DisplayFormulaBar = True
            Application.DisplayStatusBar = True
        End With
        With ActiveWindow
            .DisplayHorizontalScrollBar = True
            .DisplayVerticalScrollBar = True
            .DisplayWorkbookTabs = True
        End With
        LeMenu = False
        Sheets(1).Unprotect
        For Cpt = 1 To 4
            Sheets(La_feuille).Activate
            Sheets(La_feuille).Shapes("Plein_écran").TextFrame2.TextRange.Characters.Text = "Plein écran"
            ActiveWindow.DisplayHeadings = True
        Next Cpt
        Sheets(1).Protect
    Else 'sinon on cache
        With Application
            Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",false)"
            Application.DisplayFormulaBar = False
        End With
        LeMenu = True
        Sheets(La_feuille).Unprotect
        For Cpt = 1 To 4
            Sheets(La_feuille).Activate
            Sheets(La_feuille).Shapes("Plein_écran").TextFrame2.TextRange.Characters.Text = "Petit écran"
            ActiveWindow.DisplayHeadings = False
        Next Cpt
        Sheets(1).Protect
    End If
    Sheets(La_feuille).Activate
    Application.ScreenUpdating = True
End Sub

crdlt,

André

bonjour,

Merci Andre13 ta modification fonctionne très bien par contre je ne comprends pas pourquoi sur un classeur ça fonctionne et sur celui que j'ai posté non ? pourtant c'est le même code et meme bouton?

Re,

sans doute qu'il faut lui insérer le nouveau code puis de ré- enregistré le classeur , le fermer et puis l'ouvrir

sans aucune certitude

en tout cas, bon week end

crdlt,

André

Ok merci bien Andre13

bon week-end egalement

Cordialement.

J'ai quand même un problème quand je fait appel a ma macro

call Menu

dans thisworbook open et bien j'ai de nouveau une erreur à l'ouverture de mon classeur sur la ligne

Sheets(La_feuille).Shapes("Plein_écran").TextFrame2.TextRange.Characters.Text = "Petit écran"

que dois je faire pour éviter cette erreur Merci

Re,

je pense que t'ai mis en erreur car, quand tu dis, les shapes tu parles des images de l'onglet Menu ?

regarde si c'est cela

à re-tester désolé

ci-joint

Bonjour

une autre solution a voir

et voir M_MisePage

A+

Maurice

Ok merci à tous toutes vos solutions fonctionnent et résolvent mon problème.

Cordialement.