Fusion et publipostage - Insertion d'images - Liste ds Excel - VBA ou Word [FAQ]

[carden752]

Bonjour,

Il ne me semble pas qu'il soit possible de faire

iR = MailMerge.DataSource.RecordCount

Par contre

Code :

iR = Odoc.MailMerge.DataSource.RecordCount

est possible, je ne sais pas si c'était ce que tu voulais faire à la base.

La propriété MailMerge n'est disponible que pour un objet de type Word.Document je crois.

[jay.69]

pour le partage, il se trouve que ce n'est pas toujours la même personne qui assure la fusion selon les années.

donc à moins de figer le chemin d'accès quelque soit le PC, ça peut poser problème.

pour le IR, je ene sait pas ce qui se passe, mais lorsque j'ai esayé, la macro a planté sur cette ligne.

d'autre part, sur les fichiers créés, j'ai un message d'erreur à l'ouverture concernant le convertisseur mswrd632 ce que je ne comprends pas.

[carden752]

Bonjour Jay69,

Je pense que les lettres types peuvent être mises sur un serveur pour une utilisation commune indépendante.

Pour le IR

iR = Odoc.MailMerge.DataSource.RecordCount

ne fonctionne toujours pas?

Pour le message d'erreur, il ne manquerait pas des

Code :

1
2
set objdoc=Nothing
set oDs=Nothing

Je pense que cela peut être du à cela si l'application n'a pas été terminée correctement?

[jay.69]

pour le code lié à

Code :

IR = odoc.mailmerge.datasource.recordcount

ça ne fonctionne pas mieux, lorsque j’exécute la macro, il veut traiter le fichier -1...

et si j'ajoute 2, ça ne le fait pas mieux. dans ce cas il ne traite que l'enregistrement 1

pour l'erreur dont tu parles, je ne vois pas à quoi tu fais référence.

pour la mise en oeuvre sur serveur, ça peut résoudre le problème de travail collaboratif et en plus on n'aura plus à le faire depuis la maison...


J'ai un autre soucis technique, alors que toutes mes photos ont à peu près les mêmes dimensions (toutes avec largeur 177 px et longueur voisines à 2/3 px près) 2 d'entre elles apparaissent plus petites dans le documents fusionné, même avec les commutateurs \x \y pour le champ include picture.


et oui, je suis pénible comme garçon.

[Heureux-oli]

Envoyé par carden752

Bonjour,

Il ne me semble pas qu'il soit possible de faire


Par contre

Code :

iR = Odoc.MailMerge.DataSource.RecordCount

est possible, je ne sais pas si c'était ce que tu voulais faire à la base.

La propriété MailMerge n'est disponible que pour un objet de type Word.Document je crois.

Salut,

Code :

iR = MailMerge.DataSource.RecordCount

Fonctionne.

Pour t'en convaincre, essaie juste un document avec une source et ce bout de code issu du tuto, j'ai éliminé quelques lignes :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub TestPublipost()
' Déclaration des variables
Dim iR As Integer
Dim i As Integer
Dim oDoc As Document
Dim oDS As MailMergeDataSource
 
' Affectation des objets
Set oDoc = ActiveDocument
Set oDS = oDoc.MailMerge.DataSource
 
iR = MailMerge.DataSource.RecordCount
Debug.Print iR
 
End Sub

[jay.69]

c'est là que le bas blesse, même ce code simplifié ne fonctionne pas chez moi, il m'indique erreur 424 lors de l'exécution

[carden752]

Bonjour Heureux-Oli,

J'ai effectivement fait ce test avant de poster et il m'indiquait

Erreur d'xécution '424'
Objet requis

Alors qu'avec iR = oDoc.MailMerge.DataSource.RecordCount j'ai bien le nombre d'enregistrements.


Bonjour aussi à JAy69,

ça ne fonctionne pas mieux, lorsque j’exécute la macro, il veut traiter le fichier -1

Cependant, je vois peut être une explication au fait que tu es iR=-1. Tu as bien charger ta liste de destinataire pour ton publipostage avant d'exécuter ta macro?
Sinon, il est normal qu'il apparaisse -1 puisqu'aucun de tes destinataires n'est sélectionné donc pas d'enregistrement.

[carden752]

Pour le problème d'image, sinon tu peux peut être utiliser un bout de macro qui les redimensionnes toutes à la même taille

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Sub redimimage()
Dim i As Integer
i = 1
While (i <= ActiveDocument.InlineShapes.Count)
ActiveDocument.InlineShapes.Item(i).LockAspectRatio = msoFalse 'Pas de proportionnalite conservée entre la hauteur et largeur d'origine si msoFalse, sinon msoTrue pour la conserver
ActiveDocument.InlineShapes.Item(i).width= 177
ActiveDocument.InlineShapes.Item(i).height = 60
i = i + 1
Wend
 
End Sub
 
177 px en largeur et 60 en hauteur ici pas de proportionnalité conserver. 
Sinon il suffit de mettre msoTrue pour LockAspectRatio  et une largeur de 177 uniquement

[jay.69]

merci pour cette info, je vais essayer ça dès que possible, pas trop eu le temps cette semaine.

je vous tiens au courant, et je posterai les modifs que j'ai faite sur le code déjà posté pour que ça fonctionne.