XL 2016 date sur en tete de tableau

ChTi160 à dit:

Bonsoir le Fil
Peut être ainsi :

VB:

Private Sub Workbook_Open()
' Vérifier si le tableau structuré "t_BDD" existe
    On Error Resume Next  
    Set tbl = Range("t_BDD").ListObject  
    On Error GoTo 0  
    ' Si le tableau existe, insérer la date du jour dans la quatrième colonne de l'en-tête
    If Not tbl Is Nothing Then
        tbl.HeaderRowRange.Cells(1, 4).Value = Date
       Else
        MsgBox "Le tableau structuré 't_BDD' n'existe pas , vbExclamation
    End If
End Sub

on entre la date à l'ouverture du Fichier
Jean marie

Cliquez pour agrandir...