Discussion :

[Devmartech]

Bonjour,
J'utilse la focntion ci-dessous dans Excel pour récupérer le numero de tableau dans un document word et elle marche très bien.

Mainteanant je souhaite appeler la même fonction dans Access, elle ne marche pas j'ai un message

sachant que le signet existe bien dans le document word.
Est-ce vous voyez d'ou vient le problème ? merci

Code :

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

1
2
3
4
5
6
7
8
9
10
Public Function NumeroDeTableauAPartirSignet(NomSignetTableau As String, wrd As Object) As Integer
 
wrd.Selection.GoTo What:=wdGoToBookmark, Name:=NomSignetTableau
wrd.Selection.HomeKey Unit:=wdStory, Extend:=True
NumTableSelectionne = wrd.Selection.Tables.Count
wrd.Selection.GoTo What:=wdGoToBookmark, Name:=NomSignetTableau
 
NumeroDeTableauAPartirSignet = NumTableSelectionne
 
End Function

[Jean-Philippe André]

Bonjour,

peux-tu nous confirmer que tu utilises la librairie word dans tes références,

car en effet wdGoToBookmark vaut -1, mais n'existant pas nativement sous Excel/Access, elle vaudra 0, ce qui ne correspond à aucune valeur (voir https://docs.microsoft.com/en-us/pre...dgotodirection )

Si tu souhaites ne pas avoir de reference, il te faut alors changer la variable wdGoToBookmark de ton code par sa valeur -1

[Devmartech]

Merci beaucoup Jean-Philippe.
Effectivement c'est un oubli de ma part de la déclaration de la librairie word dans mes références.