Bonjour à tous,

Je travail avec plusieurs collègue sur plusieurs classeur excel. Parfois on a des soucis et on doit repartir d'une copie des fichiers qui a été faite manuellement.

Il y a 4 classeurs en tout . La macro que j'ai pour l'instant oblige d'ouvrir chaque classeur pour en faire une copie.

Ce que j'aimerais c'est une macro qui copie les 4 classeur, crée un dossier nommé de la date et heure du jour et les colles dedans.

Pourriez-vous m'aider ? ??

un tout grand merci

Voici le code que j'ai mis pour l'instant sur la page d'accueil (qui fait juste une copie dans un dossier appelé "backup" et change le nom du classeur avec la date et heure)

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Sub QUITTER_et_Sauvegarder()
 
ActiveWorkbook.Save
Dim Path As String, valeur As String
Path = ActiveWorkbook.Path & "\backup\"
valeur = "Sauvegarde du " & Format(Date, "dd/mm/yyyy") & " à " & Format(Time, "hh mm") & ".xlsm"
ThisWorkbook.SaveAs Path & valeur
MsgBox ("Sauvegarde correctement réalisée - Fermeture du dossier et Bonne journée")
Application.Quit
 
End Sub