2 sauvegardes avec une macro

Question

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...

laceline · Answer

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...