Bonjour,

Alors autant vous prévenir le VBA est vraiment pas ma spécialité, je suis plutôt développeur web.

Mais j'ai besoin d'utiliser Excel.

J'ai réalisé une feuille excel avec des calculs, je permet aux utilisateurs de saisir uniquement dans certaines cellule, les autres étant verrouillés. Jusqu'à la pas de pb. Mais ou il y a pb, c'est qu'ils doivent pouvoir ajouter une ou n images sur la feuille. En standard apparement c'est pas possible ou alors j'ai loupé quelque chose.

Donc je voulais réaliser une macro ( ou plutôt copier une macro ou des macros existantes) qui insère une image sur ma feuille avec la statut de non verrouillé.

J'ai trouvé et modifié çà :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Public Sub insere_image()
 
Dim ficimg As Variant
    ficimg = Application.GetOpenFilename(".jpg,*.jpg", , "Choisissez l'image")  ' 
    ActiveSheet.Pictures.Insert(ficimg).Select ' insertion
 
    With Selection
        .PrintObject = True             
        .Placement = xlMoveAndSize  
        .Locked = False
    End With
 
 
End Sub
Cette macro fonctionne tant que la feuille n'est pas protégé.

Après j'ai un message d'erreur :

La methode select de la classe Picture a echoué.


pouvez vous m'aider

Merci