Publipostage via Macro VBA
Bonjour,
je suis novice en programmation mais ca me passionne. après une après midi entière de recherche je viens vous poser mon probleme double probleme.
ce que voudrai avoir c'est :
1 - suite au publipostage effectuer a partir d'un tableau excel et mis dans un nouveau document word, pouvoir retourner dans excel en ayant toujours le document word ouvert
et 2 - dans mon publipostage j'ai un champs date qui se met obstinément en format MM/DD/YYYY je le voudrai bien sur en DD/MM/YYYY
Code:
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
| ‘publipostage
'Nécessite d'activer la référence "Microsoft Word xx.x Object Library"
Dim docWord As Word.Document
Dim appWord As Word.Application
Dim NomBase As String
NomBase = Chemin & NomFichier
Application.ScreenUpdating = False
Set appWord = New Word.Application
appWord.Visible = True
'Ouverture du document principal Word
Set docWord = appWord.Documents.Open("S:\Documents\projet feuille carton\publipostage.docx")
'fonctionnalité de publipostage pour le document spécifié
With docWord.MailMerge
'Ouvre la base de données
.OpenDataSource Name:=NomBase, _
Connection:="Driver={Microsoft Excel Driver (*.xls)};" & _
"DBQ=" & NomBase & "; ReadOnly=True;", _
SQLStatement:="SELECT * FROM [Feuil1$]"
'Spécifie la fusion vers un nouveau document
.Destination = wdSendToNewDocument
.SuppressBlankLines = True
'Prend en compte l'ensemble des enregistrements
With .DataSource
.FirstRecord = wdDefaultFirstRecord
.LastRecord = wdDefaultLastRecord
End With
'Exécute l'opération de publipostage
.Execute Pause:=False
End With
Application.ScreenUpdating = True
'fermer la base du publipostage
docWord.Close False |
Merci pour votre aide
