Discussion :

[QuestVba]

Bonjour à Tous et Toutes,

J'ai un problème dans la conception d'une macro vba. J'espère trouver de l'aide auprès de Vous.

En word, j'ai créé un modèle avec une Sub Autonew (word détecte quels sont les documents word ouverts) :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub UserForm_Initialize() 
Dim agentvérif(20) 
r = 1 
For Each adoc In Documents 
If adoc.Name = "aaaNormal.dot" Then GoTo line963 
If adoc.Name = "itinera_aaanormal.dot" Then GoTo line963 
agentvérif(r) = adoc.Name 
ComboBox1.AddItem agentvérif(r) 
r = r + 1 
line963: 
Next adoc 
ComboBox1.Value = agentvérif(1) 
End Sub

Quand je lance word directement, la macro fonctionne bien .

Mais quand elle est lancée via excel avec cette macro, word ne me donne aucun résultat:

Code :

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

1
2
3
4
5
6
...… 
Application.WindowState = xlMinimized 
Set appwrd = CreateObject("Word.Application") 
appwrd.Visible = True 
Set docword = appwrd.documents.Add(template:="i:...\itinera_aaanormal.dot", newtemplate:=False, documenttype:=0) 
Application.Quit

Avez-vous une idée de mon plantage?

[Heureux-oli]

Salut,

J'ai repris ton code, mis à part le chemin du modèle que je n'ai pas mis.

Je n'ai pas rencontré de problème.

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub olivier()
Dim appwrd As Object
Dim docword As Object
Application.WindowState = xlMinimized
Set appwrd = CreateObject("Word.Application")
appwrd.Visible = True
Set docword = appwrd.documents.Add
Application.Quit
 
End Sub

Si c'est possible, essaie de ajouter la référence à la bibliothèque Word dans ton projet Excel.

Tu pourras bénéficier de l'intellisense qui est une aide à la saisie du code.

[QuestVba]

Merci beaucoup pour les infos.

En fait, comme je le disais, quand les macros sont lancées directement via word, j'ai un résultat différent que si c'est lancé via excel. J'ai joint les deux messages reçus.

Pourquoi ne veut-il pas? Parce que excel est toujours actif?....

[Heureux-oli]

Salut,

J'ai lancé ton code depuis Excel.
Word s'ouvre correctement.

Si il y a du code qui s'ouvre derrière, tu ne l'avais pas encore signalé.

Essaie de fermer Excel plus vite.
On peut aussi penser à un DoEvent

[QuestVba]

Re-Bonjour,

Evidemment, je n'ai pas été aussi clair que souhaité. Je vais donc revenir en arrière et essayer de ne rien oublier. Effectivement, une bonne question entraîne une bonne réponse et une question vague ...

Donc, au début, j'ai ajouté un modèle via "modèles et compléments" et créer un bouton qui permet d'ouvrir une macro Autonew:

Code :

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

1
2
3
Sub Main()
   altern.Show
End Sub

"Altern.Show" permet à l'utilisateur soit de choisir un formulaire type soit d'insérer un texte type dans un document déjà ouvert. Mon problème se situe au niveau de l'insertion texte (attaché).

