Bonjour,
Je me lance (enfin j'essaye) dans les macros. Rien de plus simple quand on utilise l'enregistrement mais quand il s'agit d'aller dans le code alors là.... je nage !!!
Je souhaite enregistrer tous les lundis un fichier sous un autre nom avec la date et dans un répertoire bien spécifique.
Voilà ce que j'ai plus ou moins essayer mais cela ne donne rien :-(
Code =>
'Faire un enregistrement automatique tous les lundis.
If (Weekday(TODAY())) = 2 Then 'vérifie si on est un lundi
Dim strChemin As String
Dim strFichier As String
strChemin = "Z:\Tata\Titi\Sauvegarde" ' Le chemin de destination
strFichier = SAVE_TOTO & " _ " & Format(Now(), "dd-mm-yy") & ".xls" 'pour enregistrer sans les macros
ThisWorkbook.SaveAs strChemin & strNomFic
MsgBox "Attention, une sauvegarde hebdomadaire du fichier TOTO.XLSM vient d'être effectuée dans le répertoire Z:\Tata\Titi\Sauvegarde"
End If
Merci d'avance,
Sofy
Je me lance (enfin j'essaye) dans les macros. Rien de plus simple quand on utilise l'enregistrement mais quand il s'agit d'aller dans le code alors là.... je nage !!!
Je souhaite enregistrer tous les lundis un fichier sous un autre nom avec la date et dans un répertoire bien spécifique.
Voilà ce que j'ai plus ou moins essayer mais cela ne donne rien :-(
Code =>
'Faire un enregistrement automatique tous les lundis.
If (Weekday(TODAY())) = 2 Then 'vérifie si on est un lundi
Dim strChemin As String
Dim strFichier As String
strChemin = "Z:\Tata\Titi\Sauvegarde" ' Le chemin de destination
strFichier = SAVE_TOTO & " _ " & Format(Now(), "dd-mm-yy") & ".xls" 'pour enregistrer sans les macros
ThisWorkbook.SaveAs strChemin & strNomFic
MsgBox "Attention, une sauvegarde hebdomadaire du fichier TOTO.XLSM vient d'être effectuée dans le répertoire Z:\Tata\Titi\Sauvegarde"
End If
Merci d'avance,
Sofy