Discussion :

[Germinator]

Bonjour a tous,

Je travaille actuellement a la generation automatique de documents word. La generation se fait depuis un programme java. Le contenu du document est genere dans un fichier TXT puis l'appel d'une macro VBA Word permet de mettre en forme le tout.
Pour l'instant je lance l'execution de la macro comme ceci depuis java:

Code :

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

1
2
3
4
5
6
 
Process p = null;
Runtime rt = Runtime.getRuntime();
String[] cmd = {"cmd", "/c", pathToWINWORD.EXE, pathToMyWordDocument, "/mGenerate"};
p = rt.exec(cmd);
p.waitFor();

Mon probleme est que lors de l'execution, word s'ouvre et bloque le process jusqu'a ce que je quitte manuellement Word. Cette macro est cense tourne cote serveur.
Existe-t-il un moyen de lancer word silencieusement pour executer cette macro et donc ne beneficier que du moteur d'execution de macro sans ouvrir l'interface graphique?
Merci d'avance.
Germain

[Heureux-oli]

Salut,

Ce code n'est pas du VBA mais du JAVA.
En VBA, pour avoir l'interface visible, il faut le demander, par défaut elle ne l'est pas.

Pour JAVA, je n'ai aucune idée.

[Germinator]

Salut oli,

Pourrais tu m'eclaircir sur ce point

En VBA, pour avoir l'interface visible, il faut le demander, par défaut elle ne l'est pas.

Pour l'instant je m'oriente vers une solution qui me permettrais de fermer tous les documents ouverts puis de quitter Word, ce qui me permettrais de simuler ce que je souhaite faire:

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 SaveAllAndQuit()
     'Close all open files and shutdown Word
    Application.DisplayAlerts = False
 
    With Application
        .ScreenUpdating = False
 
        Dim i As Integer
        Set i = .Documents.Count
         'Loop Through open documents
        Do Until i = 0
             'Close save
            Documents(i).Saved = True
            i = i - 1
        Loop
 
        .Quit SaveChanges:=wdDoNotSaveChanges
    End With
End Sub

Mais la mon probleme est que je ferme bien tous les documents mais Word reste ouvert (mais sans aucun documents d'ouvert)

Aurais-tu une suggestion?

[carden752]

Bonjour,

Il y a une erreur à l'exécution de ton code sur la ligne suivante :

Code :

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

Set i = .Documents.Count

Il faut la remplacer par

Code :

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

i = .Documents.Count

Et la ta procédure devrait fonctionner.
Attention, le processus Winword.exe peut continuer de tourner dans le cas où d'autres programmes l'utiliserait comme Outlook.