Bonjour a tous les honorables membres.
Le retour de la KichE apres un moment d'absence.
J'ai ecrit (en m'inspirant de divers exemples) cette macro pour faire une copie de sauvegarde d'un fichier Excel avec la date et l'heure et le choix du dossier cible.
Le seul truc c'est que mes copie se retrouvent nommees FileDialog(msoFileDialogFolderPicker) puis le nom.
Legerement enervant, j'ai pas trouve de solution pour me debarasser de ca.
Pouvez vous, s'il vous plait, me proposer des idees.
Sub BackupcopySelectFolder()
'Macro by Theodore MORITA, 06 September 2012
Dim copyName As String
Dim MyDate
MyDate = Now
Dim DateString As String
DateString = Format(MyDate, "yyyymmdd hh.mm")
Dim diaFolder As FileDialog
Set diaFolder = Application.FileDialog(msoFileDialogFolderPicker)
diaFolder.AllowMultiSelect = False
diaFolder.Show
Set ThisBook = ThisWorkbook
copyName = diaFolder & "Back-up ICUDB01 table " & DateString & ".xls"
With Application
.ScreenUpdating = False
.DisplayAlerts = False
ThisBook.SaveCopyAs copyName
ActiveWorkbook.Save
.DisplayAlerts = True
.ScreenUpdating = True
End With
MsgBox "Backup Copy Saved!", vbExclamation, "Backup Macro by T.Morita"
End Sub