2 sauvegardes avec une macro
Bonjour à tous,
Après quelques heures de recherches infructueuses je cherche à sauvegarder un fichier excel et à créer une copie du fichier sans avoir de message de confirmation d'écrasement des fichiers. et aussi faire la sauvegarde dans le répertoire ou il se trouve.
ma macro c'est ca:
Sub sauvegarde()
'
' sauvegarde Macro
'
Sheets("Base").Select
Rows("5:5").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Sheets("Saisie").Select
Range("C33:M33").Select
Selection.Copy
Sheets("Base").Select
Range("B5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Saisie").Select
Range("E4,E6,E8,E10,E12,E14,E16,E18,E20,E22").Select
Range("E22").Activate
Application.CutCopyMode = False
Selection.ClearContents
Range("B4:B6").Select
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:="C:\Users\Mickaël\Desktop\blocage_backup.xlsm", _
FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
ActiveWorkbook.SaveAs Filename:="C:\Users\Mickaël\Desktop\blocage.xlsm", _
FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
Application.DisplayAlerts = True
End Sub
si qq'un peut m'aider ?
(le début de la macro c'est une copie de case dans une autre feuille)
merci d'avance
Bonjour,
Si j'ai bien compris le besoin ... un essai :
Sub sauvegarde()
'
' sauvegarde Macro
'
Dim NomMonFichier As String
NomMonFichier = ActiveWorkbook.Name
Dim Chemin As String
Chemin = ActiveWorkbook.Path & "\"
Sheets("Base").Rows("5:5").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Sheets("Saisie").Range("C33:M33").Copy
Sheets("Base").Range("B5").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Saisie").Select
Range("E4,E6,E8,E10,E12,E14,E16,E18,E20,E22").ClearContents
Application.CutCopyMode = False
Range("B4:B4").Select
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=Chemin & "blocage_backup.xlsm", _
FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
ActiveWorkbook.SaveAs Filename:=Chemin & "blocage.xlsm", _
FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
Application.DisplayAlerts = True
End Sub
laceline
Une merveille
Merci beaucoup ! c'est exactement ce que je voulais !
copié tel quel dans excel et c'est parti !