New Workbook avec une seuille feuille ?

Pierrot93

XLDnaute Barbatruc

• 24 Juillet 2008

• #2

Re : New Workbook avec une seuille feuille ?

Re

essaye le code ci dessous :

Code:

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

@+

 

Vote positif 0 Vote négatif

S

STephane

XLDnaute Occasionnel

• 24 Juillet 2008

• #3

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

 

Vote positif 0 Vote négatif

N

nougitch

XLDnaute Occasionnel

• 24 Juillet 2008

• #4

Re : New Workbook avec une seuille feuille ?

Cool Pierrot, merci beaucoup !!!

 

Vote positif 0 Vote négatif

M

MichelXld

XLDnaute Barbatruc

• 24 Juillet 2008

• #5

Re : New Workbook avec une seuille feuille ?

bonjour

une autre méthode :

Code:

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

bonne journée
michel

 

Vote positif 0 Vote négatif