Discussion :

[hlander]

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

[hlander]

Désolé de vient de trouver :

voici donc le résultat :

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
Public Sub insere_image()
 
    Dim ficimg As Variant
 
    ActiveSheet.Unprotect "XXX"
 
    ficimg = Application.GetOpenFilename(".jpg,*.jpg", , "Choisissez l'image")  
    ActiveSheet.Pictures.Insert(ficimg).Select ' insertion
 
    With Selection
        .Locked = False
        .PrintObject = True            
        .Placement = xlMoveAndSize      
    End With
    ActiveSheet.Protect "XXX"
 
End Sub

J'ai juste une petite question encore, lorsque la fenetre pour choisir l'image apparait si je fais annuler, j'ai un message d'erreur :

impossible de lire la propriété insertde la classe pictures

[casavba]

une petite gestion d'erreur suffira :

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
Public Sub insere_image()
 
    Dim ficimg As Variant
 
    ActiveSheet.Unprotect "XXX"
 
    On Error Resume Next
    ficimg = Application.GetOpenFilename(".jpg,*.jpg", , "Choisissez l'image")
 
    ActiveSheet.Pictures.Insert(ficimg).Select ' insertion
 
    With Selection
        .Locked = False
        .PrintObject = True
        .Placement = xlMoveAndSize
    End With
    ActiveSheet.Protect "XXX"
 
End Sub

[hlander]

Merci beaucoup c'est parfait......

Une remarque tout de même, lorsque la feuille est protégé je peux tout de même accéder aux macros et donc voir le mot de passe pour Oter la protection.

J'ai encore du louper quelque chose c'est pas possible que se soit ainsi.

[casavba]

Bien sûr.

N'oublie pas le tag

[hlander]

Que veux tu dire par bien sur ?

[casavba]

quand tu protèges ta feuille Excel avec un mot de passe, le projet VBA reste accessible sauf si tu veux le protéger lui aussi.

Donc, pour répondre à ta question ---> tu peux accéder à ton code vba même si la feuille est protégée.
Maintenant, si tu veux protéger ton code par un mot de passe, c'est possible aussi.

[hlander]

Merci je vais chercher