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 : 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
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