Libération de la mémoire sous Excel 2002

Libération de la mémoire sous Excel 2002 - VB/VBA/VBS - Programmation

Marsh Posté le 10-04-2009 à 14:15:25    

Salut,
 
 
Je suis en train de développer un outil sous Excel et je rencontre quelques problèmes au niveau de l'occupation de la mémoire.
 
Dans mon code VBA, je récupère un range que j'insère dans un tableau.
Je fais un traitement sur ce tableau et ensuite je le recolle sur ma feuille Excel.
Le problème est qu'une fois le traitement terminé, je ne parviens pas à libérer la mémoire occupée pendant le traitement.
 
Dans le gestionnaire de tâches, je vois bien qu'Excel occupe de plus en plus de mémoire pendant l'opération mais pas moyen de la libérer.
L'outil Excel est bien évidemment de plus en plus lent et au bout d'un moment Excel plante.
 
Voici la partie du code qui pose problème :

Code :
  1. Tableau = Range(Cells(DepartJoursRow, DepartAgentsCol + 1), Cells(LigneDernierAgent, ColonneLastDate))
  2. TabNbLigne = UBound(Tableau, 1)
  3. TabNbCol = UBound(Tableau, 2)
  5. For i = 1 To TabNbLigne
  6.     If Len(Tableau(i, 1)) <> 0 Then
  7.         Agent = Tableau(i, 1)
  9.         For j = 2 To TabNbCol
  10.             If Len(Tableau(1, j)) = 0 And Len(Tableau(1, j - 1)) = 0 Then
  11.                 Exit For
  12.             End If
  13.             If IsDate(Tableau(1, j)) Then
  14.                 Tableau(1, j) = Format(Tableau(1, j), "dd/mm/yyyy" )
  15.                 Dte = Tableau(1, j)
  17.                 NumJour = Weekday(Dte, vbMonday)
  18.                 ChampM = "HOR_" & NumJour & "M"
  19.                 ChampA = "HOR_" & NumJour & "A"
  20.                
  21.                 Sql = "SELECT * FROM [T_HPPendantPeriode] WHERE HOR_AGENT='" & Agent & "' AND #" & Format(Dte, "mm/dd/yyyy" ) & "#>=HOR_DATEDEBUT;"
  22.                 Set rsPendant = db.OpenRecordset(Sql, DAO.dbOpenSnapshot)
  23.                
  24.                 If rsPendant.RecordCount = 0 Then
  25.                
  26.                     Sql = "SELECT * FROM [T_HPAvantPeriode] WHERE HOR_AGENT='" & Agent & "';"
  27.                     Set rsAvant = db.OpenRecordset(Sql, DAO.dbOpenSnapshot)
  28.                    
  29.                     If rsAvant.RecordCount <> 0 Then
  30.                         If IsNumeric(rsAvant(ChampM)) And IsNumeric(rsAvant(ChampA)) Then
  31.                             Tableau(i, j) = CInt(rsAvant(ChampM)) + CInt(rsAvant(ChampA))
  32.                         End If
  33.                     End If
  34.                    
  35.                     rsAvant.Close
  36.                     Set rsAvant = Nothing
  37.                
  38.                 End If
  39.                
  40.                 rsPendant.Close
  41.                 Set rsPendant = Nothing
  43. '***********************************************
  44.                
  45.             End If
  46.         Next j
  47.     End If
  48. Next i
  50. Range(Cells(DepartJoursRow, DepartAgentsCol + 1), Cells(LigneDernierAgent, ColonneLastDate)) = Tableau
  52. Erase Tableau()


 
Comment pourrais-je faire pour qu'Excel libère correctement la mémoire ?


Message édité par jaymzwise le 10-04-2009 à 14:16:11
Reply

Marsh Posté le 10-04-2009 à 14:15:25   

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed