Discussion :

[Selecteur]

Bonjour à tous,

J'ai une petite macro (récupérée et modifiée pour mes besoins) qui me permet d'écrire dans Word des données issues d'Excel. Bien, mais à la fin je souhaiterais faire apparaître un petit message via une Msgbox. Le soucis c'est que la boîte de dialogue s'affiche sur Excel et non dans Word. Pourriez-vous, svp, regarder le code et me dire ce qui ne va pas. Je pense qu'il faut quelque chose devant "MsgBox" mais je ne sais pas quoi ???
D'avance je vous remercie.

Selecteur

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
20
21
22
23
Sub ExportDonneesDansSignetsWord()
 
Dim WordApp As Word.Application
Dim WordDoc As Word.Document
Dim i As Byte
Dim Message
 
Set WordApp = CreateObject("Word.Application") ' ouvre une session word
Set WordDoc = WordApp.Documents.Open("C:\Documents and settings\Hervé\Mes documents\Macro.doc") ' ouvre le document word : Macro.doc
WordApp.Visible = False  ' word est masqué pendant l'opération
' les signets sont les suivants : Nom1, Prénom2,Adresse3, Tel4
WordDoc.Bookmarks("Nom1").Range.Text = Cells(3, 1)   ' copie A3
WordDoc.Bookmarks("Prénom2").Range.Text = Cells(3, 3)   ' copie C3   '  et place le tout aux signets dans word
WordDoc.Bookmarks("Adresse3").Range.Text = Cells(3, 6)   ' copie F3
WordDoc.Bookmarks("Tel4").Range.Text = Cells(3, 9)   ' copie I3
WordApp.Visible = True   ' affiche le document word
Message = MsgBox("Et voilà...La macro fonctionne !", vbOKOnly, "Hourra !")
 
 
' WordDoc.PrintOut    ' Impression du document
 
 
End Sub

[ouskel'n'or]

Je n'ai pas testé mais si tu mets, après

Code :

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

1
2
WordApp.Visible = True
WordApp.show

ça donne quoi ?
Ensuite, du devras fermer ton doc et l'appli pour repasser dans Excel
Je réalise, ta question devrait aller dans le forum VBA Excel.
Je te laisse me répondre, après je le déplacerai
A+

[Selecteur]

Bonsoir,

Je te remercie pour ton aide ouskel'n'or.
Malheureusement ce rajout ne modifie rien au résultat : la Msgbox apparaît toujours sous Excel. D'accord pour le déplacement du post dans le forum VBA Excel.

Selecteur