Exporter une table dans une autre la source est une feuille Excel

je pense que l'on a une incompréhension surtout moi lo,l mais des grands garçons comme nous.... ça va surement s'arranger lol

en fait je pense que l'on parle de la même chose mais mal interprétée on y retourne c'est pratiquement fini se serait dommage

1°)"Je ne suis pas convaincu qu'il est nécessaire d'avoir une table temporaire. "

euh je ne suis pas sûr non plus j'ai fait comme j'ai pu raisonner d'ailleurs c'est plutôt une table transitoire


mes raisons :

la feuille excel c'est en fait la TABLE leads videoconference

- à l'import cette feuille écrase systématiquement et entièrement la table leads

- c'est a dire que si pour une raison x ou y une erreur de manip est faite, je me retrouve avec une table complétement fausse, les requêtes que tu m'as fait et mes stats----> poubelle

- de plus la feuille excel n'est qu'une transition , elle me sert uniquement à remplir la base

ensuite ces données ne me servent plus à rien, si je ne peux pas y toucher comme c'était le cas je vais avoir plusieurs centaines de noms sans intérêt pour moi

donc j'efface et je n'ai à saisir que la nouvelle flopée de noms qui m’intéresse, si une erreur survient ça ne porte que sur qq noms et sur la table transitoire

la requête ajout me mets les nouveaux noms dans la table leads videoconference pas de souci

2°)
"Je suis surpris que, dans la macro, tu appelles ajoutclients() immédiatement après l'importation. Je pensais que tu voulais prendre le temps de d'abord modifier la table Suivi Lead, afin de distinguer les prospects des clients. "


c'est surement une erreur ou dois-je le mettre ?

Mais en fait non je ne distingue pas dans le suivi Leads les prospects des clients ce sont par définition des prospects sauf quand dans suivi leads, la case à cocher "Conclu" est sur vrai, là il devient client

Mais ça se passe dans le module que tu m'as écrit en effet si "conclu " est coché quand ça exporte dans T_Client la case prospect ou client est coche selon le cas

ça fonctionne très bien

mon incompréhension n'est pas là c'est juste en dessous

3°)
"Même si la table T_clients autorise les doublon, le code ajoutclients peut facilement vérifier, afin d'ajouter un client, si un enregistrement ayant les mêmes (prénom, nom, email) est déjà présent, et, dans ce cas, ne pas créer un nouvel enregistrement.
Je pense que cela prend en compte tes différents soucis, entr'autres:
- multiplication automatique des saisies déjà faites
- qu'il ne prenne pas le doublon mais qu'il prenne le non doublon
- le cas des prospects qui assistent a plusieurs videoconfernces "

mais oui je suis 100 % d'accord c'est ce que je souhaite et c'est là que ça coince sur ma mise en œuvre et ma compréhension car je n'obtiens pas ce résultat après tous mes essais !

il faut peut être ajouter dans ton module du code type :

si dans la feuille excel je trouve NomWc+ PrenonWc identique à Nomcoaché + Prenonclient je n'exporte pas ce nom

