Hi,

Is it possible to make a macro that deletes all macro's?
I've got a large xls file (7MB) and I want to save only
the fill-in cells.
I've made a macro that copies the fill-in cells to a
sheet and deletes all the others sheets.
I use an auto_open macro and after deleting the sheets
the auto_open macro cannot be played, so I have te delete
it.

Second question : How can I save a file with the value
(name) of a cell ?
ex : A1 = TOM
I want to make a marco that saves the file as:
Version 1.0 TOM

Greez
Tom

Hi Tom
Sub DeleteAllMacros()
Dim Composantvbe As Object
With ActiveWorkbook.VBProject
For Each Composantvbe In .VBComponents
If Composantvbe.Type = 100 Then
With Composantvbe.CodeModule
.DeleteLines 1, .CountOfLines
.CodePane.Window.Close
End With
Else: .VBComponents.Remove Composantvbe
End If
Next Composantvbe
End With
End Sub

To save your file with value in A1:
Activeworkbook.SaveAs "Version 1.0" &
Worksheets("YourSheet").Range("A1").Value & ".xls"

HTH
Cordially
Pascal


"Tom" a écrit dans le message de
...
Hi,

Is it possible to make a macro that deletes all macro's?
I've got a large xls file (7MB) and I want to save only
the fill-in cells.
I've made a macro that copies the fill-in cells to a
sheet and deletes all the others sheets.
I use an auto_open macro and after deleting the sheets
the auto_open macro cannot be played, so I have te delete
it.

Second question : How can I save a file with the value
(name) of a cell ?
ex : A1 = TOM
I want to make a marco that saves the file as:
Version 1.0 TOM

Greez
Tom

Perfect !

Can I open an xls file which name I don't know.
So I want to make a macro that opens an xls file that
will be selected by the user(browse) and than I want to
copy a sheet of this file.

Greez
Tom

-----Original Message-----
Hi Tom
Sub DeleteAllMacros()
Dim Composantvbe As Object
With ActiveWorkbook.VBProject
For Each Composantvbe In .VBComponents
If Composantvbe.Type = 100 Then
With Composantvbe.CodeModule
.DeleteLines 1, .CountOfLines
.CodePane.Window.Close
End With
Else: .VBComponents.Remove Composantvbe
End If
Next Composantvbe
End With
End Sub

To save your file with value in A1:
Activeworkbook.SaveAs "Version 1.0" &
Worksheets("YourSheet").Range("A1").Value & ".xls"

HTH
Cordially
Pascal


"Tom" a écrit dans
le message de
...
Hi,

Is it possible to make a macro that deletes all
macro's?
I've got a large xls file (7MB) and I want to save only
the fill-in cells.
I've made a macro that copies the fill-in cells to a
sheet and deletes all the others sheets.
I use an auto_open macro and after deleting the sheets
the auto_open macro cannot be played, so I have te
delete
it.

Second question : How can I save a file with the value
(name) of a cell ?
ex : A1 = TOM
I want to make a marco that saves the file as:
Version 1.0 TOM

Greez
Tom


.

Tom
Sub OpenFile()
Filename = Application.Dialogs(xlDialogOpen).Show
If Filename < False Then
On Error Resume Next
Workbooks(ActiveWorkbook.Name).Sheets("YourSheet") .Copy
If Err < 0 Then MsgBox "The active workbook has no sheet named " &
"YourSheet"
Else: MsgBox "Opening operation has been cancelled", vbInformation
End If
End Sub

HTH
Cordially
Pascal
a écrit dans le message de
...
Perfect !

Can I open an xls file which name I don't know.
So I want to make a macro that opens an xls file that
will be selected by the user(browse) and than I want to
copy a sheet of this file.

Greez
Tom

-----Original Message-----
Hi Tom
Sub DeleteAllMacros()
Dim Composantvbe As Object
With ActiveWorkbook.VBProject
For Each Composantvbe In .VBComponents
If Composantvbe.Type = 100 Then
With Composantvbe.CodeModule
.DeleteLines 1, .CountOfLines
.CodePane.Window.Close
End With
Else: .VBComponents.Remove Composantvbe
End If
Next Composantvbe
End With
End Sub

To save your file with value in A1:
Activeworkbook.SaveAs "Version 1.0" &
Worksheets("YourSheet").Range("A1").Value & ".xls"

HTH
Cordially
Pascal


"Tom" a écrit dans
le message de
...
Hi,

Is it possible to make a macro that deletes all
macro's?
I've got a large xls file (7MB) and I want to save only
the fill-in cells.
I've made a macro that copies the fill-in cells to a
sheet and deletes all the others sheets.
I use an auto_open macro and after deleting the sheets
the auto_open macro cannot be played, so I have te
delete
it.

Second question : How can I save a file with the value
(name) of a cell ?
ex : A1 = TOM
I want to make a marco that saves the file as:
Version 1.0 TOM

Greez
Tom


.

The macro DeleteAllMacros doesn't work.
Message : Methiode VBPtoject of object_workbook has
failed.

And the line : With ActiveWorkbook.VBProject is colored
yellow.
What can I do ?
Tom
-----Original Message-----
Perfect !

Can I open an xls file which name I don't know.
So I want to make a macro that opens an xls file that
will be selected by the user(browse) and than I want to
copy a sheet of this file.

Greez
Tom

-----Original Message-----
Hi Tom
Sub DeleteAllMacros()
Dim Composantvbe As Object
With ActiveWorkbook.VBProject
For Each Composantvbe In .VBComponents
If Composantvbe.Type = 100 Then
With Composantvbe.CodeModule
.DeleteLines 1, .CountOfLines
.CodePane.Window.Close
End With
Else: .VBComponents.Remove Composantvbe
End If
Next Composantvbe
End With
End Sub

