Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Gemini 3 Switch 2 Shein ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel détruire un fichier excel

détruire un fichier excel

24 réponses
Avatar
Claire
Bonjour,
J'aimerais détruire un fichier excel lorsque sa date de modification est
antérieure à 28 jours.
Ce fichier devrait être détruit à l'ouverture d'Excel et une fois détruit,
cette routine devrait s'effacer.
Est-ce possible ?
Merci beaucoup
Claire
Signaler un problème avec ce contenu

4 réponses

Supprimer
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
1 2 3
Avatar
Daniel.j
Bonsoir,
Et comme cela !?

With ThisWorkbook
If Now - ActiveWorkbook.BuiltinDocumentProperties(12) >= 28 Then
.Save
.ChangeFileAccess Mode:=xlReadOnly
Kill .FullName
.Close False
End If
End With
Daniel

FAQ du Forum Microsoft Public Fr Excel
http://dj.joss.free.fr/faq.htm


"Michel Pierron" a écrit dans le message de news:

| Re Denis;
| Cependant, la manière de faire suivante devrait convenir:
| Private Sub Workbook_Open()
| With ThisWorkbook
| Application.DisplayAlerts = False
| .ChangeFileAccess Mode:=xlReadOnly
| If Now - CreateObject("Scripting.FileSystemObject") _
| .GetFile(.FullName).DateLastModified >= 28 Then
| Kill .FullName
| .Close False
| Else
| .ChangeFileAccess Mode:=xlReadWrite
| Application.DisplayAlerts = True
| End If
| End With
| End Sub
|
| MP
|
| "michdenis" a écrit dans le message de
| news:%
| > Bonjour Michel,
| >
| > Si la procédure suivante est inscrite dans le module "ThisWorkbook" du
| classeur dont on veut évaluer la date où a été la
| > dernière modification, cette dernière écrite de cette façon renvoie la
| date et l'heure où le fichier du moment même où le
| > fichier s'ouvre.
| >
| > Dans l'exemple suivante : laDate = " 28-08-2004 08:18:32 " ....Difficile
| de penser que l'on puisse obtenir un jour un écart
| > de 28 jours.
| >
| > With ThisWorkbook
| > LaDate= CreateObject("Scripting.FileSystemObject") _
| > .GetFile(.FullName).DateLastModified
| > End With
| >
| >
| > Cependant, une méthode similaire peut être utilisé sur un fichier qui
| n'est pas déjà ouvert... et à titre d'exemple :
| >
| > En supposant que le fichier testé n'est pas celui qui s'ouvre ....
| > '-------------------------------------------
| > Private Sub Workbook_Open()
| >
| > Dim Fichier As String, ladate as variant
| > Fichier = "C:ExcelBernard.xls"
| >
| > ladate = DateDerModification(Fichier)
| > If IsDate(ladate) Then
| > If Now - ladate >= 28 Then
| > Kill Fichier
| > End If
| > Else
| > MsgBox ladate
| > End If
| > End Sub
| > '-------------------------------------------
| >
| > Fonction à mettre dans un module standard
| > '-----------------------------------
| > Function DateDerModification(Fichier As String) As Variant
| >
| > Dim Fs As Object, F As Object
| >
| > If Dir(Fichier) <> "" Then
| > Set Fs = CreateObject("Scripting.FileSystemObject")
| > Set F = Fs.getfile(Fichier)
| > DateDerModification = F.DateLastModified
| > Else
| > DateDerModification = "Fichier introuvable"
| > End If
| > Set Fs = Nothing: Set F = Nothing
| >
| > End Function
| > '-----------------------------------
| >
| >
| > Salutations!
| >
| >
| >
| >
| >
| >
| > "Michel Pierron" a écrit dans le message de
| news:uo%
| > Bonjour Claire;
| > Peut être ainsi:
| >
| > Private Sub Workbook_Open()
| > With ThisWorkbook
| > If Now - CreateObject("Scripting.FileSystemObject") _
| > .GetFile(.FullName).DateLastModified >= 28 Then
| > .Save
| > .ChangeFileAccess Mode:=xlReadOnly
| > Kill .FullName
| > .Close False
| > End If
| > End With
| > End Sub
| >
| > MP
| >
| > "Claire" a écrit dans le message de
| > news:%
| > > Bonjour,
| > > J'aimerais détruire un fichier excel lorsque sa date de modification est
| > > antérieure à 28 jours.
| > > Ce fichier devrait être détruit à l'ouverture d'Excel et une fois
| détruit,
| > > cette routine devrait s'effacer.
| > > Est-ce possible ?
| > > Merci beaucoup
| > > Claire
| > >
| > >
| > >
| >
| >
| >
|
|
Avatar
michdenis
Bonjour Michel,

Je n'ai pas testé cette procédure, je suis certain qu'elle fonctionne !

;-))


Salutations!






