Bonjour à tous !
Mes connaissances assez primaires en terme de macro excel me bloque en ce moment. J'ai un tableau que j'avais fait à l'époque qui me permet de faire la compta de plusieurs personnes d'une manière annuelle.
J'avais ajouter une macro pour permettre d’enregistrer sous ce tableau individualisé pour le mettre dans le dossier de l'année suivante...
Ma question est-ce que je peux faire une macro pour exécuter la macro Sub Sauvegarde() (ci-dessous) pour enregistrer tous mes dossiers vers un autre dossier spécifique ?
Sub Sauvegarde()
'
' Sauvegarde Macro
'
'
If MsgBox("Assurez-vous d'avoir bien enregistré l'année comptabilisé ! Etes-vous certain de vouloir enregistrer la comptabilité l'année suivante?", vbYesNo, "Demande de confirmation") = vbYes Then
Range("AR6:AR19").Select
Selection.Copy
ActiveWindow.SmallScroll Down:=-18
Range("AQ6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("A8:A" & Range("A65536").End(xlUp).Row).ClearContents
Range("B8:B" & Range("B65536").End(xlUp).Row).ClearContents
Range("D8:D" & Range("D65536").End(xlUp).Row).ClearContents
Range("F8:S" & Range("E65536").End(xlUp).Row).ClearContents
Range("A7").Select
ActiveCell.FormulaR1C1 = "=DATE(YEAR(R[-1]C)+1,MONTH(R[-1]C),DAY(R[-1]C))"
Range("A7").Select
Selection.Copy
Range("A6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A7").Select
Application.CutCopyMode = False
Selection.ClearContents
Application.Dialogs(xlDialogSaveAs).Show
End If
End Sub