Bonjour,
Je bloque sur le problème suivant.
A l'ouverture du classeur, dans "Thisworkbook" se trouve le code suivant afin d'activer à l'ouverture la feuille sh_11xx (codename).

Dans la feuille se trouve le code suivant :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
Private Sub worksheet_activate()
 
Application.ScreenUpdating = False
 
Me.Unprotect password:=PW
 
'mise en page du titre
 
    Dim T1$, T2$, chaine_rouge$, x&
    T1 = sh_parameters.Range("A21").Value
    T2 = sh_update.Range("C1")
    chaine_rouge = "(source-oorsprong SAP - " & T2 & ")"
    With Range("a1")
        .Value = "Dépenses de personnel / Personeelsuitgaven - Bud_" & T1 & " " & chaine_rouge
        x = InStrRev(.Value, chaine_rouge)
        With .Font
            .Bold = True
            .Italic = True
            .Name = "Verdana"
            .Size = 18
        End With
        .Characters(x, Len(chaine_rouge)).Font.Color = vbRed
    End With
 
 
'ouverture sur cellule déterminée
Application.Goto reference:=Range("M2"), Scroll:=True
 
With Me
    .Range("a1").Interior.Color = RGB(255, 255, 176)
    .Columns("A:XFD").Hidden = False
    .Columns("B:F").Hidden = True
    .Columns("H").ColumnWidth = 2.6
    .Columns("AC").ColumnWidth = 7.75
    .Columns("I").ColumnWidth = 17.15
    .Columns("L").ColumnWidth = 17.15
    .Columns("AA:AB").ColumnWidth = 17.15
    .Columns("J:K").ColumnWidth = 15.3
    .Columns("M:P").ColumnWidth = 15.3
    .Columns("R:X").ColumnWidth = 15.3
    .Columns("Z").ColumnWidth = 15.3
    .Columns("Y").ColumnWidth = 14.3
    .Columns("Q").ColumnWidth = 14.3
End With
 
Me.Protect password:=PW, UserInterfaceOnly:=True
 
Application.ScreenUpdating = True
 
End Sub
Mon problème est que le code ne fait rien alors que j'active bien la feuille à l'ouverture du classeur.
En fait si je ferme et enregistre le classeur sur une autre feuille, à l'ouverture le code marche
Mais si par contre je ferme et enregistre sur la feuille 11xx ==> rien

pq?

Merci.