anass1
XLDnaute Junior
Bonjour,
J'ai utilisé ce code pour enregistrer une copie de sauvegarde;
SVP, Je veux enregistrer la copie de sauvegarde avec un format "xlsx" ( sans macro).
Merci
J'ai utilisé ce code pour enregistrer une copie de sauvegarde;
VB:
Sub CS()
Dim DN As String
Application.DisplayAlerts = False
With ThisWorkbook
On Error Resume Next
DN = ThisWorkbook.Path & "\sauvegarde\"
MkDir DN
On Error GoTo 0
.SaveCopyAs Filename:=DN & .Name
End With
Application.DisplayAlerts = True
Application.OnTime Now + TimeValue("00:00:15"), "CS"
End SubSVP, Je veux enregistrer la copie de sauvegarde avec un format "xlsx" ( sans macro).
Merci