Msgbox avec le nom du classeur

bonjour tout le monde ,

dans le cadre d'une sauvegarde en un clic , j'ai réussi a faire ce qui suit:

' Définit le message.

msg = "La semaine " & _ Sheets("matrice").Range("V1") & vbLf & _ " a était ajouté au classeur!."

Style = vbOKOnly + vbDefaultButton1

Réponse = MsgBox(msg, Style, Title)

If Réponse = vbOK Then

End If

donc :

MATRICE = la feuille

V1 = le Numéro de la semaine

CLASSEUR <=== la j'aimerai mettre le nom du classeur ouvert

La semaine 25 ('matrice'!V1) a etait ajouter au classeur "ici le nom du classeur qui comporte la matrice et les sauvegardes des semaine"

merci pour votre aide

je pense avoir trouver !

Sub test() 'message qui confirme l'enregistrement  dans un classeur
'& wb.Name & <====donne le nom du classeur ouvert
'& Sheets("matrice").Range("A1") & <==== va cherche des informations pour les afficher dans le message
For Each wb In Workbooks
    MsgBox "La semaine " & Sheets("matrice").Range("A1") & " a etait enregistrer dans le classeur " & wb.Name & " ."

   'si on active le reste cela donne le nom de la feuille active du classeur

    'For Each ws In wb.Worksheets
       ' MsgBox ws.Name
  '  Next ws
Next wb
End Sub