Je souhaite faire une sauvegarde automatique supplementaire d'un fichier a
chaque debut de mois (ce fichier est mis a jour + ou regulierement).
J'ai pense a ce code :
AfichDat = Format(Date, "dd/mm/yy")
If Mid(AfichDat, 1, 2) = 1 Then
ThisWorkbook.SaveAs FileName:="C:\SauvegardeFichierX\SauvegardeMensuelle du " &
AfichDat & ".xls"
End If
Mais apres, je me suis rendu compte que si ce fichier n'est pas ouvert le 1er du
mois, la sauvegarde automatique supplementaire mensuelle ne se fera pas.
Comment faire ?
Merci d'avance
Reda
--
Use our news server 'news.foorum.com' from anywhere.
More details at: http://nnrpinfo.go.foorum.com/
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
FxM
Bonsoir,
Tu pourrais stocker le jour de la dernière fermeture dans une cellule. Lorsque tu sauvegardes, compare le jour actuel au jour stocké. Si le jour actuel est inférieur, ca laisse supposer que l'on vient de changer de mois (pour être sur -> si différence > 2 ou 3 jours)
@+ FxM
Bonjour,
Je souhaite faire une sauvegarde automatique supplementaire d'un fichier a chaque debut de mois (ce fichier est mis a jour + ou regulierement). J'ai pense a ce code : AfichDat = Format(Date, "dd/mm/yy") If Mid(AfichDat, 1, 2) = 1 Then ThisWorkbook.SaveAs FileName:="C:SauvegardeFichierXSauvegardeMensuelle du " & AfichDat & ".xls" End If
Mais apres, je me suis rendu compte que si ce fichier n'est pas ouvert le 1er du mois, la sauvegarde automatique supplementaire mensuelle ne se fera pas. Comment faire ?
Merci d'avance Reda
Bonsoir,
Tu pourrais stocker le jour de la dernière fermeture dans une cellule.
Lorsque tu sauvegardes, compare le jour actuel au jour stocké.
Si le jour actuel est inférieur, ca laisse supposer que l'on vient de
changer de mois (pour être sur -> si différence > 2 ou 3 jours)
@+
FxM
Bonjour,
Je souhaite faire une sauvegarde automatique supplementaire d'un fichier a
chaque debut de mois (ce fichier est mis a jour + ou regulierement).
J'ai pense a ce code :
AfichDat = Format(Date, "dd/mm/yy")
If Mid(AfichDat, 1, 2) = 1 Then
ThisWorkbook.SaveAs FileName:="C:SauvegardeFichierXSauvegardeMensuelle du " &
AfichDat & ".xls"
End If
Mais apres, je me suis rendu compte que si ce fichier n'est pas ouvert le 1er du
mois, la sauvegarde automatique supplementaire mensuelle ne se fera pas.
Comment faire ?
Tu pourrais stocker le jour de la dernière fermeture dans une cellule. Lorsque tu sauvegardes, compare le jour actuel au jour stocké. Si le jour actuel est inférieur, ca laisse supposer que l'on vient de changer de mois (pour être sur -> si différence > 2 ou 3 jours)
@+ FxM
Bonjour,
Je souhaite faire une sauvegarde automatique supplementaire d'un fichier a chaque debut de mois (ce fichier est mis a jour + ou regulierement). J'ai pense a ce code : AfichDat = Format(Date, "dd/mm/yy") If Mid(AfichDat, 1, 2) = 1 Then ThisWorkbook.SaveAs FileName:="C:SauvegardeFichierXSauvegardeMensuelle du " & AfichDat & ".xls" End If
Mais apres, je me suis rendu compte que si ce fichier n'est pas ouvert le 1er du mois, la sauvegarde automatique supplementaire mensuelle ne se fera pas. Comment faire ?
