Not Enough Memory!
 

Hi,

I am working on my Invoice.xls and sometimes I have this message:

"Mémoire insuffisante pour afficher en entier" wich would translat
roughly to:

"Not enough memory to display everything" Sorry not to know the exac
english designation of this error.

This invoice is not very complicated. Consisting of 3 sheets, one fo
the invoice, one to store data of the customers and one formatted t
print the enveloppe.

I have 11 sub in module1 (Is this a problem)

I have also 1 userform that display a negative timer while printing th
invoice and another userform with 6 buttons for printing the invoic
and reset it for next customer, printing enveloppe, sort the customers
see the invoice data that is store in a notepad .txt, quit the progra
and cancel the action.

On all my sub, I do not DIM. I suppose that there is my answer.

But I would like to be sure that there is not other things I shoul
look for.

Anyways,

below is one of my sub to register the invoice data in a file. Would
need to DIM that? Could I make this sub much thinner?

Thanks


Alain


Sub Enregistrement_et_nouvelle_facture()
Open "LexpertData.txt" For Append As #1
ligne = ""
Rref = Sheets("facture").Range("L6")
ligne = ligne & Rref & "~"
Rref = Sheets("facture").Range("L12")
ligne = ligne & Rref & "~"
Rref = Sheets("facture").Range("E12")
ligne = ligne & Rref & "~"
Rref = Sheets("facture").Range("E13")
ligne = ligne & Rref & "~"
Rref = Sheets("facture").Range("E14")
ligne = ligne & Rref & "~"
Rref = Sheets("facture").Range("E15")
ligne = ligne & Rref & "~"
Rref = Sheets("facture").Range("I15")
ligne = ligne & Rref & "~"
Rref = Sheets("facture").Range("D18")
ligne = ligne & Rref & "~"
Rref = Sheets("facture").Range("E18")
ligne = ligne & Rref & "~"
Rref = Sheets("facture").Range("L18")
ligne = ligne & Rref & "~"
Rref = Sheets("facture").Range("D19")
ligne = ligne & Rref & "~"
Rref = Sheets("facture").Range("E19")
ligne = ligne & Rref & "~"
Rref = Sheets("facture").Range("L19")
ligne = ligne & Rref & "~"
Rref = Sheets("facture").Range("D20")
ligne = ligne & Rref & "~"
Rref = Sheets("facture").Range("E20")
ligne = ligne & Rref & "~"
Rref = Sheets("facture").Range("L20")
ligne = ligne & Rref & "~"
Rref = Sheets("facture").Range("D21")
ligne = ligne & Rref & "~"
Rref = Sheets("facture").Range("E21")
ligne = ligne & Rref & "~"
Rref = Sheets("facture").Range("L21")
ligne = ligne & Rref & "~"

Rref = Sheets("facture").Range("D25")
ligne = ligne & Rref & "~"
Rref = Sheets("facture").Range("E25")
ligne = ligne & Rref & "~"
Rref = Sheets("facture").Range("K25")
ligne = ligne & Rref & "~"
Rref = Sheets("facture").Range("D26")
ligne = ligne & Rref & "~"
Rref = Sheets("facture").Range("E26")
ligne = ligne & Rref & "~"
Rref = Sheets("facture").Range("K26")
ligne = ligne & Rref & "~"
Rref = Sheets("facture").Range("D27")
ligne = ligne & Rref & "~"
Rref = Sheets("facture").Range("E27")
ligne = ligne & Rref & "~"
Rref = Sheets("facture").Range("K27")
ligne = ligne & Rref & "~"
Rref = Sheets("facture").Range("D28")
ligne = ligne & Rref & "~"
Rref = Sheets("facture").Range("E28")
ligne = ligne & Rref & "~"
Rref = Sheets("facture").Range("K28")
ligne = ligne & Rref & "~"
Rref = Sheets("facture").Range("D29")
ligne = ligne & Rref & "~"
Rref = Sheets("facture").Range("E29")
ligne = ligne & Rref & "~"
Rref = Sheets("facture").Range("K29")
ligne = ligne & Rref & "~"
Rref = Sheets("facture").Range("D30")
ligne = ligne & Rref & "~"
Rref = Sheets("facture").Range("E30")
ligne = ligne & Rref & "~"
Rref = Sheets("facture").Range("K30")
ligne = ligne & Rref & "~"
Rref = Sheets("facture").Range("D31")
ligne = ligne & Rref & "~"
Rref = Sheets("facture").Range("E31")
ligne = ligne & Rref & "~"
Rref = Sheets("facture").Range("K31")
ligne = ligne & Rref & "~"
Rref = Sheets("facture").Range("D32")
ligne = ligne & Rref & "~"
Rref = Sheets("facture").Range("E32")
ligne = ligne & Rref & "~"
Rref = Sheets("facture").Range("K32")
ligne = ligne & Rref & "~"
Rref = Sheets("facture").Range("K36")
ligne = ligne & Rref & "~"
Rref = Sheets("facture").Range("K38")
ligne = ligne & Rref
Write #1, ligne
Close
ligne = ""
Application.Run "nouvelle_facture" 'new invoice
FinEnregistrement:
End Sub


---
Message posted from http://www.ExcelForum.com/