Sélection obligatoire bookmarks dans mail Outlook

Bonjour les amis,

Comme la gestion de mail s'effectue à partir d'Excel, j'ouvre ma discussion dans cet espace

Avec

Code:

---

Set wdDoc = itemoutlook.GetInspector.WordEditor

---

Pour supprimer le bookmark signature, il est impossible de lui affecter directement la méthode "Delete"

Le code suivant est sans effet

Code:

---

1 2 3 4 5

Set objBkm = wdDoc.bookmarks("_MailAutoSig") If Not objBkm Is Nothing Then objBkm.Delete End If Set objBkm = Nothing

---

Celui-ci est effectif

Code:

---

1 2 3 4 5 6

Set objBkm = wdDoc.bookmarks("_MailAutoSig") If Not objBkm Is Nothing Then objBkm.Select wdDoc.Windows(1).Selection.Delete End If Set objBkm = Nothing

---

Ma question.
Pourquoi cette sélection est-elle obligatoire?
("J'aime paaaaaaas les Sélections!")

Par avance, merci pour vos lumineuses lumières. :D

Salut,

comme c'est le cas pour les pilotages de PowerPoint, il arrive que VBA impose que l'objet que tu manipules soit dans le document ou l'objet actif. Aussi tu aurais pu passer par le ActiveDocument Word, comme l'exemple msdn :
https://docs.microsoft.com/fr-fr/off...ookmark.delete

Bonjour le Forum,

Salut Jean-Philippe (ravi de te retrouver)

Merci pour ta réponse et ce lien.

J'ai adapté

Code:

---

1 2 3 4

With wdDoc If .bookmarks.Exists(Name:="_MailAutoSig") Then _ .bookmarks(Index:="_MailAutoSig").Delete End With

---

L'exécution en pas à pas amène bien la condition.

Mais la méthode Delete n'a aucun effet :aie:

OK, et si on doit faire en sorte que ton wddoc soit actif, avec un Activate ?

Dans tous les cas, si ta solution 2 du premier post fait le nécessaire, c'est plus une notion de cas de figure "objet actif" qu'un problème de code selon moi :)

Bonne nouvelle, Jean Philippe,

J'ai trouvé, après quelques recherches, cet espace


Il manquait la désignation de l'objet Range

Soit

Code:

---

1 2 3 4

With wdDoc If .bookmarks.Exists(Name:="_MailAutoSig") Then _ .bookmarks(Index:="_MailAutoSig").Range.Delete End With

---

Microsoft:)

Une autre méthode d'près l'espace.

Code:

---

1 2 3

Set objBkm = wdDoc.bookmarks("_MailAutoSig") If Not objBkm Is Nothing Then objBkm.Range.Delete Set objBkm = Nothing

---

Je pense que l'on peut généraliser ce process (je m'y emploierai à l'avenir)

Code:

---

1 2 3

Set lobjet = …. If Not lobjet Is Nothing Then lobjet.Delete Set lobjet = Nothing

---

A cette nuance près ici pour l'objet Range.

Mais, par exemple, pour supprimer une feuille de travail si elle existe, etc.…

Salut et merci.