Macro pour inserer une image dans une feuille excel

**semarokaben** · 02/05/2017, 14h14

Bonjour,

j'ai cette macro pour attacher une image à une feuille excel

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub addem()
 
Dim vFile As Variant, Sh As Object
vFile = Application.GetOpenFilename("All Files,*.*", Title:="Find file to insert")
If LCase(vFile) = "false" Then Exit Sub
ActiveSheet.OLEObjects.Add Filename:=vFile, Link:=False, DisplayAsIcon:=False, IconFileName:= _
"C:\WINDOWS\Installer\{90110409-6000-11D3-8CFE-0150048383C9}\xlicons.exe", _
IconIndex:=0, IconLabel:=vFile
End Sub

Elle fonctionne très bien normalement, mais elle ne fonctionne plus quand je protégé ma feuille.
quelqu'un aurait il une idée des modifications à y apporter?

d'avance merci

**riaolle** · 02/05/2017, 14h20

Bonjour,

Interesse-toi à Worksheet.Unprotect et Worksheet.Protect.
Quand une feuille est protégée, avec une macro, on ne peut pas faire ce qu'on ne peut pas faire non plus "à la main". Par exemple, la modification d'une cellule n'est pas possible. C'est le but de la protection d'une feuille.
Si tu as besoin de faire qqc sur la feuille en VBA, enlève la protection, fais ce que tu as à faire, puis remet la protection. J'imagine que c'est toi qui a mis la protection et que tu connais l'éventuel mot de passe lié à la protection.

Je me permets 2 commentaires quant à ton intervention dans le forum :

Il y a un forum entièrement dédié à VBA-Excel, il faut y poser ces questions liées à VBA et non pas dans le forum Excel tout court
Quand tu écris du code, utilise les balises code (bouton #), cela permet une meilleure lisibilité.

Ce sera pour la prochaine fois

**semarokaben** · 02/05/2017, 14h24

ok merci pour les infos, je vais aller voir dans le forum VBA après avoir étudier les infos

**Menhir** · 02/05/2017, 14h41

La méthode de riaole est la meilleure mais si tu veux simplement permettre l'insertion d'image (par ta macro ou un autre moyen), tu peux laisser cette possibilité au moment où tu protège ta feuille.
Il suffit, dans la partie "Autoriser...", de cocher l'option "Modifier les objets".

**Pierre Fauconnier** · 03/05/2017, 07h09

Salut.

Pour protéger une feuille côté interface Excel sans la verrouiller pour des modifs réalisées par VBA, tu peux aussi utiliser la méthode Protect avec UserInterfaceOnly à True. Tu pourras ainsi la modifier en VBA alors qu'elle est verrouillée pour l'interface utilisateur. Ce n'est possible qu'en VBA.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Feuil1.Protect userinterfaceonly:=True

**semarokaben** · 03/05/2017, 10h07

Merci pour cette info....j'avance...

Probleme, l'image insérée s'insère n'importe ou sur mon document de base....
une idée pour le positioner directement à un endroit predefine?

**Pierre Fauconnier** · 03/05/2017, 10h19

La méthode Add de OleObjects te permet de préciser Top, Left, Width et Height lors de l'ajout. (https://msdn.microsoft.com/fr-fr/lib.../ff195728.aspx)

Tu peux aussi utiliser

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
dim oo as oleobject
 
set oo = feuil1.oleobjets.add(...)
with oo
    .top = ...
    .left = ...
    .width = ...
    .height = ...
end with