Supression d'une chaine de caractère spécifique

Bonjour Forum,

j'aurais besoin d'une macro qui me perpétré de supprimer les texte ".xlsx" en feuil3 case A17.

Je ne peut supprimer le contenus car il y a d'autres chose écrite avec..

Merci à vous.

Bonjour

essayes

Sub test()
  With Range("A17")
    .Value = Left(.Value, Len(.Value) - 5)
  End With
End Sub

Autre solution qui te permet de remplacer la chaine n'importe où dans le texte même si elle est plusieurs fois présente

Sub truc()
  Range("A17").Replace what:=".xlsx", replacement:=""
End Sub

Parfait merci Banzai64.