Discussion :

[ted the Ors]

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

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

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

Set FichierWord = Nothing

A+

[aalex_38]

Bonjour à tous,


un exemple à adapter :

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

[ted the Ors]

Bonjour,

J'ai utilisé un mix de vos 2 methodes

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

[aalex_38]

Bonjour à tous,

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 :

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

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

[ted the Ors]

Ok merci!
Je modifie cela sur le champs!