Bonjour à tous,
Depuis 2 jours, je suis sur un problème et malgré de nombreuses recherches, je suis toujours bloquée.
J'espère que vous pourrez m'apporter un peu d'aide.
Je veux récupérer un champ renseigné dans un formulaire word sous Excel.
L'application Word s'ouvre correctement
Seulement j'ai toujours l'erreur "5941 - Le membre de la collection n'existe pas" qui s'affiche lors de l'exécution de la ligne avec le MsgBox
Dans mon formulaire Word, j'ai bien un TextBox ayant pour attribue "Name" la valeur "nom"
J'ai essayé les enregistrements en .doc et .docm et toujours le même problème.
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
18 Sub Word() Dim strFich As String Dim objWord As Word.Application Dim objDoc As Word.Document strFich = "C:\Users\User\Desktop\essai excel\essai1.docm" 'ouvrir un document word Set objWord = New Word.Application Set objDoc = objWord.Documents.Open(strFich) 'rendre word visible objWord.Visible = True MsgBox objDoc.FormFields("nom").Result objWord.Documents.Close (0) End Sub
Merci d'avance pour votre aide







Répondre avec citation
Partager