Hi Jean-Paul

Files are opened only when entering a password (DBI in my case)
See the Tips on this page
http://www.rondebruin.nl/copy3.htm

In every workbook there is a kind of template (always sheet1). I don't need
to print this sheet... can I ommit this.
How many sheets have each workbook?
Is this the same in every workbook?

Last but not least. Can I print workbooks in reverse order so no manual
Sort the files in the folder first


--
Regards Ron de Bruin
http://www.rondebruin.nl


"Jean-Paul De Winter" wrote in message ...
this is perfect...
Some remarks though
Files are opened only when entering a password (DBI in my case) can this be
implermented too??
In every workbook there is a kind of template (always sheet1). I don't need
to print this sheet... can I ommit this.
Last but not least. Can I print workbooks in reverse order so no manual
sorting is needed after the printing process?
Thanks
JP
"Ron de Bruin" schreef in bericht
...
Hi Jean-Paul

Try this for the folder C:\Data

Sub TestFile1()
Dim basebook As Workbook
Dim mybook As Workbook
Dim FNames As String
Dim MyPath As String
Dim SaveDriveDir As String

SaveDriveDir = CurDir
MyPath = "C:\Data"
ChDrive MyPath
ChDir MyPath
FNames = Dir("*.xls")
If Len(FNames) = 0 Then
MsgBox "No files in the Directory"
ChDrive SaveDriveDir
ChDir SaveDriveDir
Exit Sub
End If

Application.ScreenUpdating = False
Do While FNames < ""
If FNames Like "*November*" Then
Set mybook = Workbooks.Open(FNames)
mybook.PrintOut
mybook.Close False
End If
FNames = Dir()
Loop
ChDrive SaveDriveDir
ChDir SaveDriveDir
Application.ScreenUpdating = True
End Sub


--
Regards Ron de Bruin
http://www.rondebruin.nl


"Jean-Paul De Winter" wrote in message
...
Hi,
I have about 20 files containing te word "November"
Each file has an avarage of 15 sheets.
I want to print this all out... Is there a command to make the computer
pick
all files and print all sheets automatically without having to open the
all
individually???
Thanks