Bonjour à tous,
ma question est simple comment enregistrer de façon automatique ( code à
placer dans this workbook) un fichier xl avec la date et l'heure
d'enregistrement dans le nom du fichier.
exemple : fichier ABC. xls . A la fermeture du fichier: enregistrement
automatique: ABC181005658.xls(ABC & 18/10/05 6:58)
d'avance merci
et bonne journée
BS
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
OnE
Bonjour
Private Sub Workbook_BeforeClose(Cancel As Boolean) NousSommesLe = Date 'Remplace les / par rien NousSommesLe = Replace(NousSommesLe, "/", "") IlEst = Time 'Remplace les : par rien IlEst = Replace(IlEst, ":", "") 'Enleve les secondes IlEst = Left(IlEst, 4) 'Definit le nom du fichier NomFichier = "ABC" & NousSommesLe & IlEst
ActiveWorkbook.SaveAs NomFichier End Sub
Bonjour à tous, ma question est simple comment enregistrer de façon automatique ( code à placer dans this workbook) un fichier xl avec la date et l'heure d'enregistrement dans le nom du fichier.
exemple : fichier ABC. xls . A la fermeture du fichier: enregistrement automatique: ABC181005658.xls(ABC & 18/10/05 6:58) d'avance merci et bonne journée BS
Bonjour
Private Sub Workbook_BeforeClose(Cancel As Boolean)
NousSommesLe = Date
'Remplace les / par rien
NousSommesLe = Replace(NousSommesLe, "/", "")
IlEst = Time
'Remplace les : par rien
IlEst = Replace(IlEst, ":", "")
'Enleve les secondes
IlEst = Left(IlEst, 4)
'Definit le nom du fichier
NomFichier = "ABC" & NousSommesLe & IlEst
ActiveWorkbook.SaveAs NomFichier
End Sub
Bonjour à tous,
ma question est simple comment enregistrer de façon automatique ( code à
placer dans this workbook) un fichier xl avec la date et l'heure
d'enregistrement dans le nom du fichier.
exemple : fichier ABC. xls . A la fermeture du fichier: enregistrement
automatique: ABC181005658.xls(ABC & 18/10/05 6:58)
d'avance merci
et bonne journée
BS
Private Sub Workbook_BeforeClose(Cancel As Boolean) NousSommesLe = Date 'Remplace les / par rien NousSommesLe = Replace(NousSommesLe, "/", "") IlEst = Time 'Remplace les : par rien IlEst = Replace(IlEst, ":", "") 'Enleve les secondes IlEst = Left(IlEst, 4) 'Definit le nom du fichier NomFichier = "ABC" & NousSommesLe & IlEst
ActiveWorkbook.SaveAs NomFichier End Sub
Bonjour à tous, ma question est simple comment enregistrer de façon automatique ( code à placer dans this workbook) un fichier xl avec la date et l'heure d'enregistrement dans le nom du fichier.
exemple : fichier ABC. xls . A la fermeture du fichier: enregistrement automatique: ABC181005658.xls(ABC & 18/10/05 6:58) d'avance merci et bonne journée BS
attention : sur une seule ligne (ou ligne à couper avec espace _) jps
"bernard" a écrit dans le message de news:43547ef1$0$987$
Bonjour à tous, ma question est simple comment enregistrer de façon automatique ( code à placer dans this workbook) un fichier xl avec la date et l'heure d'enregistrement dans le nom du fichier.
exemple : fichier ABC. xls . A la fermeture du fichier: enregistrement automatique: ABC181005658.xls(ABC & 18/10/05 6:58) d'avance merci et bonne journée BS
attention : sur une seule ligne (ou ligne à couper avec espace _)
jps
"bernard" <bernard.sauvage2@wanadoo.fr> a écrit dans le message de
news:43547ef1$0$987$8fcfb975@news.wanadoo.fr...
Bonjour à tous,
ma question est simple comment enregistrer de façon automatique ( code à
placer dans this workbook) un fichier xl avec la date et l'heure
d'enregistrement dans le nom du fichier.
exemple : fichier ABC. xls . A la fermeture du fichier: enregistrement
automatique: ABC181005658.xls(ABC & 18/10/05 6:58)
d'avance merci
et bonne journée
BS
attention : sur une seule ligne (ou ligne à couper avec espace _) jps
"bernard" a écrit dans le message de news:43547ef1$0$987$
Bonjour à tous, ma question est simple comment enregistrer de façon automatique ( code à placer dans this workbook) un fichier xl avec la date et l'heure d'enregistrement dans le nom du fichier.
exemple : fichier ABC. xls . A la fermeture du fichier: enregistrement automatique: ABC181005658.xls(ABC & 18/10/05 6:58) d'avance merci et bonne journée BS