Discussion :

[tgaumont]

bonjour

Je travaille à partir d'Excel sur des macro Excel et Word.

A partir d'un fichier Excel déja ouvert qui contient un lien, j'ouvre un ficher word.

Une fois le fichier word atteint, je veux atteindre le signet "DebutEquipement"

Je bloque un peu sur la dernière partie mais je n'arrive pas a trouver le problème dans les lignes que j'ai fait.

Voila la macro que j'ai fait pour le moment:

******

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub AtteindreSignetDocOuvert()
 
Dim WordApp As Object
            Range("D" & 19).Select
            Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True           
            Set WordApp = GetObject(, "Word.Application")
            WordApp.Visible = True
            Selection.Goto What:=wdGoToBookmark, Name:="DebutEquipement"
 
End Sub

*****

Je ne sais pas si c'est c'est clair, mais si vous savez où le problème dans l'utilisation de ces fonctions je suis preneuse...(pour ne pas dire je m'y arrache les cheveux...)

Merci de votre aide

[Daniel.C]

Bonsoir,

Essaie :

Code :

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

WordApp.ActiveDocument.Goto What:=wdGoToBookmark, Name:="DebutEquipement"

[tgaumont]

Effectivement j'avais un problème de déclaration de Wordapp et WordDoc, maintenant ça fonctionne en utilisant la fonction comme tu le conseil (Je ne reposte pas le code exact car entre temps je l'ai modifié

Merci!