Macro pour inserer une image dans une feuille excel

Bonjour,

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

Code:

---

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

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 ;)

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

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".

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:

---

Feuil1.Protect userinterfaceonly:=True

---

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?

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:

---

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

---

Merci Pierre....mais je suis vraiment un bleu en VBA...

à quel endroit le placer dans ma macro de base?

Si tu positionnes ton objet au moment de l'ajout, il te suffit de compléter ta ligne ActiveSheet.OLEObjects.Add ... top:=..., left:=...

Citation:

---

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?

---

Citation:

---

je suis vraiment un bleu en VBA...

---

Lis ça :
https://msdn.microsoft.com/fr-fr/lib.../ff197177.aspx
https://msdn.microsoft.com/fr-fr/lib.../ff840244.aspx
https://msdn.microsoft.com/fr-fr/lib.../ff195728.aspx

Merci beaucoup, ça fonctionne comme je voulais

à la prochaine:P