Création automatique d'une nouvelle page Excel

[Laurence]

Hello tout le monde,

comment puis-je créer automatiquement à l'ouverture du fichier une nouvelle page (vide) appelée 'table4'?

Quelle procédure dois-je créer?

Merci

 

[sousou]

bonjour

quelque chose comme cela dans un module

sub auto_open()

set ma feuille=thisworkbook.sheets.add
mafeuille.name='table4'

end sub

 

[Laurence]

Pourrais-tu me donner le code complet car je ne suis
débutante en VBA?

Merci à toi et bon après-midi

 

[sousou]

C'est le code complet

Il faut supprimer l'espace entre ma et feuille

set mafeuille

Procédure
insérer un module dans VBA et coller le code
enregistrer et réouvrir le classeur

 

[Luki]

Bonjour laurence, Sousou,

Voici en Pj la macro complète, dans le module 'This Workbook '.

Elle gère le fait qu'il pourrait exixter déjà une 'Table 4' et donne le choix de l'écraser ou pas.

A + [file name=Table4.zip size=7064]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Table4.zip[/file]



Le code dans le module 'this Workbook'

Private Sub Workbook_Open()

Dim Wks As Worksheet
Dim Answer As Variant

Application.DisplayAlerts = False
On Error Resume Next

Set Wks = Worksheets('Table 4')

If Err.Number <> 0 Then
Set Wks = Worksheets.Add
Wks.Name = 'Table 4'
Else
Answer = MsgBox('La 'Table 4' existe déjà dans ce classeur !' & vbLf & ' Voulez-vous l'écraser?', vbYesNo)
If Answer = vbYes Then
Worksheets('Table 4').Delete
Set Wks = Worksheets.Add
Wks.Name = 'Table 4'
End If
End If

End Sub


A+

Message édité par: luki, à: 10/05/2005 15:59