rendre Word "invisible"

**aliasjadawin** · 18/11/2010, 16h31

Bonjour,
je me permets de revenir sur un code que j'avais déjà posté il y a quelques jours. Mon problème était que la boucle for s'arrêtait après la 1ère itération.
Cela venait du fait que la propriété visible (voir code en gras) de l'application Word était sur false (je n'ai toujours pas compris ce problème...). Dans tous les cas ça marche maintenant, mais c'est très moche visuellement car à chaque itération Word se lance, le publipostage s'exécute, word sauvegarde et quitte, et tout ça de manière visuelle.
Pour le moment cela rend mon outil inutilisable au sens de l'utilisateur.

Merci de (re)soumettre vos idées.

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
74
75
76
77
78
79
80
81
82
83
84
Sub MakeMemos()
'crée des mémos dans word en utilisant l'automation
    Dim WordApp As Word.Application
   
    
    
'démarre word et crée un objet
    
    Set WordApp = New Word.Application
    WordApp.Visible = True 'si False la boucle ne boucle pas
    Application.ScreenUpdating = False
    
    
'information de la feuille de travail
    Set Data = Sheets("Feuil4").Range("A1")
    Message = Sheets("Feuil4").Range("E5")
    
'boucle sur les lignes de données
    Records = Application.CountA(Sheets("Feuil4").Range("A:A"))
    For i = 1 To Records
    
'mise à jour barre de progression
        Application.StatusBar = "Processing record" & i
        
'assigne la valeur courante aux variables
        Region = Data.Offset(i - 1, 0).Value
        SalesAmt = Format(Data.Offset(i - 1, 2).Value, "#,000")
        SalesNum = Data.Offset(i - 1, 1).Value
        
'détermine le nom du fichier
        SaveAsName = ThisWorkbook.Path & "\" & Region & ".doc"
        
'envoie des commandes à word
'On Error Resume Next
           

       With WordApp
       .Documents.Add
       
            With .Selection
                .Font.Size = 14
                .Font.Bold = True
                .ParagraphFormat.Alignment = 1
                .TypeText Text:="C O U C O U"
                .TypeParagraph
                .TypeParagraph
                .Font.Size = 12
                .ParagraphFormat.Alignment = 0
                .Font.Bold = False
                .TypeText Text:="Date:" & vbTab & _
                Format(Date, "mmmm d, yyyy")
                .TypeParagraph
                .TypeText Text:="To:" & vbTab & Region & _
                "Manager"
                .TypeParagraph
                .TypeText Text:="From:" & vbTab & _
                Application.UserName
                .TypeParagraph
                .TypeParagraph
                .TypeText Message
                .TypeParagraph
                .TypeParagraph
                .TypeText Text:="Units Sold:" & vbTab & _
                SalesNum
                .TypeParagraph
                .TypeText Text:="Amount:" & vbTab & _
                Format(SalesAmt, "$#,##0")
            End With
        .ActiveDocument.SaveAs Filename:=SaveAsName
            .ActiveWindow.Close
            End With
        
    Next i
    
    'tue l'objet
    WordApp.Quit
    Set WordApp = Nothing
    
    'reset
    Application.StatusBar = ""
    MsgBox Records & " memos ont été créés et sauvegardés dans " & _
    ThisWorkbook.Path
End Sub

Je rappelle que ce code est, à la base, tiré d'un livre Excel 2000

**jfontaine** · 18/11/2010, 17h10

A tester en déclarant ta variable application word en type object

En faisant cela plus besoin de declarer la référence Word

Code :

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

1
2
3
4
5
6
 
Dim appWord As Object
 
Set appWord = CreateObject("Word.Application")
 
Set WordApp = New Word.Application

dans mon cas, mettre visible a false fonctionne

**aliasjadawin** · 18/11/2010, 17h20

tu veux dire :

Code :

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

1
2
3
4
5
6
 
Dim WordApp As Object
 
Set WordApp = CreateObject("Word.Application")
 
Set WordApp = New Word.Application

???

je vais tester, merci.

**aliasjadawin** · 18/11/2010, 17h24