To save your file with value in A1:
Activeworkbook.SaveAs "Version 1.0" &
Worksheets("YourSheet").Range("A1").Value & ".xls"

HTH
Cordially
Pascal


"Tom" a écrit
dans
le message de
.. .
Hi,

Is it possible to make a macro that deletes all
macro's?
I've got a large xls file (7MB) and I want to save
only
the fill-in cells.
I've made a macro that copies the fill-in cells to a
sheet and deletes all the others sheets.
I use an auto_open macro and after deleting the sheets
the auto_open macro cannot be played, so I have te
delete
it.

Second question : How can I save a file with the value
(name) of a cell ?
ex : A1 = TOM
I want to make a marco that saves the file as:
Version 1.0 TOM

Greez
Tom


.

.

Tom
Does the active workbook contain your macros?
If not you may change with ThisWorkbook

HTH
Cordially
Pascal

a écrit dans le message de
...
The macro DeleteAllMacros doesn't work.
Message : Methiode VBPtoject of object_workbook has
failed.

And the line : With ActiveWorkbook.VBProject is colored
yellow.
What can I do ?
Tom
-----Original Message-----
Perfect !

Can I open an xls file which name I don't know.
So I want to make a macro that opens an xls file that
will be selected by the user(browse) and than I want to
copy a sheet of this file.

Greez
Tom

-----Original Message-----
Hi Tom
Sub DeleteAllMacros()
Dim Composantvbe As Object
With ActiveWorkbook.VBProject
For Each Composantvbe In .VBComponents
If Composantvbe.Type = 100 Then
With Composantvbe.CodeModule
.DeleteLines 1, .CountOfLines
.CodePane.Window.Close
End With
Else: .VBComponents.Remove Composantvbe
End If
Next Composantvbe
End With
End Sub

To save your file with value in A1:
Activeworkbook.SaveAs "Version 1.0" &
Worksheets("YourSheet").Range("A1").Value & ".xls"

HTH
Cordially
Pascal


"Tom" a écrit
dans
le message de
.. .
Hi,

Is it possible to make a macro that deletes all
macro's?
I've got a large xls file (7MB) and I want to save
only
the fill-in cells.
I've made a macro that copies the fill-in cells to a
sheet and deletes all the others sheets.
I use an auto_open macro and after deleting the sheets
the auto_open macro cannot be played, so I have te
delete
it.

Second question : How can I save a file with the value
(name) of a cell ?
ex : A1 = TOM
I want to make a marco that saves the file as:
Version 1.0 TOM

Greez
Tom


.

.

Pascal,

I have changed ActiveWorkbook into This Workbook but it
doesnt 't work yet.
This is the current macro :

Sub DeleteAllMacros()
Dim Composantvbe As Object
With ThisWorkbook.VBProject
For Each Composantvbe In .VBComponents
If Composantvbe.Type = 100 Then
With Composantvbe.CodeModule
.DeleteLines 1, .CountOfLines
.CodePane.Window.Close
End With
Else: .VBComponents.Remove Composantvbe
End If
Next Composantvbe
End With
End Sub

PS : I have only one XLS file open


The Macro "openfile" doens't work eather.
Message : The Variable "Filename" is not defined.
I can use this macro :

Workbooks.Open(Filename:="C:\Export Quogen NeXspan
1.0.xls").RunAutoMacros _
Which:=xlAutoOpen

But the problem here is that the file must be named as :
Export Quogen NeXspan 1.0.xls
I want that the user (not me) can select himself an XLS
file (by browse) because the file won't be saved
as "Export Quogen NeXspan 1.0.xls" by the user.
I don't know the name that the other user wil use to save
the file

Tom

PS : I'm working in Office 2003.



-----Original Message-----
Tom
Does the active workbook contain your macros?
If not you may change with ThisWorkbook

HTH
Cordially
Pascal

a écrit dans le
message de
...
The macro DeleteAllMacros doesn't work.
Message : Methiode VBPtoject of object_workbook has
failed.

And the line : With ActiveWorkbook.VBProject is colored
yellow.
What can I do ?
Tom
-----Original Message-----
Perfect !

Can I open an xls file which name I don't know.
So I want to make a macro that opens an xls file that
will be selected by the user(browse) and than I want to
copy a sheet of this file.

Greez
Tom

-----Original Message-----
Hi Tom
Sub DeleteAllMacros()
Dim Composantvbe As Object
With ActiveWorkbook.VBProject
For Each Composantvbe In .VBComponents
If Composantvbe.Type = 100 Then
With Composantvbe.CodeModule
.DeleteLines 1, .CountOfLines
.CodePane.Window.Close
End With
Else: .VBComponents.Remove Composantvbe
End If
Next Composantvbe
End With
End Sub

To save your file with value in A1:
Activeworkbook.SaveAs "Version 1.0" &
Worksheets("YourSheet").Range("A1").Value & ".xls"

HTH
Cordially
Pascal


"Tom" a écrit
dans
le message de
. ..
Hi,

Is it possible to make a macro that deletes all
macro's?
I've got a large xls file (7MB) and I want to save
only
the fill-in cells.
I've made a macro that copies the fill-in cells to a
sheet and deletes all the others sheets.
I use an auto_open macro and after deleting the
sheets
the auto_open macro cannot be played, so I have te
delete
it.

Second question : How can I save a file with the
value
(name) of a cell ?
ex : A1 = TOM
I want to make a marco that saves the file as:
Version 1.0 TOM

Greez
Tom


.

.



.