Comme je le disais, quand je lance word directement, tout se passe bien avec la macro. Je clique par exemple sur "Mail: coordonnées"; voici la macro. Il supprime altern de l'écran et lance Insert.show (voir par apès)

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
87
88
89
90
91
92
93
94
Private Sub OptionButton379_Click()
    altern.Hide
    Insert.Show
 
 Set adoc = ActiveDocument
        If adoc.ProtectionType <> wdNoProtection Then Protection = 1
        If adoc.ProtectionType <> wdNoProtection Then
            adoc.Unprotect
    End If
 
    Selection.Find.ClearFormatting
    With Selection.Find
        .Text = "Les conditions d'octroi n'étaient pas remplies parce que"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute
 
 
    ActiveDocument.MailMerge.OpenDataSource Name:="C:\temp\Lien_Itinera.xls", _
        ConfirmConversions:=False, ReadOnly:=False, LinkToSource:=True, _
        AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:="", _
        WritePasswordDocument:="", WritePasswordTemplate:="", Revert:=False, _
        Format:=wdOpenFormatAuto, Connection:= _
        "Provider=Microsoft.Jet.OLEDB.4.0;Password="""";User ID=Admin;Data Source=C:\temp\Lien_Itinera.xls;Mode=Read;Extended Properties=""HDR=YES;IMEX=1;"";Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";Jet OLEDB:Database Password="""";Jet OLEDB:Engine Type=35;Jet OLE" _
        , SQLStatement:="SELECT * FROM `wfl$`", SQLStatement1:="", SubType:= _
        wdMergeSubTypeAccess
    Selection.Font.Bold = wdToggle
    Selection.TypeText Text:="Concerne :"
    Selection.TypeParagraph
    Selection.TypeParagraph
    Selection.Font.Bold = wdToggle
    ActiveDocument.Fields.Add Range:=Selection.Range, Type:=wdFieldMergeField _
        , Text:="""SIGLE_DEST"""
    Selection.TypeText Text:=" "
    ActiveDocument.Fields.Add Range:=Selection.Range, Type:=wdFieldMergeField _
        , Text:="""NOM_DEST"""
    Selection.TypeText Text:=" "
    ActiveDocument.Fields.Add Range:=Selection.Range, Type:=wdFieldMergeField _
        , Text:="""PRENOM_DEST"""
    Selection.TypeText Text:="   ---   "
    Selection.Font.Bold = wdToggle
    ActiveDocument.Fields.Add Range:=Selection.Range, Type:=wdFieldMergeField _
        , Text:="""NUMN"""
    Selection.Font.Bold = wdToggle
    Selection.TypeParagraph
    ActiveDocument.Fields.Add Range:=Selection.Range, Type:=wdFieldMergeField _
        , Text:="""ADRESSE_DEST"""
    Selection.TypeText Text:=" "
    ActiveDocument.Fields.Add Range:=Selection.Range, Type:=wdFieldMergeField _
        , Text:="""CBOITE_DEST"""
    Selection.TypeText Text:=" "
    ActiveDocument.Fields.Add Range:=Selection.Range, Type:=wdFieldMergeField _
        , Text:="""BOITE_DEST"""
    Selection.TypeText Text:=" - "
    ActiveDocument.Fields.Add Range:=Selection.Range, Type:=wdFieldMergeField _
        , Text:="""CP_DEST"""
    Selection.TypeText Text:=" "
    ActiveDocument.Fields.Add Range:=Selection.Range, Type:=wdFieldMergeField _
        , Text:="""LOCALITE_DEST"""
    Selection.TypeParagraph
    Selection.TypeParagraph
    Selection.TypeText Text:="Nos références : "
    ActiveDocument.Fields.Add Range:=Selection.Range, Type:=wdFieldMergeField _
        , Text:="""DOSSIER_NRO"""
    Selection.TypeText Text:="/"
    ActiveDocument.Fields.Add Range:=Selection.Range, Type:=wdFieldMergeField _
        , Text:="""NUMERO_AGT"""
    Selection.TypeParagraph
    Selection.Font.Bold = wdToggle
    Selection.TypeText Text:="Vos références : "
    ActiveDocument.MailMerge.ViewMailMergeFieldCodes = wdToggle
    Selection.TypeParagraph
    Selection.Font.Bold = wdToggle
    Selection.TypeParagraph
 
    Selection.MoveUp Unit:=wdLine, Count:=7, Extend:=wdExtend
    Selection.Fields.Unlink
    Selection.MoveRight Unit:=wdCharacter, Count:=1
 
    Selection.TypeParagraph
 
    If Protection = 1 Then WordBasic.ToolsProtectDocument DocumentPassword:="", NoReset:=1, Type:=2
 
    Documents("Itinera_aaaNormal.dot").Activate
    ActiveDocument.Close False
End Sub

Inser.show: elle permet de voir quel document [document word et/ou message sans titre Outlook] est déjà ouvert par l'utilisateur

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub UserForm_Initialize() 
Dim agentvérif(20) 
r = 1 
For Each adoc In Documents 
If adoc.Name = "aaaNormal.dot" Then GoTo line963 
If adoc.Name = "itinera_aaanormal.dot" Then GoTo line963 
agentvérif(r) = adoc.Name 
ComboBox1.AddItem agentvérif(r) 
r = r + 1 
line963: 
Next adoc 
ComboBox1.Value = agentvérif(1) 
End Sub

