Discussion :

[Edwins]

Bonjour à tous,

Mon problème est simple et très très ennuyeux.
Je travail sur une macro de repporting automatisé, qui se charge de générer tableau/pwp/graph/etc..
Le soucis c'est que je suis amené à copier des sheets, ici l'utilisation de la sheet_temp est pour éviter de travailler sur une sheet potentiellement modifié sur l'utilisateur. Mon process est donc le suivant :

BDD Original (fichier externe)
-> importation dans BDD_Temp (fichier local)
-> Pushing de BDD_Temp dans BDD (fichier local)
-> retraitement sur BDD

-> si BDD <> BDD_Temp -> BDD_Temp remplace BDD (d'où le copy)

Or chaque fois que j'effectue la copie de BDD_Temp vers BDD mon fichier augmente de taille, peut importe ce qui a pu se passer avant.

Admettons que je ne lance que la macro qui copy BDD_Temp dans BDD, alors mon fichier augmente d'environs 80ko.
Ce n'est rien vous me direz ? Eh bien... si... par ce que 80*beaucoup d'execution ça fait des fichiers totalement instable...
Quand je met en commentaire la ligne de copie, le fichier n'augmente plus de taille (mais ne réduit pas pour autant).

C'est très très embêtant, d'autant que l'ensemble du système fonctionne il est juste rendu instable par cette croissance continue du poids du fichier...

J'ai l'impression que certaines variables/données ne sont pas purgé à la fin de chaque copy/execution de macro...
Je n'ai pas de variable globale.

Après plusieurs heures d'arrachage de cheveux et de recherche sur notre moteur de recherche favori, je ne trouve aucune solution...

Mon code est pourtant simple (j'ai retiré tous ce qui n'était pas pertinent, à noter que le problème persiste même sans ce code non pertinent) :

Le code se trouve dans un UserForm dans la fonction "initialize" donc :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub UserForm_Initialize()
     Sheets("BDD_Reporting_Temp").Cells.Copy Sheets("BDD_Reporting").Cells
    Sheets("Table").Rows.Delete
End Sub

Et dans le module qui initialise l'userform :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Sub GenerateTable()
    TS_Choice.Show
    Set TS_Choice = Nothing
End Sub

A noter que j'ai déjà essayé :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 Sub ClearClipboard()
     Dim oDataObject As DataObject
 
     Set oDataObject = New DataObject
     oDataObject.SetText ""
     oDataObject.PutInClipboard
     Set oDataObject = Nothing
 End Sub

et

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.CutCopyMode = False

Bref... HELP

Merci d'avance,

Amicalement,
Ed'

[Jean-Philippe André]

Salut,

je te recommande d'utiliser un format ideal pour le stoackage de donnees, le format binaire xlsb.
http://jpcheck.developpez.com/tutori...binaires-xlsb/

ca ne resout pas l'aspect "prise de poids du fichier", mais ca en limite considerablement les effets =]

[Edwins]

Bonjour,

Encore désolé pour le mauvais choix du forum. Mon fichier est actuellement en xlsm pour pouvoir gérer aussi les rubans dynamiques, or de souvenir le xlsb ne permet pas de les gérer :/

Merci de ta réponse !

Ce bug est vraiment génant, puisque la macro est vouée à être utilisé plusieurs années...
Et je ne peux pas me permettre de faire un fichier qui grossit grossit puis qui est supprimé et remplacé par un autre fichier une fois un seuil atteint... :/

Edit :
Je viens de trouver la solution !
(comme quoi à force de chercher on trouve )
Je laisse la sollution ci-après car le savoir est la seule chose qui augmente quand on le partage:
J'ai remplacé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    Sheets("BDD_Reporting_Temp").Cells.Copy Sheets("BDD_Reporting").Cells

Par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
    Sheets("BDD_Reporting_Temp").Cells.Copy
    Sheets("BDD_Reporting").Cells.PasteSpecial Paste:=xlPasteValues

A noter que si votre config est trop petite, le copy/paste peut provoquer un "out of memory".

Elle parait aussi débile que le problème... mais ça marche donc bon...
A noter que l'utilisation d'autre type de Paste ne fait pas non plus grossir le fichier...

Vive le VBA ._.'

Bonne journée à tous!

[joe.levrai]

Bonjour,

ton fichier source utilise-t-il des mises en formes conditionnelles ou autres fonctionnalitées de ce type rattachées à des plages de cellules ? (plages nommées par exemple).

car la méthode .Copy va TOUT embarquer, et tout dupliquer à chaque copie ... et tu te retrouves avec des doublons de MEF ou de plages nommées qui pompent de la place

Le PasteSpecial a le mérite de n'embarquer.... que les éléments que tu lui indiques (valeurs, formats, formules etc...)