Discussion :

[article50]

Bonjour,

Dans Excel j'ai créé un formulaire qui me sert à récupérer des adresses en particuliers parmi un grand annuaire.
A ce moment-là, Excel ne m'est plus utile et je lance mon modèle Word.

Code :

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

1
2
3
4
Dim objWord As New Word.Application
Dim wordDoc As Word.Document
Set wordDoc = objWord.Documents.Open("C:\modèle.doc")
    objWord.Visible = True

"C:\modèle.doc" possède 1 userform appelé "Formulaire"
Excel peut-il faire démarrer "Formulaire" et remplir Textbox1.text = "rue de la résistance"?

Code :

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

1
2
wordDoc.Formulaire.Show
 ..ne fonctionne pas..

Code :

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

1
2
wordDoc.Formulaire.Textbox1.text = "rue de la résistance" 
..ne fonctionne pas..

Ou bien faut-il utiliser ceci ?

Code :

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

1
2
3
Private Sub Document_Open()
Formulaire.Show
...

Mais dans ce cas comment Word saura que "rue de la résistance" est la valeur à insérer depuis un formulaire Excel actuellement ouvert?

[Invité]

Bonjour,

Un exemple :

Dans un fichier Excel :

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
19
 
Sub TransfertChaineExcelDansWord()
 
Dim WordApp As Object, WordDoc As Object
Dim MaChaine As String
 
         MaChaine = "rue de la résistance"
 
         Set WordApp = CreateObject("word.application")
         WordApp.Visible = True
         Set WordDoc = WordApp.Documents.Open(ThisWorkbook.Path & "\NomDoc.docm")
 
         WordApp.Run "MettreAJourUserform", MaChaine
 
         Set WordDoc = Nothing
         WordApp.Quit
         Set WordApp = Nothing
 
End Sub

Dans le fichier Word NomDoc.docm, la macro "MettreAJourUserform" :

Code :

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

1
2
3
4
5
6
7
8
9
 
Sub MettreAJourUserform(ByVal MaChaineExcel As String)
 
    With UserForm1
      .TextBox1 = MaChaineExcel
      .Show
   End With
 
End Sub

[article50]

Merci Eric pour cet excellent code! Grâce auquel j'ai appris de nouvelles choses vraiment très utiles ! super