Fermeture de Processus Word via Macro VBA Excel
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 |