Point sur le projet à fin janvier 2011 : un nouveau départ

Le projet a pris énormément de retard par rapport à mes objectifs initiaux. Tout d’abord, je travaille sur plusieurs projets en même temps et ensuite j’ai dû prendre en main DELPHI ainsi que les liens DELPHI / EXCEL (cf. mon post précédent). Par ailleurs, je suis en train de perfectionner mes connaissances en VBA. Tous ces facteurs ont contribué au retard conséquent du projet.

Ceci dit, j’ai tout de même commencé à me pencher sur le développement proprement dit de l’application ; les premières lignes de code sont écrites (cf PS). A ce sujet, deux options s’offrent à moi : soit développer mon application sous DELPHI, soit en VBA. Les deux options ont leurs avantages et leurs inconvénients. Pour le moment, je ne sais pas encore laquelle je vais retenir. J’essaye les deux sachant que deux critères essentiels conditionneront mon choix : la sécurité des traitements et la rapidité d’exécution du code.

L’objectif à fin février est que l’application intègre les balances générales des filiales et que les états financiers consolidés (bilan et compte de résultat) soient paramétrés.

Il y a encore beaucoup de travail mais ça avance (enfin) !

Benoît-René RIVIERE

Expert-comptable à Caen

PS : voici les premières lignes de VBA de la procédure qui intègre les balances sociales dans le grand livre de consolidation :

Sub AffectBGCI_CSO(entité As String, clotex As String)

   Const FeuilleBGCI = « BGCI »

   Const FeuilleFourchette = « CIaffectCSOfourchette »

   Const FeuilleaffectCSO = « BGCIaffectCSO »

   Dim nbligneBGCI, nblignefourchette As Variant

   Dim ligneBGCIaffectCSO As Variant

   Dim cpte4 As String

   Dim i, j As Variant

   Dim montant As Variant

   Dim sens As String

   Dim trancheok As Boolean

   nbligneBGCI = Sheets(FeuilleBGCI).UsedRange.Rows.Count

   nblignefourchette = Sheets(FeuilleFourchette).UsedRange.Rows.Count

   ligneBGCIaffectCSO = Sheets(FeuilleaffectCSO).UsedRange.Rows.Count + 1

   For i = 1 To nbligneBGCI

   If (entité = «  ») Or (entité <> «  » And Sheets(FeuilleBGCI).Cells(i, 1) = entité And Sheets(FeuilleBGCI).Cells(i, 2) = clotex) Then

   cpte4 = Left(Sheets(FeuilleBGCI).Cells(i, 3).Value, 4)

Filed under: Actualité du site Tagged: états financiers consolidés, balance générale, code source, DELPHI, EXCEL, grand livre consolidé, intégration, Programmation, rapidité d'exécution du code, sécurité des traitements, VBA, Visual Basic for Applications