Salut, Pour des besoins d'aggregation de données, j'ouvre N classeurs excel, dans lesquels je recupere des données. J'ouvre les fichiers les uns apres les autres. Comme je m'y attendais (gestion de la memoire, microsoft, grr), la fermeture du classeur ne desalloue pas la place dans la RAM. Resultat, a chaque ouverture, excel prends 800k de plus en RAM. Or mon applis doit ouvrir/fermer plus de 250 fichiers (ne me demandez pas pkoi on doit faire ca avec excel!!!) Function readFile(ByVal filename As String, ByVal filepath As String, nbCat As Integer, sheetTargetName As String, ByVal nbFile As Integer) Dim wbData As Workbook Workbooks.Open filepath Set wbData = Workbooks(filename) wbData.Activate wbData.Close False Set wbData = Nothing End Function J'ai retiré tout le reste de mon code pour etre sur que c'est seulement l'ouverture de fichier qui est en cause... Des idees ? Merci de votre aide...

Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

ouverture/fermeture fichier et memoire

Initiateur de la discussion kemkem
Date de début 12 Janvier 2006

kemkem

XLDnaute Nouveau

12 Janvier 2006

Salut,

Pour des besoins d'aggregation de données, j'ouvre N classeurs excel, dans lesquels je recupere des données. J'ouvre les fichiers les uns apres les autres.

Comme je m'y attendais (gestion de la memoire, microsoft, grr), la fermeture du classeur ne desalloue pas la place dans la RAM. Resultat, a chaque ouverture, excel prends 800k de plus en RAM. Or mon applis doit ouvrir/fermer plus de 250 fichiers (ne me demandez pas pkoi on doit faire ca avec excel!!!)

Code:

Function readFile(ByVal filename As String, ByVal filepath As String, nbCat As Integer, sheetTargetName As String, ByVal nbFile As Integer)
    Dim wbData As Workbook

    Workbooks.Open filepath
    Set wbData = Workbooks(filename)
    wbData.Activate

    wbData.Close False
    Set wbData = Nothing
    
End Function

J'ai retiré tout le reste de mon code pour etre sur que c'est seulement l'ouverture de fichier qui est en cause...

Des idees ? Merci de votre aide...