Fermeture de Processus Word via Macro VBA Excel

Version imprimable

Bonjour,

J'utilise un macro pour exporter le contenu de cellules vers Word...Le code marche bien.
Cependant, elle m'ouvre autant de processus WINWORD qu'elle créé de fichiers et elle ne les fermes pas (alors que les fichiers ne sont pas ouverts).
Comment faire pour, soit éviter l'ouverture de tous ces processus, soit forcer leur fermeture via la macro?

D'avance merci.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
' Création document
        Set FichierWord = CreateObject("Word.Application")
        FichierWord.Documents.Add
        ' Ecriture dans document
        FichierWord.Selection.TypeText "Dim db As Database"
        FichierWord.Selection.TypeText "Set db = CurrentDb"
 
        Range("K" & alpha & ":K" & beta).Select
        Range("K" & alpha & ":K" & beta).Copy
        ' Ecriture dans document
        FichierWord.Selection.PasteSpecial
        'déselectionne la zone qui est en mode copy
        'Application.CutCopyMode = False
 
        Range("J" & alpha & ":J" & beta).Select
        Range("J" & alpha & ":J" & beta).Copy
        ' Ecriture dans document
        FichierWord.Selection.PasteSpecial
        'déselectionne la zone qui est en mode copy
        'Application.CutCopyMode = False
 
        'Ouverture
        'FichierWord.WindowState = wdWindowStateMaximize
        'FichierWord.Visible = False
 
alpha = alpha + lastlineDivideRounded
beta = beta + lastlineDivideRounded
Ext = Ext + 1
delta_inc = delta * Ext
gamma = lastline + delta_inc
 
'
'
' Sauvegarde
FichierWord.ActiveDocument.SaveAs "C:\" & Ext

29/10/2009, 15h43
Fvandermeulen

Salut,

Autant tui lui dit "d'ouvir" du Word tu ne lui dit pas de le fermer
Place ceci après ton save as:

Code:

Set FichierWord = Nothing

A+

Bonjour à tous,

un exemple à adapter :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub essai_nouveau_document()
' http://www.developpez.net/forums/d829421/logiciels/microsoft-office/excel/macros-vba-excel/fermeture-processus-word-via-macro-vba-excel/
Dim WrdApp As Word.Application
Dim wrdDoc As Word.Document
Dim Chemin As String
 
Chemin = "X:\xxx\yyy\monFic.doc" 'a adapter
 
Set WrdApp = CreateObject("Word.Application")
Set wrdDoc = WrdApp.Documents.Add
 
WrdApp.Visible = True
' le code du traitement dans word 'a adapter
wrdDoc.SaveAs Chemin
wrdDoc.Close
WrdApp.Quit
End Sub

Bonjour,

J'ai utilisé un mix de vos 2 methodes :ccool:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
 
''''''''''''''''''''''''''''''
' DEFINITION VARIABLES       '
''''''''''''''''''''''''''''''
Dim lastline As Single
Dim lastlineDivide, delta, delta_inc As Single
Dim FichierWord As Object
Dim alpha, beta, Ext, lastlineDivideRounded As Integer
Dim WrdApp As Word.Application
Dim wrdDoc As Word.Document
Dim Chemin As String
 
''''''''''''''''''''''''''''''
 
Sheets("Données").Select
 
''''''''''''''''''''''''''''''
' INITIALISATION VARIABLES   '
Ext = 1
lastline = Range("K2").End(xlDown).Row
lastlineDivide = lastline / 10
alpha = 2
lastlineDivideRounded = Round(lastlineDivide, 0)
beta = lastlineDivideRounded
delta = beta - lastlineDivide
MsgBox "Nombre de lignes à traiter " & lastline
MsgBox "Nombre de lignes par fichier Word: " & lastlineDivideRounded
''''''''''''''''''''''''''''''
 
''''''''''''''''''''''''''''''
' INITIALISATION VARIABLES   '
''''''''''''''''''''''''''''''
Do
        ' Création document
        Set FichierWord = CreateObject("Word.Application")
        FichierWord.Documents.Add
        ' Ecriture dans document
        FichierWord.Selection.TypeText "Dim db As Database"
        FichierWord.Selection.TypeText "Set db = CurrentDb"
 
        Range("K" & alpha & ":K" & beta).Select
        Range("K" & alpha & ":K" & beta).Copy
        ' Ecriture dans document
        FichierWord.Selection.PasteSpecial
        'déselectionne la zone qui est en mode copy
        'Application.CutCopyMode = False
 
        Range("J" & alpha & ":J" & beta).Select
        Range("J" & alpha & ":J" & beta).Copy
        ' Ecriture dans document
        FichierWord.Selection.PasteSpecial
        'déselectionne la zone qui est en mode copy
        'Application.CutCopyMode = False
 
        'Ouverture
        'FichierWord.WindowState = wdWindowStateMaximize
        'FichierWord.Visible = False
 
alpha = alpha + lastlineDivideRounded
beta = beta + lastlineDivideRounded
Ext = Ext + 1
delta_inc = delta * Ext
gamma = lastline + delta_inc
 
 
 
'
'
' Sauvegarde
FichierWord.ActiveDocument.SaveAs "G:\Partage\TMA\Bdd GB85\10 - Base de Données Access\Fiabilisation_Import_VBA_" & Ext
FichierWord.ActiveDocument.Close
FichierWord.Quit
Loop Until beta > gamma

Et ça marche parfaitement!

30/10/2009, 10h56
aalex_38
Bonjour à tous,

Citation:

Et ça marche parfaitement!

Ok, super juste une remarque, en VBA tu ne peux déclarer tes variables par lot, elles doivent toutes être déclarées sinon elles sont de type variant :

J'ai corrigé les deux lignes en cause
Code:

1 2 Dim lastlineDivide As Single, delta As Single, delta_inc As Single Dim alpha As Integer , beta As Integer, Ext As Integer, lastlineDivideRounded As Integer
deuxieme remarque
30/10/2009, 19h46
ted the Ors

Ok merci! :ccool:
Je modifie cela sur le champs!