Bonsoir,
j'ai trouvé ce code sur un site web qui permet de faire une copie d'un fichier et de changer l'extension du fichier en *.bak
Sauriez vous comment faire pour indiquer que le dossier de destination est contenu en Feuil1 cellule A1?
Merci d'avance
j'ai trouvé ce code sur un site web qui permet de faire une copie d'un fichier et de changer l'extension du fichier en *.bak
Code:
Dim awb As Workbook, BackupFileName As String, i As Integer, OK As Boolean
If TypeName(ActiveWorkbook) = "Nothing" Then Exit Function
Set awb = ActiveWorkbook
If awb.path = "" Then
Application.Dialogs(xlDialogSaveAs).Show
Else
BackupFileName = awb.FullName
i = 0
While InStr(i + 1, BackupFileName, ".") > 0
i = InStr(i + 1, BackupFileName, ".")
Wend
If i > 0 Then BackupFileName = Left(BackupFileName, i - 1)
jour = "_" & Year(Now) & "_" & Month(Now) & "_" & Day(Now) & "_" & Hour(Now) & "_" & Minute(Now)
BackupFileName = BackupFileName & jour & ".bak"
OK = False
On Error GoTo NotAbleToSave
With awb
Application.StatusBar = "Sauvegarde du fichier..."
.Save
Application.StatusBar = "Sauvegarde du backup..."
.SaveCopyAs BackupFileName
OK = True
End With
End If
NotAbleToSave:
Set awb = Nothing
Application.StatusBar = False
If Not OK Then
MsgBox "Backup Copy Not Saved!", vbExclamation, ThisWorkbook.Name
End If
Sauriez vous comment faire pour indiquer que le dossier de destination est contenu en Feuil1 cellule A1?
Merci d'avance