Soyez le premier à donner votre avis sur cette source.
Snippet vu 12 598 fois - Téléchargée 43 fois
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
13 févr. 2003 à 07:50
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.