Nop, le résultat est le même...je vois Word apparaître, rapidement certes (je n'ai que trois lignes) mais quand j'aurais une centaine de lignes à traiter, ce ne sera plus acceptable.
Merci quand même.

**jfontaine** · 18/11/2010, 17h36

je vois Word apparaître,

N'as tu pas oublié de mettre

Code :

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

WordApp.Visible = False

**aliasjadawin** · 18/11/2010, 17h41

en effet ça allait pas se faire tout seul...

Et bien non...j'obtiens la même erreur qu'avant (en gras dans le code).
Je ne sais que 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
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
74
75
76
77
78
79
80
81
82
83
84
85
86
Sub MakeMemos()
'crée des mémos dans word en utilisant l'automation
   
    Dim WordApp As Object
    Set WordApp = CreateObject("Word.Application")
    Set WordApp = New Word.Application
 
    
'démarre word et crée un objet
    
    
    WordApp.Visible = False
    Application.ScreenUpdating = False
    
    
'information de la feuille de travail
    Set Data = Sheets("Feuil4").Range("A1")
    Message = Sheets("Feuil4").Range("E5")
    
'boucle sur les lignes de données
    Records = Application.CountA(Sheets("Feuil4").Range("A:A"))
    For i = 1 To Records
    
'mise à jour barre de progression
        Application.StatusBar = "Processing record" & i
        
'assigne la valeur courante aux variables
        Region = Data.Offset(i - 1, 0).Value
        SalesAmt = Format(Data.Offset(i - 1, 2).Value, "#,000")
        SalesNum = Data.Offset(i - 1, 1).Value
        
'détermine le nom du fichier
        SaveAsName = ThisWorkbook.Path & "\" & Region & ".doc"
        
'envoie des commandes à word
'On Error Resume Next
           

       With WordApp
       .Documents.Add
       
            With .Selection
                .Font.Size = 14
                .Font.Bold = True
                .ParagraphFormat.Alignment = 1
                .TypeText Text:="C O U C O U"
                .TypeParagraph
                .TypeParagraph
                .Font.Size = 12
                .ParagraphFormat.Alignment = 0
                .Font.Bold = False
                .TypeText Text:="Date:" & vbTab & _
                Format(Date, "mmmm d, yyyy")
                .TypeParagraph
                .TypeText Text:="To:" & vbTab & Region & _
                "Manager"
                .TypeParagraph
                .TypeText Text:="From:" & vbTab & _
                Application.UserName
                .TypeParagraph
                .TypeParagraph
                .TypeText Message
                .TypeParagraph
                .TypeParagraph
                .TypeText Text:="Units Sold:" & vbTab & _
                SalesNum
                .TypeParagraph
                .TypeText Text:="Amount:" & vbTab & _
                Format(SalesAmt, "$#,##0")
            End With
        .ActiveDocument.SaveAs Filename:=SaveAsName
            .ActiveWindow.Close
            End With
        
    Next i
    
    'tue l'objet
    WordApp.Quit
    Set WordApp = Nothing
    
    'reset
    Application.StatusBar = ""
    MsgBox Records & " memos ont été créés et sauvegardés dans " & _
    ThisWorkbook.Path
End Sub

je précise l'erreur

Erreur d'Automation
Echec de l'appel de procédure distante

Kézako ???

**jfontaine** · 18/11/2010, 17h59

Sort de la boucle la ligne

Code :

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

 .ActiveWindow.Close

Car elle ferme Word

**aliasjadawin** · 18/11/2010, 18h21

ça ne change rien ça ne fait que fermer la derniere fenêtre active mais visuellement c'est IDEM, en fait cette ligne ne sert même à rien car à la sortie de ma boucle je fais :

Code :

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

1
2
 
WordApp.Quit

ce qui tue l'application Windows.
Le problème serait de savoir comment pouvoir écrire:

Code :

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

1
2
 
WordApp.Visible = False

sans que cela me produise l'erreur d'automation...
Merci de ton soutien.

**jfontaine** · 18/11/2010, 18h27

j'ai repris ton code en mettant en commentaire les lignes excel (pas utile pour le test de Word)

Ce code fonctionne sans probleme sur mon poste et sans afficher Word

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
74
75
76
77
78
79
80
81
82
83
84
85
'crée des mémos dans word en utilisant l'automation
 
    Dim WordApp As Object
    Set WordApp = CreateObject("Word.Application")
 
 
 
'démarre word et crée un objet
 
 
    WordApp.Visible = False
    Application.ScreenUpdating = False
 
 
'information de la feuille de travail
'    Set Data = Sheets("Feuil4").Range("A1")
'    Message = Sheets("Feuil4").Range("E5")
'
''boucle sur les lignes de données
'    Records = Application.CountA(Sheets("Feuil4").Range("A:A"))
'    For i = 1 To Records
'
''mise à jour barre de progression
'        Application.StatusBar = "Processing record" & i
'
''assigne la valeur courante aux variables
'        Region = Data.Offset(i - 1, 0).Value
'        SalesAmt = Format(Data.Offset(i - 1, 2).Value, "#,000")
'        SalesNum = Data.Offset(i - 1, 1).Value
'
''détermine le nom du fichier
'        SaveAsName = ThisWorkbook.Path & "\" & Region & ".doc"
 
'envoie des commandes à word
'On Error Resume Next
 
    For i = 1 To 2
 
 
       With WordApp
       .Documents.Add
 
            With .Selection
                .Font.Size = 14
                .Font.Bold = True
                .ParagraphFormat.Alignment = 1
                .TypeText Text:="C O U C O U"
                .TypeParagraph
                .TypeParagraph
                .Font.Size = 12
                .ParagraphFormat.Alignment = 0
                .Font.Bold = False
                .TypeText Text:="Date:" & vbTab & _
                Format(Date, "mmmm d, yyyy")
                .TypeParagraph
                .TypeText Text:="To:" & vbTab & Region & _
                "Manager"
                .TypeParagraph
                .TypeText Text:="From:" & vbTab & _
                Application.UserName
                .TypeParagraph
                .TypeParagraph
                .TypeText "coucou"
                .TypeParagraph
                .TypeParagraph
                .TypeText Text:="Units Sold:" & vbTab & _
                SalesNum
                .TypeParagraph
                .TypeText Text:="Amount:" & vbTab & _
                Format(SalesAmt, "$#,##0")
            End With
        .ActiveDocument.SaveAs Filename:="c:\test" & i & ".doc"
 
            End With
 
    Next i
 
    'tue l'objet
'    WordApp.Quit
    Set WordApp = Nothing
 
    'reset
    Application.StatusBar = ""
    MsgBox Records & " memos ont été créés et sauvegardés dans " & _
    ThisWorkbook.Path

**aliasjadawin** · 18/11/2010, 18h36

Merci pour ta patience et ta compétence.
Le code suivant est (enfin) fonctionnel:

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
74
75
76
77
78
79
80
81
82
 
Sub MakeMemos()
'crée des mémos dans word en utilisant l'automation
    Dim i As Integer
    Dim WordApp As Object
    Set WordApp = CreateObject("Word.Application")
    Set WordApp = New Word.Application
 
 
'démarre word et crée un objet
    WordApp.Visible = False
    Application.ScreenUpdating = False
 
 
'information de la feuille de travail
    Set Data = Sheets("Feuil4").Range("A1")
    Message = Sheets("Feuil4").Range("E5")
 
'boucle sur les lignes de données
    Records = Application.CountA(Sheets("Feuil4").Range("A:A"))
    For i = 1 To Records
 
'mise à jour barre de progression
        Application.StatusBar = "Processing record" & i
 
'assigne la valeur courante aux variables
        Region = Data.Offset(i - 1, 0).Value
        SalesAmt = Format(Data.Offset(i - 1, 2).Value, "#,000")
        SalesNum = Data.Offset(i - 1, 1).Value
 
'détermine le nom du fichier
        SaveAsName = ThisWorkbook.Path & "\" & Region & ".doc"
 
'envoie des commandes à word
'On Error Resume Next
        With WordApp
       .Documents.Add
            With .Selection
                .Font.Size = 14
                .Font.Bold = True
                .ParagraphFormat.Alignment = 1
                .TypeText Text:="C O U C O U"
                .TypeParagraph
                .TypeParagraph
                .Font.Size = 12
                .ParagraphFormat.Alignment = 0
                .Font.Bold = False
                .TypeText Text:="Date:" & vbTab & _
                Format(Date, "mmmm d, yyyy")
                .TypeParagraph
                .TypeText Text:="To:" & vbTab & Region & _
                "Manager"
                .TypeParagraph
                .TypeText Text:="From:" & vbTab & _
                Application.UserName
                .TypeParagraph
                .TypeParagraph
                .TypeText Message
                .TypeParagraph
                .TypeParagraph
                .TypeText Text:="Units Sold:" & vbTab & _
                SalesNum
                .TypeParagraph
                .TypeText Text:="Amount:" & vbTab & _
                Format(SalesAmt, "$#,##0")
            End With
        .ActiveDocument.SaveAs Filename:=SaveAsName
            End With
    Next i
 
    'WordApp.ActiveWindow.Close
    'tue l'objet
    WordApp.Quit
 
    Set WordApp = Nothing
 
    'reset
    Application.StatusBar = ""
    MsgBox Records & " memos ont été créés et sauvegardés dans " & _
    ThisWorkbook.Path
 
End Sub

Donc word est bien invisible sauf que c'est illusoire car après exécution de ma procédure, Winword.exe reste actif dans mon gestionnaire de tâches....

**jfontaine** · 18/11/2010, 18h53

vérifie que ce n'est pas une vieille instance car avec le code

Code :

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

1
2
3
 
WordApp.Quit
Set WordApp = Nothing

il n'y a pas de raison qu'elle reste active

rendre Word "invisible" [XL-2003]

Macros et VBA Excel

Discussions similaires

Partager

Partager