Un combobox demande à l'utilisateur de choisir le document dans lequel l'insertion doit se faire.

Mais, mon soucis est toujours que si je lance mon modèle et l'AutoNew via excel, la combobox est vide; comme si word devenait aveugle!

Et c'est là que je ne sais pas comment procéder.

Si je ferme excel trop tôt, je n'ai pas eu le temps de lancer ma macro autonew. J'ai aussi essayé de fermer excel et de créer un raccourci clavier pour lancer ma macro autonew mais là aussi word est aveugle.

Je tourne je tourne et j'espère beaucoup de ce forum...

[Heureux-oli]

Salut,

J'ai fait des tests, mais au lieu de mettre AutoNew que je n'aime pas, j'ai utilisé Document_New et Document_Open.

Le code contenu dans le document est exécuté lors de l'ouverture sans aucun problème.

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 ouvertureDocument()
Dim appwrd As Object
Dim docword As Object
Application.WindowState = xlMinimized
 
Set appwrd = CreateObject("Word.Application")
appwrd.Visible = True
Set docword = appwrd.documents.Add(template:="C:\temp\a.docm")
DoEvents
 
 
Application.Quit
 
 
 
 
End Sub

Avec ou sans le DoEvents, tout fonctionne.

Code :

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

1
2
3
4
5
6
7
8
9
Sub Document_Open()
'MsgBox "Ok pour l'ouverture"
Debug.Print "Ouverture"
 
End Sub
Sub document_New()
'MsgBox "Ok pour la création"
Debug.Print "Création"
End Sub

[QuestVba]

Bon, j'essaie mais c'est pas encore cela.

J'ai suivi tes conseils en créant une sub "Document_New"

Code :

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

1
2
3
4
Private Sub Document_New()
    MsgBox "Ouverture"
    Insert.Show
End Sub

Quand je "lance" le document en double-clique, j'ai la MessageBox ("Ouverture") et ensuite, l'insert.show (attaché) dont code suit :

Code quand on appuye sur OK

Code :

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

1
2
3
4
5
Private Sub CommandButton1_Click()
        coucou = ComboBox1.Value
        Unload Insert
        Documents(coucou).Activate
End Sub

Code d'initialisation

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub UserForm_Initialize()
    Dim agentvérif(20)
    r = 1
      For Each adoc In Documents
        agentvérif(r) = adoc.Name
        ComboBox1.AddItem agentvérif(r)
        r = r + 1
    Next adoc
    ComboBox1.Value = agentvérif(1)
End Sub

Code fermeture croix

Code :

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

1
2
3
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    If CloseMode <> 1 Then Cancel = 1
End Sub

L'insert.show me montre tous les documents ouverts (document et message sans titre).

Mais quand je lance via Excel

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub ouvertureDocument()
Dim appwrd As Object
Dim docword As Object
Application.WindowState = xlMinimized
 
Set appwrd = CreateObject("Word.Application")
appwrd.Visible = True
Set docword = appwrd.documents.Add(template:="C:\temp\testi.dot")
DoEvents
 
Application.Quit
 
End Sub

L'insert.show est vide! As-tu le même résultat ou bien suis-je bête ou moi-même aveugle. J'ai du mal... Au secours...

[Heureux-oli]

Salut,

Il n'est pas vide, il contient le document qui vient d'être créé.
La raison est simple, tu crées une nouvelle instance de Word et tu affiches les documents qui sont contenus dans cette instance.
Comme elle est vide, tu n'as rien.

Ce que tu dois faire, c'est intercepter l'instance de Word qui est ouverte.

C'est plus facile en déclarant la bibliothèque de Word dans ton projet.


Outils => Références => Microsoft Office Word X.XX

Dans ton code

Code :

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

1
2
3
4
5
6
7
 
Dim appwrd As Word.Application
Dim docword As Word.Document
Application.WindowState = xlMinimized
 
Set appwrd = Word.Application
appwrd.Visible = True

Tu auras l'instance ouverte et les documents qu'elle contient.

[QuestVba]

C'est génial.

Merci beaucoup pour l'aide avec cela, ça fonctionne super bien.