Sauvegarder un fichier sous

[lostheroe]

Bonjour,

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.

Cordialement

 

[Pierrot93]

Re : Sauvegarder un fichier sous

Bonjour,

essaye peut être ceci :

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

bon après midi
@+

 

[lostheroe]

Re : Sauvegarder un fichier sous

Merci bcp,

Ca correspond exactement à ce que je voulais.

Bonne aprem

 

[job75]

Re : Sauvegarder un fichier sous

Bonjour lostheroe, Pierrot,

Peut-être simplement :

Sub Sauvegarde()
With ThisWorkbook
If InStr(.Name, "(") > 1 Then .SaveAs .Path & "\" & Trim(Split(.Name, "(")(0)), .FileFormat
End With
End Sub

A+

 

[job75]

Re : Sauvegarder un fichier sous

Re,

Peut-être aussi qu'un SaveCopyAs est préférable :

Sub Sauvegarde()
With ThisWorkbook
  If InStr(.Name, "(") > 1 Then .SaveCopyAs .Path & "\" & _
    Trim(Split(.Name, "(")(0)) & Mid(.Name, InStrRev(.Name, "."))
End With
End Sub

Fichier joint.

Bonne fin de soirée.