Discussion :

[touche_a_tout]

Bonsoir,
Avec mon code, je transfère du texte d'XL dans un document Word et j'arrive à sauvegarder le document ainsi créé (SaveAs), j'arrive à l'imprimer (PrintOut), à le fermer (Close) mais pas moyen de l'afficher au premier plan (ni Visible=True, ni Show). Est-ce faisable ? Comment ?
Merci d'avance
Pierre

[ouskel'n'or]

Un code qui te permet d'aller dans le doc word et de revenir dans Excel. Mais tu ne dois effectuer aucune opération de fermeture dans le code Excel après activation de Word et fermeture de Word depuis Word

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
Sub OuvrirEtActiverWord()
Dim wdApp As Word.Application
Dim WdDoc As Document
    Chemin = "D:\Doc\"
    NomFich = "Alinea.doc"
    Set wdApp = CreateObject("word.application")    'ouvre une session Word
    Set WdDoc = wdApp.Documents.Open(Filename:=Chemin & NomFich)
    DoEvents
    wdApp.Visible = True
    wdApp.Activate
    'DoEvents
    'WdDoc.Close False
    'wdApp.Quit
    Set wdApp = Nothing
    Set WdDoc = Nothing
End Sub

Il existe une manière de procéder avec shell qui permet de passer dans Word depuis Excel et de poursuivre la macro dans Excel une fois Word fermé. Mais ce code ne crée pas de liaison entre Word et Excel et ouvre simplement Word et le doc.
Si ta macro doit se poursuivre après avoir modifié le document Word, c'est ce que je te conseille. Le msgbox est là pour arrêter la macro. Depuis un userform, pas besoin de msgbox.
Rien n'empêche d'établir une liaison avec le doc modifié ensuite. Ex :

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
Sub WordOuvrirEtRester()
Dim wdApp As Word.Application
Dim WdDoc As Document
Dim WdLType As Document, r
r = Shell("cmd /c WinWord.exe d:\doc\Alinea.doc")
MsgBox "Travail fini dans Word"
    Chemin = "D:\Doc\"
    NomFich = "Alinea.doc"
    Set wdApp = CreateObject("word.application")    'ouvre une session Word
    Set WdDoc = wdApp.Documents.Open(Filename:=Chemin & NomFich)
    DoEvents
    '**************
    'Ton code éventuel pour lire ou écrire dans le doc
    '**************
    WdDoc.Close False
    DoEvents
    wdApp.Quit
    Set wdApp = Nothing
    Set WdDoc = Nothing
End Sub

A toutes fins utiles

[touche_a_tout]

Bonjour,
Merci ouskel'n'or, voilà un joli cadeau. Je tâche d'adapter ça à mon truc puis je cherche le bouton Résolu.
A+
Pierre

[touche_a_tout]

Bonjour,
J'ai ajouté simplement à mon code (pompé chez Walkenbach) 3 lignes extraites du code donné par Ouskel'n'or (merci):

Un code qui te permet d'aller dans le doc word et de revenir dans Excel.

Sub OuvrirEtActiverWord()
...
DoEvents
wdApp.Visible = True
wdApp.Activate

et le tour est joué. Donc "Résolu".
Encore merci
Pierre