Bonjour,
Je souhaiterais faire apparaitre une image suivant l'état vérouillé ou pas d'une feuille:
voici mon code, mais ca ne marche pas!!

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
Sub deverouiller_feuil1()
 
    ActiveSheet.Unprotect
    Application.Run "etat_feuil1_verouille"
End Sub
 
 
Sub verouiller_feuil1()
    Range("J3").Select
    ActiveCell.FormulaR1C1 = "=TODAY()"
 
    Application.Run "etat_feuil1_verouille"
 
    ActiveSheet.Protect
 
End Sub
 
 
Sub etat_feuil1_verouille()
 
 
    ActiveSheet.Shapes("Picture 21").Select
    Selection.Copy
    Range("H14").Select
    ActiveSheet.PasteSpecial Format:="Image (JPEG)", Link:=False, _
    DisplayAsIcon:=False
 
    End With
 
 
End Sub
 
Sub etat_feuil1_deverouille()
 
    ActiveSheet.Shapes("etat1").Select
    Selection.Delete
 
    ActiveSheet.Shapes("Picture 22").Select
    Selection.Copy
    Range("H14").Select
    ActiveSheet.Paste
 
    ActiveSheet.PasteSpecial Format:="Image (JPEG)", Link:=False, _
    DisplayAsIcon:=False
 
 
End Sub