mais si la ligne au dessus ou 3 en dessous etc, (c'est une image ) je rencontre le même binôme mais non identique à ce moment j'exporte dans les bonnes cases comme codé dans le module ?

sauf que moi je n'ai pas ce résultat ??? si le module rencontre un nom en doublon il stoppe son exportation
( actuellement) mais n'ajoute pas les noms qui ne sont pas des doublons

il ne gère pas les 2 statuts dans la feuille excel doublon et pas doublon

si doublon je ne regarde rien d'autre et je boucle le code sans rien faire

voici le module que tu as écrit j'ai juste changé leads videoconference au début pour la table transitoire mais ça ne change rien ? enfin j'espère

Function ajoutclients()
Dim rslead As DAO.Recordset, rssuivi As DAO.Recordset, rscli As DAO.Recordset
Set rslead = CurrentDb.OpenRecordset("Import Feuille Excel Leads Videoconference")
Set rssuivi = CurrentDb.OpenRecordset("Suivi Lead", dbOpenDynaset)
Set rscli = CurrentDb.OpenRecordset("T_client")
Do While Not rslead.EOF
If rslead![Choix statut] = "Assiste" Then
rscli.AddNew
rscli!PrenomClient = rslead!PrenomWc
rscli!NomCoache = rslead!NomWc
rscli!EMail = rslead!Mail
rscli!CategorieClient = 2
rssuivi.FindFirst ("IdParticipant = " + CStr(rslead!IdParticipant) + " and Conclu ")
If rssuivi.NoMatch Then
rscli!Prospect = True
rscli!Client = False
Else
rscli!Prospect = False
rscli!Client = True
End If
rscli.Update
End If
rslead.MoveNext
Loop 'While Not rslead.EOF
End Function


Va ton finir pas se comprendre? parce que je ne veux pas une autre solution les 3/4 du boulot me vont très bien
tu penses bien, c'est juste cette histoire de doublon que je ne comprends pas pour le 1/4 restant

Mais ça va s'arranger je te remercie de ta patience et de ton implication

je vais modifier le code pour vérifier, avant d'ajouter un client, si un enregistrement ayant les mêmes (prénom, nom, email) est déjà présent, et, dans ce cas, ne pas créer un nouvel enregistrement.

quand j'aurai fait et testé le changement, je te l'enverrai, et tu pourras le tester, puis décider si tu souhaites garder une table temporaire.

quand j'écris "le code ajoutclients peut facilement vérifier", je veux dire que je peux, sans beaucoup de travail, modifier le code pour qu'il fasse la vérification.

Super je te remercie j'espère que je ne t'aies pas trop dèsobligè
Mes remarques étaient t elles fondees finalement?

J'attends avec impatience ton code

Je pense qu'il réglera en même temps le cas des époux avec le même nom de famille et le prénom différents
Bon codage tu auras mérité de la patrie comme on dit

Si ça règle le problème de : si doublon je ne prends pas mais pas doublon je prends dans la même feuille Excel on est dans l'objectif
Je suppose que pour les saisies manuelles dans T_ client on garde le réglage sur sans doublon sur nomcoache ?

Amitiés

Patrick

voici:

Option Compare Database
Option Explicit

Private Sub ajoutclients()
Dim rslead As DAO.Recordset, rssuivi As DAO.Recordset, rscli As DAO.Recordset
Dim clitest As String
Set rslead = CurrentDb.OpenRecordset("Leads Videoconference")
Set rssuivi = CurrentDb.OpenRecordset("Suivi Lead", dbOpenDynaset)
Set rscli = CurrentDb.OpenRecordset("T_client", dbOpenDynaset)
Do While Not rslead.EOF
    If rslead![Choix statut] = "Assiste" And Not (IsNull(rslead!NomWc)) Then
        clitest = "  NomCoache "
        If Not IsNull(rslead!NomWc) Then
            clitest = clitest + " = '" + rslead!NomWc + "' "
        Else
            clitest = clitest + " is null "
        End If
        clitest = clitest + " and PrenomClient "
        If Not IsNull(rslead!PrenomWc) Then
            clitest = clitest + " = '" + rslead!PrenomWc + "' "
        Else
            clitest = clitest + " is null "
        End If
        clitest = clitest + " and EMail "
        If Not IsNull(rslead!Mail) Then
            clitest = clitest + " = '" + rslead!Mail + "' "
        Else
            clitest = clitest + " is null "
        End If
        rscli.FindFirst (clitest)
        If rscli.NoMatch Then
            rscli.AddNew
            rscli!PrenomClient = rslead!PrenomWc
            rscli!NomCoache = rslead!NomWc
            rscli!EMail = rslead!Mail
            rscli!CategorieClient = 2
            rssuivi.FindFirst ("IdParticipant = " + CStr(rslead!ID) + " and Conclu ")
            If rssuivi.NoMatch Then
                rscli!Prospect = True
                rscli!Client = False
            Else
                rscli!Prospect = False
                rscli!Client = True
            End If
            rscli.Update
        End If
    End If
    rslead.MoveNext
Loop 'While Not rslead.EOF
End Sub

une erreur dans le code

la ligne presque a la fin

rscli.Update

surlignée en jaune

le function du début et le End Function est bien mis

j'ai rectifié aussi CStr(rslead!ID) + " and Conclu ") en IdParticipant

je l'ai vu, je ne connais pas le code mais je jette un œil sur les champs au cas ou

quelle erreur? tu précises où, mais pas le message d'erreur.

désolé
copie écran

https://onedrive.live.com/redir?resid=962B5E3D3756BDFC!246170&authkey=!AKLzoZ0OepYxLj8&e=zv4XqB

encore le coup du doublon de la table T_Client

j'ai essayé j'ai enlevé sans doublon sur nomcoache T_ Client et mis indexé sur non

ça passe mais trop bien car le doublon est passé avec le nouveau nom

alors que seulement le nouveau nom doit être pésent dans T_Client

le souci est là mais ???