Sub SupprContenu()
Dim Fic As String
Fic = Dir("\\Ds-srv-hector\commun\DPAPH\Service Tarification\Sauvegarde temps réel\") Do While Fic <> "" Kill "\\Ds-srv-hector\commun\DPAPH\Service Tarification\Sauvegarde temps réel\" & Fic Fic = Dir Loop
End Sub
J'ai envie de faire en sorte que ma macro supprime uniquement un certain nombre de fichier sauvegarder mais pas tout le contenu du dossier. J'ai reussi a la faire démarrer automatiquement mais elle me supprime tout le contenu. Par exemple si j'ai envie qu'elle supprime seulement des fichiers copiés et sauvegarder il y'a a peu près 2 à 3 jours de celà comment le faire?
J'ai essayé avec la date du système mais cette methode ne me permet pas de supprimer des fichiers en fonction d'une date mais uniquement en fonction de la date du système et c'est génant. En plus ma macro doit se lancer qu'une fois dans la journée. Est-ce claire?
help me please
Bon bon...J'ai fais ceci:
Private Sub Workbook_Open() Dim Chemin As String Dim fichierTexte As String Chemin = "\\Ds-srv-hector\commun\DPAPH\Service Tarification\Sauvegarde temps réel\"
If Dir(Chemin & Day(Date) & "-" & Month(Date) & "-" & Year(Date) & " - " & Hour(Time) & "H" & Minute(Time) & "m" & Second(Time) & "s" & ".txt", vbNormal) = "" Then fichierTexte = Day(Date) & "-" & Month(Date) & "-" & Year(Date) & " - " & Hour(Time) & "H" & Minute(Time) & "m" & Second(Time) & "s" & ".txt" Call auto_open Call creation End If Call creation
End Sub call creation c'est l'appel de ma procedure de copie et de sauvegarde de fichier excel et call auto_open c'est celle de ma procedure de suppression de fichier. Je fait d'abords un test en créant un fichier texte ayant la date du système comme nom et je verifie s'il existe. ensuite je lance mon effacement et après je lance ma creation. Le blème c'est que mon effacement se lancement plusieurs fois dans la journée alors qu'il devriat se lancer qu'une seule fois! Quelqu'un a t-il une idée qui marche? et dites moi s'il vous plaît comment ça marche? -- « La connaissance s'acquiert par l'expérience, tout le reste n'est que de
l'information. » |