Discussion :

[RichardLaFrite]

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 :

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

[Invité]

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.

[RichardLaFrite]

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.

[Invité]

Pourquoi ne pas utiliser directement l'objet wddoc ?

Code :

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

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