Bonsoir Michel,

Je récapépette:

1° Je place la macro "Cafter":

Private Sub Workbook_BeforeClose(Cancel As Boolean)
source = ThisWorkbook.Name
Cafter
End Sub

dans tous mes classeurs ( les 20) à l'intérieur du répertoire "ThisWorkbook" de VBA.

2° Ensuite je colle la seconde macro dans le classeur qui doit recevoir toutes les informations et qui s'appelle : "Gestion_des_ mises_ à_ jour_ TBD_CDC_V1.xls"

Const classeur As String = "Gestion_des_ mises_ à_ jour_ TBD_CDC_V1.xls"
Const chemin As String = "D:\documents\" ' a adapter à l'emplacement de "classeur"
Public source As String
Sub cafter()
Dim conn As Object
Dim rqt As Object
Dim moment As Date
Set conn = CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & chemin & classeur & ";Extended Properties=""Excel 8.0;"""
moment = Now()
source = Left(source, Len(source) - 4)
' travail demandé: insère dans les champs de "db_taupe" (cellules nommées) le nom du classeur et le moment
texte_SQL = "INSERT INTO db_taupe (nom_classeur,date_utilisation) VALUES ('" & (source) & "','" & (moment) & "' )"
' éxécute le travail demandé
Set rqt = CreateObject("ADODB.Recordset")
Set rqt = conn.Execute(texte_SQL)
rqt.Close
Set rqt = Nothing
conn.Close
Set conn = Nothing
End Sub

3° Peux-tu m'expliquer dans quel classeur je mets "Insertion Nom définir" et les plages?

Désolé
Merci beaucoup
@+

Bonsoir Michel,

Merci pour ton aide précieuse.
Demain au taf, j'orchestre tout ça!
Bonne soirée.
Cordialement
Dan.