New Workbook avec une seuille feuille ?

[nougitch]

Bonjour,

Est-il possible de creer un nouveau classeur ne contenant qu'une seuile feuille ?

Dim NewWorkBook As Object
Set NewWorkBook = Workbooks.Add
With NewWorkBook
   .SaveAs Filename:="C:\Temp" & "\Classeur.xls"
End With

Merci par avance pour votre aide.
Cdt,

 

[Pierrot93]

Re : New Workbook avec une seuille feuille ?

Re

essaye le code ci dessous :

Dim x As Byte, wb As Workbook
x = Application.SheetsInNewWorkbook
Application.SheetsInNewWorkbook = 1
Set wb = Workbooks.Add
Application.SheetsInNewWorkbook = x

@+

 

[STephane]

Re : New Workbook avec une seuille feuille ?

bonjour,

tu peux connaître et modifier le nombre de feuilles par défaut d'un nouveau classeur :

nombre=Application.SheetsInNewWorkbook
msgbox nombre

tu peux aussi le modifier préalablement à l'emploi de la méthode Add.
et le rétablir ensuite

 

[nougitch]

Re : New Workbook avec une seuille feuille ?

Cool Pierrot, merci beaucoup !!!

 

[MichelXld]

Re : New Workbook avec une seuille feuille ?

bonjour

une autre méthode :

Dim Wb As Workbook
Set Wb = Workbooks.Add(1)

bonne journée
michel