Workbook open ?

Bonjour, comment faire pour avoir deux lignes à l'ouverture ?

J'ai déjà celle-ci :

Private Sub Workbook_Open()
Feuil2.Activate
End Sub

Bonjour,

Que veux tu faire exactement, car pour ajouter une ligne, il suffit de faire ENTER au bout de la première afin d'insérer une nouvelle ligne.

Mais je ne pense pas que c'est le fond de ta question ?

J'ai comme message "erreur de compilation dans le module caché" thisworbook.

Avec ces deux codes :

Private Sub Workbook_Open()
If ActiveWorkbook.BuiltinDocumentProperties.Item(12) < Date Then
Feuil1.Range("A4:k28").ClearContents
End If
End Sub

Private Sub Workbook_Open()
Feuil2.Activate
End Sub

Bonjour

Tu ne peux pas avoir 2 WorkBook open - Regroupe les 2

Private Sub Workbook_Open()
    Feuil2.Activate
    If ActiveWorkbook.BuiltinDocumentProperties.Item(12) < Date Then
    Feuil1.Range("A4:k28").ClearContents
    End If
    End Sub

Amicalement

Nad