F
freefer
Guest
Bonjour,
Je cherche une solution pour que Word sélectionne automatiquement à partir de d'un fichier Excel les destinataires qui sont en fait les noms des élèves d'une classe. Chaque fichier de notes Excel et feuilles de notes individuelles Word sont sauvegardés automatiquement lors de leur initialisation. A l'aide du code suivant, je reconnecte le fichier Word à la feuille Excel dédiée au publipostage des données élèves, mais le nombre d'élèves étant différent d'une classe sur l'autre je cherche le moyen de selectionner automatiquement les "destinataires" (donc ne sélectionner que les lignes Excel qui correspondent aux noms des élèves) sous Word sans passer par le pop up de l'interface Word (Fusion et Publipostage : destinataires).
Sub AutoOpen()
Nom = ActiveDocument.Name
Nom = Left(Nom, Len(Nom) - 4)
chemin = ActiveDocument.Path
chemin = ActiveDocument.Path & "\" & Nom & ".xls"
With ActiveDocument
.MailMerge.MainDocumentType = wdFormLetters
.MailMerge.OpenDataSource Name:=chemin, ConfirmConversions:=False, ReadOnly:= _
False, LinkToSource:=True, Format:=wdOpenFormatAuto, SQLStatement:="SELECT * FROM `Publipostage$`"
End With
End Sub
Merci d'avance pour votre aide.
JYF
Je cherche une solution pour que Word sélectionne automatiquement à partir de d'un fichier Excel les destinataires qui sont en fait les noms des élèves d'une classe. Chaque fichier de notes Excel et feuilles de notes individuelles Word sont sauvegardés automatiquement lors de leur initialisation. A l'aide du code suivant, je reconnecte le fichier Word à la feuille Excel dédiée au publipostage des données élèves, mais le nombre d'élèves étant différent d'une classe sur l'autre je cherche le moyen de selectionner automatiquement les "destinataires" (donc ne sélectionner que les lignes Excel qui correspondent aux noms des élèves) sous Word sans passer par le pop up de l'interface Word (Fusion et Publipostage : destinataires).
Sub AutoOpen()
Nom = ActiveDocument.Name
Nom = Left(Nom, Len(Nom) - 4)
chemin = ActiveDocument.Path
chemin = ActiveDocument.Path & "\" & Nom & ".xls"
With ActiveDocument
.MailMerge.MainDocumentType = wdFormLetters
.MailMerge.OpenDataSource Name:=chemin, ConfirmConversions:=False, ReadOnly:= _
False, LinkToSource:=True, Format:=wdOpenFormatAuto, SQLStatement:="SELECT * FROM `Publipostage$`"
End With
End Sub
Merci d'avance pour votre aide.
JYF