Publipostage à partir d'un base excel et d'un répertoire contenant des photos

Soyez le premier à donner votre avis sur cette source.

Snippet vu 12 447 fois - Téléchargée 41 fois

Contenu du snippet

Je désire faire un courrier de publipostage contenant des champs "nom", "prénoms", "adresses" et "photos". Sachant que ces infos sont contenues dans un fichier Excel, j'arrive bien à effecuter mon publipostage seulement mon soucis est que je veux dans le courrier intégrer la photo de la personne concerné et cela je n'y arrive pas. En effet la photo est toujours la même dans tous mes courriers alors que mon champ "Nom" lui change bien et prend bien la pour valeur le nom de la photo suivante. Aidez moi SVP

Source / Exemple :


Sub LancerFusion()
'

' Macro crée le 10/08/2002 par Boubou

    Dim chemin As Variant

'
    With ActiveDocument.MailMerge
        .Destination = wdSendToNewDocument
        .SuppressBlankLines = True
        
            chemin = "C:\BaseDonnées\Photos Numériques\Photos Salariés\" & ActiveDocument.MailMerge.DataSource.DataFields.Item("Nom")
            mes = MsgBox(chemin, vbOKOnly)
            Img.Picture = LoadPicture(chemin)

        With .DataSource
            .FirstRecord = wdDefaultFirstRecord
            .LastRecord = wdDefaultLastRecord
            chemin = "C:\BaseDonnées\Photos Numériques\Photos Salariés\" & ActiveDocument.MailMerge.DataSource.DataFields.Item("Nom")

        End With
        .Execute Pause:=False
    End With
    Windows(1).Activate
    
End Sub

A voir également

Ajouter un commentaire

Commentaire

Messages postés
3
Date d'inscription
jeudi 23 janvier 2003
Statut
Membre
Dernière intervention
19 juin 2003

Je trouve ce code excellent ! Malheuresement je pense que la faiblesse de la presentation réside dans le fait qu'un exemple concret aurait été le bien venue ! Sachant qu'un novice ne distinguerai ici pas si ce code est du code VB ou du code VBA . Il est très cool quand même.

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.