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

ok je pensais que les id de la feuille excel allait foutre le bazar si c'est ok c'est bien

il y a un champ obligatoirement non null "CategorieClient T_Client
comme j'ai fait ça après sur lead videoconference le prenom et nom est ensemble
<gras
lead conference </gras>............................................................... T_Client

candidats ( nom + prenom) ---------------------------------------------------> nom
prénom en 2 champs
Mail-------------------------------------------------------------------------------------------->Email

c'est tout

sauf si on peut venant du "suivi lead"

"conclu" = vrai -------------------------------------------------------------------------> mettre la case a cocher sur client= vrai
"Conclu" = faux------------------------------------------------------------------------> mettre la case a cocher sur prospect = vrai

C'est ce que tu veux ?

je pense que l'ancienne importation est perturbée par le changement des noms des colonnes du fichier excel. le plus simple me semble de recréer l'importation, et de modifier la macro pour l'associer à la nouvelle importation.

pour associer le nouveau code ajoutclients (dont tu peux modifier le nom) à un nouveau bouton, il faut d'abord remplacer

private sub

par

function

. ensuite tu peux, dans une macro associée au nouveau bouton, ajouter une action ExécuterCode et préciser le nom de la fonction (ajoutclients ou le nom que tu lui as donné).

justement la quadrature du cercle est là

j'ai fait l'index sans doublon sur champ nom prenom email comme l'importation écrase systématiquelment la table complétement

si on met pas de doublon sur l'un ou les 3 champs c'est pareil comme l'import ne peut pas écrase la table car risque de doublon, il s'arrête là, pas de copie des nouveaux éléments de la feuille Excel dans la T_client

si au contraire on lui dit ok avec doublon il fait le boulot non seulement il ajoute les nouvelles saisies d'Excel mais aussi les autres saisies déjà importées dans T_client

c'est ça le problème !

d'ou l'idée d'une table transitoire sur Excel on met les nouvelles saisies ( on efface les anciennes ) on se souvient juste de la derniere Id mais donnée normalement sur la table, forcement

on fait la requête ajout qui prends en compte les nouvelles saisies d'excel et qui les ajoute à la table leads videoconference

c'est là que je me suis pris un peu les pieds dans le tapis en fait pour 'l'import on prend la table transitoire qui devrait compléter la table avec les nouvelles saisies idem pour T_client

il reste juste le cas des prospects qui assistent a plusieurs videoconfernces,

qu'ils soient présent dans le formulaire leads video conference c'est normal les action de suivi sont par prospect mais aussi par video conference

par contre il ne faut pas qu'ils soient de nouveau dans la T_client une seule fois dans T_client

a force je m'y perd lol

ne suffit-il pas, comme suggéré précédemment, de modifier le code du module qui crée les nouveaux clients dans la table T_client à partir de la table Leads videoconference?
ce code peut facilement s'abstenir de créer un nouveau client si un client est déjà dans la table T_client avec les mêmes valeurs pour (nom, prenom, email).
ce code n'a pas besoin que les doublons soient interdits, il va, de lui-même, éviter de créer un nouveau client.
il peut même changer le client de "prospect" en "client", si "conclus" est présent.

a condition de savoir coder ce n'est pas mon cas
ton module transforme déjà le prospect" conclu" en client ça c'est déjà fait

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 ???