Discussion :

[guiMM]

Bonjour à tous ,

J'ai une question qui imbrique à la fois du vba excel et des docs word et sur laquelle j'aurai besoin de l'aide du forum.

J'ai une vingtaine de doc word, avec un meme histogramme dedans (avec un excel derriere donc: cf.quand je double clic dessus il m'ouvre la feuille excel avec les données) et je souhaiterai faire une macro vba qui ouvre chaque doc word, sélectionne le graphique l'actualise (via une macro intermédiaire que j'ai déjà) et ferme le fichier word.

Je n'ai aucun idée de la faisabilité d'une telle manip mais dans l'idée ca donnerait :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Macro() 
 
Document.Open Filename:=   "Z:\...\document word1.doc" 
 
-> étape pour sélectionner le graph et ouvrir la Worksheet derrière  
 
Application.Run "personnel.XLSB!Module1.Actualiser_graphique" 
 
Document.SaveAs Filename:= "Z:\...\document word1.doc" 
 
->répétition de la procédure pour tout les autres fichiers word. 
 
End sub

Une telle macro vba me ferait gagner bcp de temps donc je me prends un peu à rever se sa faisabilité.

Est que qqun aurait une idée , une piste ?
Ou tout simplement me dire s'il est possible de controller du word via une macro vba excel.


Merci d'avance,
Bon week end,

Guillaume

[Jean-Pierre49]

Bonjour

Ou tout simplement me dire s'il est possible de controller du word via une macro vba excel.

Oui, une piste

Avec la référence Microsoft Word XX.X Library

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
                        Dim WordApp                 As Word.Application
                        Dim WordDoc                 As Word.Document
 
    Set WordApp = CreateObject("Word.Application")
 
    WordApp.Visible = False ' tu ouvre Word
    Set WordDoc = WordApp.Documents.Open("Z:\...\document word1.doc", ReadOnly:=False) ' tu ouvre ton fichier
 
 
 
La tu lance ta macro Intermédiaire
 
 
 
 
	WordDoc.Close true ' tu ferme ton fichier
        WordApp.Quit 'tu ferme Word

Bon courage