Remplacement de fichier lors de l'enregistrement

[matheo80]

Bonjour,

J'ai actuellement mis en place une application dans mon entreprise à l'aide de VBA. J'ai un bouton d'enregistrement serveur qui me fait 2 sauvegardes du fichier (se situant sur un disque externe) quotidienne en modifiant la date pour la mettre à celle du jour. Le nom du fichier est sous la forme "Zone - Date du jour - Incidents". Le problème est le suivant : j'aimerais que dans une des arborescences l'ancien fichier soit remplacer par le nouveau (suppression de l'ancien avec validation automatique).
Pourriez-vous m'aider ?

 

[Guest]

Re : Remplacement de fichier lors de l'enregistrement

Bonjour et bienvenue sur le forum,


quelque chose comme ceci peut-être (non testé):

Dim fichier As String, dossier As String
dossier = "Z:\"

'fichier précédent ( jour -1)
fichier = "Zone - " & Format(Date - 1, "aaaammjj") & " - Incidents.xls"

'Si fichier précédent existe alors le supprimer
If Dir(dossier & fichier) <> "" Then Kill (dossier & fichier)

'fichier du jour
fichier = "Zone - " & Format(Date, "aaaammjj") & " - Incidents.xls"

ActiveWorkbook.SaveCopyAs dossier & fichier

A+

 

[matheo80]

Re : Remplacement de fichier lors de l'enregistrement

Merci pour ta solution mais j'ai oublié de préciser que les sauvegardes sont quotidiennes du lundi au vendredi donc le J-1 ne pourra s'appliquer. Le problème est qu'il n'y aura ni de sauvegarde le week-end ni les jours fériés. Il me faudrait quelque chose qui me permettrai de supprimer l'ancien fichier peut importe sa date.

 

[Guest]

Re : Remplacement de fichier lors de l'enregistrement

Bonjour,

Ben dans l'instruction DIR mets un jocker (*) à la place de la date.
Dim Fichier as string
Fichier = Dir(dossier & " Zone - * - Incidents.xls")
if Fichier<>"" then Kill dossier & fichier

Se servir de l'aide vba excel sur Dir et Kill

A+

 

[matheo80]

Re : Remplacement de fichier lors de l'enregistrement

Je n'arrive toujours pas à effectuer mes suppressions avec ta formule. Je joins mon code de départ.

Private Sub CommandButton2_Click()
AIR = Cells(1, 1)
jour = Cells(2, 1)
mois = Cells(3, 1)
annee = Cells(4, 1)
zone = Cells(5, 1)

'ici tu met le chemin d acces ou tu veux le sauvegarder
ActiveWorkbook.Saved = False
    ActiveWorkbook.SaveAs Filename:= _
        "Q:\ACE_PICARDIE\QUALITE\PPP CDR\Sauvegardes incidents\" & "AIR NORD" & " _ " & jour & "-" & mois & "-" & annee & " _ Incidents AISNE Nord", FileFormat:=xlOpenXMLWorkbookMacroEnabled, _
        Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False
        ActiveWorkbook.SaveAs Filename:= _
        "Q:\ACE_PICARDIE\QUALITE\PPP CDR\" & "AIR NORD" & " - " & jour & "-" & mois & "-" & annee & " _ Incidents AISNE Nord", FileFormat:=xlOpenXMLWorkbookMacroEnabled, _
        Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False
ActiveWorkbook.Close
End Sub

Merci d'avance.