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