Problème Replace pour enregistrement

[mikael2235]

Bonjour à tous,

Je cherche via une macro à remplacer les caractères "/" par des "-" pour enregistrer mon fichier en reprenant le nom d'une cellule qui contient une date.

Je vous ai mis un exemple avec ma macro.

Merci pour votre aide.

Mikael

 

[kjin]

Re : Problème Replace pour enregistrement

Bonjour,

Range("A1") = "Prod du " & Format(range("A1"), "dd-mm-yyyy")

A+
kjin

 

[mikael2235]

Re : Problème Replace pour enregistrement

Salut kjin,

Merci pour ta solution cela fonctionne.

Par contre si tu fais 2 fois "enregistrer".
ça va noter : Prod du Prod du 04/11/2010

Peux-t'on vérifier si dans les 8 premiers caractères, on a déja "Prod du " et ensuite une date ? Si c'est le cas, ne pas le réécrire !

Merci

 

[kjin]

Re : Problème Replace pour enregistrement

Re,
Bin non, suffit de garder uniquement la date en A1 et changes le format de cette cellule -->
"Prod du "jj/mm/aaaa

Sub sauvegarde_test()
Dim Rep$, nFile$
Rep = "C:\tmp\"
Application.ScreenUpdating = False
If IsEmpty(Range("a1")) Or Not IsDate(Range("a1")) Then 'testes également si c'est une date !
    MsgBox "Vous devez entrer la date de production dans la case 'Date'", _
                                        vbCritical + vbOKOnly, "Date de fabrication"
    Exit Sub
End If
nFile = "Prod du " & Format(Range("A1"), "dd-mm-yyyy") & ".xls"
Sheets("Feuil1").Copy
ActiveWorkbook.SaveAs Rep & nFile
ActiveWorkbook.Close
'ThisWorkbook.Close False

End Sub

A+
kjin

 

[mikael2235]

Re : Problème Replace pour enregistrement

Je vais tester et te tiens au courant ...

Merci