Bonjour,
je voudrais exécuter une macro le dernier jour ouvré du mois à minuit, et cela, tous les mois.
pourriez vous m'aider sur le sujet.
le but est de remplacer le bouton Archive et que cette macro se lancer automatiquement
la macro qui fonctionne avec le bouton est la suivante :
merci d'avance pour votre aide
je voudrais exécuter une macro le dernier jour ouvré du mois à minuit, et cela, tous les mois.
pourriez vous m'aider sur le sujet.
le but est de remplacer le bouton Archive et que cette macro se lancer automatiquement
la macro qui fonctionne avec le bouton est la suivante :
Code:
Sub copie_feuilleokdemcharg()
Dim nom$
nom = "OK DEM CHARG - " & UCase(MonthName(Month(Date))) & "-" & Year(Date)
Application.ScreenUpdating = False
On Error Resume Next
Worksheets(nom).Activate
If Err.Number <> 0 Then
Worksheets("OK DEM CHARG").Copy after:=Worksheets(Worksheets.Count)
ActiveSheet.Name = nom
Worksheets("OK DEM CHARG").Select
Worksheets("OK DEM CHARG").Range("A8:AF60000").ClearContents
End If
End Sub