Export de donnee

Nous souhaitons dévellopez un programme en VBA pour editer une fiche suiveuse a partir de donner present sur des tables d’une base de donnée presnet sur un serveur.
Nous avons resumé le programme de la facon suivante ;
1) Connexion : Excel ? Base de données
2) Remise à vide cellules Excel
- B5, B9
- D11 : D13, A19 : B37
3) Déclaration des variables
- Date_Deballage = Variant
- tableauclient, tableauechant = tableau 100 cases
- a, b = integer
4) Remise à vide des tableaux
5) Récupération : Fiche_Suiveuse.xls - cellule B6 ? Date_Deballage
6) For toutes des Date_Debut_Examen de Tetraed, table : Echantillon :
- SI Date_Deballage = Date_Debut_Examen ALORS Récupération : NomDemandeur [dans Tetraed, table : Dossier] ? tableauclient
- SINON rien
7) a = nombre cases remplie tableauclient
8) For j = 1 to a :
1. Récupération : NO_ECHANT [du NomDemandeur(j) dans Tetraed, table : Echantillon]
? tableauechant
2. For i = (j+1) to a et n = 1 to (j-1) :
- SI NomDemandeur(j) = NomDemandeur(n) ALORS Next j
- SI NomDemandeur(j) = NomDemandeur(i) ALORS Récupération : NO_ECHANT [du NomDemandeur(j) dans Tetraed, table : Echantillon] ? tableauechant
- SINON rien
3. Récupération : ID_ECHANT [des NO_ECHANT de tableauechant dans Tetraed, table : Echantillon]
? Fiche_Suiveuse.xls - cellules A19 : B36
4. Récupération : XXX_DosDateRecep [de NO_ECHANT(1) dans Tetraed, table : Dossier]
? Fiche_Suiveuse.xls - cellule B5
5. b = nombre cases remplie tableauechant
6. For k = 1 to b et m = 1 to (k-1) : Récupération : XXX_DosNumAffaire [des NO_ECHANT(k) dans Tetraed, table : Dossier] ? Fiche_Suiveuse.xls - cellules D11 : D13 si :
- XXX_DosNumAffaire(k) existe
- XXX_DosNumAffaire(k) ? XXX_DosNumAffaire(m)
7. Ecriture des XXX_DosNumAffaire dans Fiche_Suiveuse.xls - cellules D11 : D13
8. Remise à vide de tableauechant
9. Impression Fiche_Suiveuse.xls
10. Next j
Pouvez vous nous aider a rediger le code ?