Script VBA d'automatisation de fusion en arriere plan

geeku · 29/03/2011, 19h50

Bonjour/Bonsoir

Est-ce que c'est possible de rendre ce code exécutable en arriéré plan ? sans que l'utilisateur interviennent dans la démarche de fusion :
Mon code est le suivant :

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
 
 
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
 
<html>
 
<script language="VBScript">
Set AppWord = CreateObject("Word.Application")
AppWord.visible = True
AppWord.DisplayAlerts = False
Set ActiveDocument = AppWord.Documents.Open("C:\\fusion.doc")
ActiveDocument.Activate
ActiveDocument.MailMerge.OpenDataSource("C:\\test.xls")
With ActiveDocument.MailMerge
    .Destination = wdSendToNewDocument
    .MailAsAttachment = False
    .MailAddressFieldName = ""
    .MailSubject = ""
    .SuppressBlankLines = True
    With .DataSource
      .FirstRecord = wdDefaultFirstRecord
      .LastRecord = wdDefaultLastRecord
    End With
	.PrintOut
	.SaveAs "C:\\LettreType.doc"
	.Save
	.close
Execute True
End With
 
ActiveDocument.PrintOut
ActiveDocument.SaveAs "C:\\LettreType.doc"
ActiveDocument.Save
ActiveDocument.close
Execute True
AppWord.Application.Quit
</script>
 
<head>
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8" />
<title> </title>
</head>	
<body>
 
<div >test fusion word</div>
 
</body>
</html>

Merci d'avance

Heureux-oli · 29/03/2011, 21h33

Salut,

Je pense que tu auras toujours une boîte de dialogue précisant à l'utilisateur qu'il va lancer une procédure de fusion.

29/03/2011, 21h33	#2
Heureux-oli Responsable Word Olivier Lebeau Contrôleur d'industrie Inscription : février 2006 Messages : 17 321 Détails du profil Informations personnelles : Nom : Olivier Lebeau Âge : 47 Localisation : Belgique Informations professionnelles : Activité : Contrôleur d'industrie Secteur : Aéronautique - Marine - Espace - Armement Informations forums : Inscription : février 2006 Messages : 17 321 Points : 29 220 Points : 29 220	Salut, Je pense que tu auras toujours une boîte de dialogue précisant à l'utilisateur qu'il va lancer une procédure de fusion. __________________ J'ai pas encore de décodeur, alors, postez en clair ! Comment mettre une balise de code ? Débutez en VBA Mes articles Dans un MP, vous pouvez me dire que je suis beau, ... mais si c'est une question technique je ne la lis pas ! Vous êtes prévenus !
	00

Outils de la discussion
Afficher une version imprimable Envoyer un lien vers cette page par email