Publipostage plusieurs email

Bonjour,

J’ai cherché sur le forum et différents sites internet mais malheureusement je n’ai pas trouvé ou mal cherché alors.

Voilà, j’ai un fichier avec des noms de clubs et différentes colonnes pour les email d’un même club. Voilà j’aimerais faire du publipostage pour envoyer un fichier mais je ne peux le faire que pour une colonne d’email à chaque fois, donc j’aimerais savoir s’il est possible de sélectionner plusieurs colonnes d’émail directement ou bien je dois faire un publipostage pour chaque colonne ?

merci d’avance pour votre aide.

Bonne soirée

Bonjour,

Vous avez la possibilité de faire une boucle sur les colonnes et de vérifier leur noms :

Sub test1()
    Dim Column As Excel.ListColumn
    For Each Column In Feuil1.ListObjects(1).ListColumns
        If Column.Name Like "Email*" Then
            Dim itemRange As Excel.Range
            For Each itemRange In Column.DataBodyRange
                With Item
                    If .Value > vbNullString And isValidMail(.Value) Then
                        ' // Votre fonction personnalisée d'envoie de courriels
                        Call EnvoieMail(To:=.Value, Attachment:=FullFilePath)
                    End If
                End With
            Next itemRange
        End If
    Next Column
End Sub

Merci beaucoup mais il n’y a pas de solution sans vba?