Discussion :

[isa1988]

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 :

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

[Philippe Tulliez]

Bonjour,
Tu as probablement formaté les dates dans Excel mais pas dans le document Word or Word ne tient compte que de son propre formatage.

Faire Alt + F9 dans ton document (C'est la commande qui permet de visualiser les codes Champs du publipostage).
Tu vas alors visualiser ce code {MERGEFIELD "Le_Nom_du_Champ"}
Ajouter ceci derrière le guillemet de départ : \@ "dd/MM/yy" (Attention le M en majuscule)
Tu auras donc ceci { MERGEFIELD "Date" \@ "dd/MM/yy" }
Attention de bien respecter l'espace avant \ et après @
La date sera ainsi bien formatée
Refaire Alt F9 pour enlever la visualisation des codes.

Pour obtenir vendredi 22 février 2019, c'est { MERGEFIELD "Date" \@ "dddd d MMMM yyyy" }

[isa1988]

merci pour ta réponse je regarderai ca au boulot lundi