"Michel Pierron" a écrit dans le message de news:
Re Denis;
Cependant, la manière de faire suivante devrait convenir:
Private Sub Workbook_Open()
With ThisWorkbook
Application.DisplayAlerts = False
.ChangeFileAccess Mode:=xlReadOnly
If Now - CreateObject("Scripting.FileSystemObject") _
.GetFile(.FullName).DateLastModified >= 28 Then
Kill .FullName
.Close False
Else
.ChangeFileAccess Mode:=xlReadWrite
Application.DisplayAlerts = True
End If
End With
End Sub

MP

"michdenis" a écrit dans le message de
news:%
Bonjour Michel,

Si la procédure suivante est inscrite dans le module "ThisWorkbook" du
classeur dont on veut évaluer la date où a été la

dernière modification, cette dernière écrite de cette façon renvoie la
date et l'heure où le fichier du moment même où le

fichier s'ouvre.

Dans l'exemple suivante : laDate = " 28-08-2004 08:18:32 " ....Difficile
de penser que l'on puisse obtenir un jour un écart

de 28 jours.

With ThisWorkbook
LaDate= CreateObject("Scripting.FileSystemObject") _
.GetFile(.FullName).DateLastModified
End With


Cependant, une méthode similaire peut être utilisé sur un fichier qui
n'est pas déjà ouvert... et à titre d'exemple :


En supposant que le fichier testé n'est pas celui qui s'ouvre ....
'-------------------------------------------
Private Sub Workbook_Open()

Dim Fichier As String, ladate as variant
Fichier = "C:ExcelBernard.xls"

ladate = DateDerModification(Fichier)
If IsDate(ladate) Then
If Now - ladate >= 28 Then
Kill Fichier
End If
Else
MsgBox ladate
End If
End Sub
'-------------------------------------------

Fonction à mettre dans un module standard
'-----------------------------------
Function DateDerModification(Fichier As String) As Variant

Dim Fs As Object, F As Object

If Dir(Fichier) <> "" Then
Set Fs = CreateObject("Scripting.FileSystemObject")
Set F = Fs.getfile(Fichier)
DateDerModification = F.DateLastModified
Else
DateDerModification = "Fichier introuvable"
End If
Set Fs = Nothing: Set F = Nothing

End Function
'-----------------------------------


Salutations!






"Michel Pierron" a écrit dans le message de
news:uo%

Bonjour Claire;
Peut être ainsi:

Private Sub Workbook_Open()
With ThisWorkbook
If Now - CreateObject("Scripting.FileSystemObject") _
.GetFile(.FullName).DateLastModified >= 28 Then
.Save
.ChangeFileAccess Mode:=xlReadOnly
Kill .FullName
.Close False
End If
End With
End Sub

MP

"Claire" a écrit dans le message de
news:%
Bonjour,
J'aimerais détruire un fichier excel lorsque sa date de modification est
antérieure à 28 jours.
Ce fichier devrait être détruit à l'ouverture d'Excel et une fois
détruit,


cette routine devrait s'effacer.
Est-ce possible ?
Merci beaucoup
Claire










Avatar
LeSteph
Même si c'est possible avec VB
du moins comme dis Michdenis il faudrait cibler un fichier
sinon ce seraient tous les fichiers aussi quelqu'en soit
l'alternative il ne me semble pas souhaitable que ce soit à 27jours+1
ou à 28 jours -1 de délai d'incubation de publier cette recette empoisonnée.
Désolé, buvons plutôt un pti coup de beaujolais!


"michdenis" a 7 joursécrit dans le message de
news:
Bonsoir Claire,

Plus sérieusement, je ne crois pas que la chose soit possible pour
respecter tes exigences. Cependant, il est possible

d'écrire un VbScript actionné par le planificateur de tâche de Windows qui
effectuerait un "scanning" d'un répertoire donné

et ce quotidiennement (même plusieurs fois par jour) à la recherche de
fichiers "xls" ayant une caractéristique particulière

(comme un délai de 28 jours) et qui détruirais ces fichiers sans même
qu'excel ait une quelconque interaction dans ce

processus. Comme il se fait tard, je laisse la confection de ce script à
quelqu'un de frais et dispo.



Salutations!



"Claire" a écrit dans le message de
news:%

Bonjour,
J'aimerais détruire un fichier excel lorsque sa date de modification est
antérieure à 28 jours.
Ce fichier devrait être détruit à l'ouverture d'Excel et une fois détruit,
cette routine devrait s'effacer.
Est-ce possible ?
Merci beaucoup
Claire






Avatar
Claire
Merci beaucoup pour votre aide. Grâce à vous, j'ai trouvé la solution à mon
problème.

Claire

"Claire" a écrit dans le message de
news:%
Bonjour,
J'aimerais détruire un fichier excel lorsque sa date de modification est
antérieure à 28 jours.
Ce fichier devrait être détruit à l'ouverture d'Excel et une fois détruit,
cette routine devrait s'effacer.
Est-ce possible ?
Merci beaucoup
Claire






1 2 3