Supprimer fichier excel avec une macro automatique
Hors ligneJah_haile_selassie Le 08/04/2009 à 11:04 Profil de Jah_haile_selassie Configuration de Jah_haile_selassie

Refléchi
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. »
Hors ligneSev44 Le 29/09/2010 à 17:13 Profil de Sev44 Configuration de Sev44

Bonsoir , avez vous trouvé la solution à votre problème ?

Je voudrais supprimer mon Classeur2 dans mes documents le 5 octobre 2010.

Vous avez résolu votre problème avec VIC ? Faites-le savoir sur les réseaux sociaux !
Vulgarisation-informatique.com
Cours en informatique & tutoriels