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

Commenter

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

S'inscrire maintenant

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.