nobleza
XLDnaute Nouveau
Bonjour à tous,
j'ai déjà posé ce problème mais sans succès! c'est pourquoi je me permet aujourd'hui de reposer la question espérant avoir une issue.
bon, j'ai créé une application de facturation sur excel 2007 qui se compose de deux feuilles :
feuille 1 : où est élaboré la facture ( c'est un modèle qui puise les informations en fonction du client, à travers la formule RECHERCHEV)
feuille 2 : c'est là où se trouve le tableau regroupant les informations clients ( là où la facture puise ses informations)
j'ai remarqué qu'à chaque fois que j'enregistre une facture via le code en bas, le classeur prend du volume, il est passé à 23 Mo en unee semaine. j'arrive même pas à l'ouvrir tellement il est lourd.
Sub Enregistrer_Facture_Excel()
'
' Enregistrer_Facture_Excel Macro
'
' Touche de raccourci du clavier: Ctrl+v
'
Sheets("Facture").Select
Sheets("Facture").Copy
Sheets("Facture").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveSheet.EnableSelection = xlNoSelection
End Sub
merci d'avance
j'ai déjà posé ce problème mais sans succès! c'est pourquoi je me permet aujourd'hui de reposer la question espérant avoir une issue.
bon, j'ai créé une application de facturation sur excel 2007 qui se compose de deux feuilles :
feuille 1 : où est élaboré la facture ( c'est un modèle qui puise les informations en fonction du client, à travers la formule RECHERCHEV)
feuille 2 : c'est là où se trouve le tableau regroupant les informations clients ( là où la facture puise ses informations)
j'ai remarqué qu'à chaque fois que j'enregistre une facture via le code en bas, le classeur prend du volume, il est passé à 23 Mo en unee semaine. j'arrive même pas à l'ouvrir tellement il est lourd.
Sub Enregistrer_Facture_Excel()
'
' Enregistrer_Facture_Excel Macro
'
' Touche de raccourci du clavier: Ctrl+v
'
Sheets("Facture").Select
Sheets("Facture").Copy
Sheets("Facture").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveSheet.EnableSelection = xlNoSelection
End Sub
merci d'avance