A partir d'une macro es-t-il possible de sauvegarder un fichier sous son nom en cours sans le texte entre parenthèse.
Par exemple dans le fichier joint sauvegarder sous le nom "Sauvegarde" et supprimer le texte entre-parenthèse ainsi que les parenthèses.
Sub Sauvegarde()
With ThisWorkbook
If InStr(.Name, "(") > 0 And InStr(.Name, ")") > 0 Then .SaveAs .Path & "\" & Replace(Split(.Name, "(")(0) & Split(.Name, ")")(UBound(Split(.Name, ")"))), " ", "")
End With
End Sub
Sub Sauvegarde()
With ThisWorkbook
If InStr(.Name, "(") > 1 Then .SaveCopyAs .Path & "\" & _
Trim(Split(.Name, "(")(0)) & Mid(.Name, InStrRev(.Name, "."))
End With
End Sub