1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41
|
rstListeTotale.MoveFirst
While Not rstListeTotale.EOF
appExcelFeuille.Cells(Y, 1) = rstListeTotale.Fields("NoAspectImpact")
appExcelFeuille.Cells(Y, 2) = rstListeTotale.Fields("noaspect")
appExcelFeuille.Cells(Y, 3) = rstListeTotale.Fields("noSecteur")
appExcelFeuille.Cells(Y, 4) = rstListeTotale.Fields("secteur")
appExcelFeuille.Cells(Y, 5) = rstListeTotale.Fields("contexte")
appExcelFeuille.Cells(Y, 6) = rstListeTotale.Fields("procede")
appExcelFeuille.Cells(Y, 7) = rstListeTotale.Fields("aspect")
appExcelFeuille.Cells(Y, 8) = rstListeTotale.Fields("impact")
appExcelFeuille.Cells(Y, 9) = rstListeTotale.Fields("dureeAspect")
appExcelFeuille.Cells(Y, 10) = rstListeTotale.Fields("echelle")
appExcelFeuille.Cells(Y, 11) = rstListeTotale.Fields("gravite")
appExcelFeuille.Cells(Y, 12) = rstListeTotale.Fields("probabilite")
appExcelFeuille.Cells(Y, 13) = rstListeTotale.Fields("respectLoisReglements")
appExcelFeuille.Cells(Y, 14) = rstListeTotale.Fields("relationsPubliques")
appExcelFeuille.Cells(Y, 15) = rstListeTotale.Fields("impactProduit")
appExcelFeuille.Cells(Y, 16) = rstListeTotale.Fields("consequencePenalite")
appExcelFeuille.Cells(Y, 17) = rstListeTotale.Fields("multiplicationTotaleEnvironnement")
appExcelFeuille.Cells(Y, 18) = rstListeTotale.Fields("multiplicationTotaleCommerciale")
appExcelFeuille.Cells(Y, 19) = rstListeTotale.Fields("total")
appExcelFeuille.Cells(Y, 20) = rstListeTotale.Fields("Action")
appExcelFeuille.Cells(Y, 21) = rstListeTotale.Fields("controle")
appExcelFeuille.Cells(Y, 22) = rstListeTotale.Fields("remarque")
'Ajoute toute les lois et reglements liees a cet aspect/impact
Set rstLR = CurrentDb.OpenRecordset("select * from tblLoisEtReglementsAspectImpact where NoAspectImpact = " & rstListeTotale.Fields("NoAspectImpact"), dbOpenDynaset)
While Not rstLR.EOF
appExcelFeuille.Cells(Y, 22 + A) = rstLR.Fields("NomLoi")
rstLR.MoveNext
A = A + 1
Wend
A = 1
rstLR.Close
Set rstLR = Nothing
rstListeTotale.MoveNext
Y = Y + 1
Wend |
Partager