Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

titre du fichier

2 réponses
Avatar
yansec
Bonjour,
tous les jours j'ouvre un nouveau fichier Excel qui provient d'un export.
je declenche une macro qui est dans mon classeur personnel.
je voudrais completer cete macro et qu'elle m'enregistre le fichier dans un
repertoire avec comme nom de fichier la date du jour.
ainsi chaque jour, j'irai déversé un nouveau fichier automatiquement dans
mon repertoire sans ecraser celui de la veille.
merci pour votre réponse

2 réponses

Avatar
Pascal
Bonjour,
Regardes de ce côté là en mettant ce code dans ThisWorkBook

Private Sub Workbook_BeforeClose(Cancel As Boolean)
répertoire = "C:Je sauve Toto"
ActiveWorkbook.SaveCopyAs répertoire & "" & Left(ThisWorkbook.Name,
Len(ThisWorkbook.Name) - 4) & _
Format(Now, "dd-mm-yyyy") & ".xls"
ThisWorkbook.Save
End Sub
Bonne Journée

"yansec" a écrit dans le message de news:
%
Bonjour,
tous les jours j'ouvre un nouveau fichier Excel qui provient d'un export.
je declenche une macro qui est dans mon classeur personnel.
je voudrais completer cete macro et qu'elle m'enregistre le fichier dans
un repertoire avec comme nom de fichier la date du jour.
ainsi chaque jour, j'irai déversé un nouveau fichier automatiquement dans
mon repertoire sans ecraser celui de la veille.
merci pour votre réponse



---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000723-2, 14/03/2007
Analyse le : 15/03/2007 07:52:31
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com








---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000723-2, 14/03/2007
Analyse le : 15/03/2007 07:56:39
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com

Avatar
JB
Bonjour,

Répertoire = "c:x"
ActiveWorkbook.SaveAs Filename:=Répertoire & "FichierDu" &
Format(Now, "dd-mm-yyyy")

JB

On 15 mar, 07:38, "yansec" wrote:
Bonjour,
tous les jours j'ouvre un nouveau fichier Excel qui provient d'un export.
je declenche une macro qui est dans mon classeur personnel.
je voudrais completer cete macro et qu'elle m'enregistre le fichier dans un
repertoire avec comme nom de fichier la date du jour.
ainsi chaque jour, j'irai déversé un nouveau fichier automatiquement dans
mon repertoire sans ecraser celui de la veille.
merci pour votre réponse