Nouveaux abonnés Newsletter

Bonjour,

Chaque jour, de nouveaux abonnés s'ajoutent à ma newsletter.

Mon objectif est de tenir un fichier excel de référence avec tous les abonnés et de savoir quels sont les nouveaux abonnés par rapport à la veille

Concrètement,

Hier j'ai eu mes 10 premiers abonnés et ai fait une extraction de leurs données , ceci constitue mon fichier de référence après l'avoir renommé.

Aujourd'hui je refais une extraction et 12 nouveaux abonnés se sont rajoutés. Problème : ils ne sont pas à la suite, ils se mélangent à ceux d'hier

Comment reconnaître de façon automatique les nouveaux abonnés ?

J'espère que c'est clair, désolé j'ai un mal fou à expliquer alors que c'est pourtant très simple

Merci de votre aide,

Bonjour,

Mettre la date chaque jour !

A+

Bonjour Galopin,

L'idée est de trouver un moyen automatisé. Mettre la date chaque jour m'oblige à reconnaître manuellement qui sont les nouveaux abonnés plutôt que de me servir de la liste des abonnés déjà présents dans le fichier de référence

Merci

Bonjour,

Qqun saurait résoudre mon problème? Merci de votre temps

Fournir le(s) fichiers KIVONBIEN !

Sinon j'ai bien une boule de cristal... mébon.

A+

Je ne peux joindre le document pour raisons de confidentialité mais voici ci joint un exemple

Il y a 2 feuilles : la première représente la toute première extraction et donc le fichier de référence, la deuxième est la dernière extraction de données avec donc les nouveaux abonnés qui se sont rajoutés et mélangés aux précédents.

En pratique, il s'agit de deux classeurs distincts

bonjour,

Cette macro supprime les doublons dans la dernière extraction :

Sub test()
Dim a, b, source As Range, cible As Range, Y As Boolean, i&, ii&
Set source = Worksheets("Extraction de référence").[A1].CurrentRegion
a = source.Value
With Worksheets("Dernière extraction")
Set cible = .[A1].CurrentRegion
b = cible.Value
   For i = UBound(b) To 2 Step -1
   Y = False
      For ii = 2 To UBound(a)
         Y = b(i, 2) = a(ii, 2)
          If Y Then
            .Cells(i, 1).EntireRow.Delete
            Exit For
          End If
      Next
   Next
End With
End Sub

A+

Bonjour Galopin,

Ca marche du feu de Dieu !!! Merci à toi et bonne journée