pas d action dans document

Bonjour à tous,

je crée ce code,

le documents s'ouvre puis plus rien

mais si le document est déjà ouvert, l'action se réalise bien.

merci, bonne soirée

Po

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Sub ouvrir()     Dim wdapp As Application Dim wddoc As Document   Set wddoc = Documents.Open("C:\Users\doc_insertion.docx")   wddoc.Activate ActiveDocument.Bookmarks("bm_ici").Range.Select   Selection.Text = "essai"         End Sub

---

Citation:

---

Envoyé par RichardLaFrite

---

Bonjour,

Vu l'emplacement où vous avez placé ce fichier, il est possible qu'il ne soit qu'en lecture seule. Si c'est le cas, le bandeau tout en haut affiche "Lecture seule" derrière le nom du fichier. Il faudrait placer ce fichier a minima dans "C:\Users\XXX\Documents", XXX étant votre user.
Si votre fichier est déjà ouvert, le code modifie le signet, c'est normal, mais vous ne devriez pas pouvoir sauvegarder la modification.

Merci beaucoup d'avoir pris le temps de me répondre.

le chemin du fichier est bien identifié (j'ai supprimer pour le forum mon nom d user)
et le fichier s'ouvre.
une fois ouvert le signet ne se remplit pas. il faut que je relance la procédure pour que le signet se remplisse.

Citation:

---

Envoyé par RichardLaFrite

---

Pourquoi ne pas utiliser directement l'objet wddoc ?

Code:

---

wddoc.Bookmarks("bm_ici").Range.Select

---