Publipostage vers word et format quand formule...

[jozerebel]

Bonjour,

J'ai une base données excel et des données que je calcule grâce à des formuleS.

le pb, c'est que quand je publiposte vers Word, j'obtiens des choses incohérentes.

Par exemple, je calcule une date de décès qui s'affiche correctement sur Excel mais lorsque la formule renvoie un vide, le document publiposté me renvoie "12:00:00 AM". Le fait de modifier le mergefield n'y fait rien et j'obtiens alors la date du jour!

Merci de votre aide.

 

[Dugenou]

Re : Publipostage vers word et format quand formule...

Bonjour,

Lors de ton publipostage, au lieu de laisser le lien OLE, prends plutot DDE cela évite pas mal de pb. Cependant la sélection de la zone de données n'est pas aussi simple.

Cordialement

 

[jozerebel]

Re : Publipostage vers word et format quand formule...

merci!

A plus et bonne journée!

 

[jozerebel]

Re : Publipostage vers word et format quand formule...

Bonjour,

Depuis que je suis passer en DDE, ma macro suivante ne se lance plus...

Une idée?

Sub generation()
Dim iR As Integer
Dim i As Integer
Dim oDoc As Document
Dim DocName As String
Dim oDS As MailMergeDataSource

' Affectation des objets
Set oDoc = ActiveDocument
Set oDS = oDoc.MailMerge.DataSource

iR = MailMerge.DataSource.RecordCount
Debug.Print iR
For i = 1 To iR
With oDoc.MailMerge
'Définition du premier et dernier enregistrement
.DataSource.FirstRecord = i

.DataSource.LastRecord = i
' Envoi des données dans un nouveau document
.Destination = wdSendToNewDocument
' Exécution du publipostage
.Execute
' Actualisation de l'enregistrement pour la sauvegarde
.DataSource.ActiveRecord = i
'Utilisation de deux champs pour obtenir le nom du document
DocName = .DataSource.DataFields(40).Value
DocName = DocName & "-" & .DataSource.DataFields(2).Value
DocName = DocName & "-" & .DataSource.DataFields(3).Value
DocName = DocName & "-" & .DataSource.DataFields(22).Value
Debug.Print DocName; i
End With
' Sauvegarde du document publiposté
With ActiveDocument
.SaveAs "f:\essai\" & DocName & "dossier" & i & ".doc"
.Close
End With
Next i
End Sub

 

[Dugenou]

Re : Publipostage vers word et format quand formule...

Salut José,

Je suis un "formuliste" est le VBA ne me parle pas.

Peut être tu verrais quelquechose en utilisant l'enregistreur de macro ?

Désolé !