supprimer fichier excel avec macro Résolu

Question

Bonjour,

Je suis devenu un inconditionnel du forum comment ça marche? En effet j'ai déjà fait un post ici qui a été resolu. Je dis un merci a tout le forum. Le but c'est que j'ai une macro qui me crèè , copie et sauvegarde mon fichier excel courant dans un repertoire différent et cela toutes les heures. Ce problème a été resolu maintenant j'ai envie de créer une macro qui supprimera automatiquement les fichiers sauvegarder la veille. Cette suppression doit se faire qu'une seule fois dans la journée;  J'ai pu trouver une macro qui fonctionne et me supprime le contenu du dossier, car après la sauvegarde du (des) fichier(s) il va falloir faire en sorte que les fichiers ayant quelques jours soient automatiquement détruits.  Mais la macro de destruction doit se déclencher une seule fois dans la journée. voic le code ma macro:



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

Elle supprime tout le contenu du dossier mais je ne sait pas comment faire pour l'obliger a se démarrer automatiquement a l'ouverture du fichier excel et une seule fois dans la journée et où la mettre exactement. 

Merci pour toutes les bonnes volontés

qmike · Answer

bonjour
Dans ce cas, utilise le planificateur de tâches windows
bonne journée

jah_haile_selassie · Answer

Salut qmike,
oui mais le planificateur de tâche ne spécifie pas la macro mais tout le programme qui doit s'exécuter et en plus comment faire si par exemple je veux  supprimer uniquement les fichiers sauvegardés de plus de 3 jours?  Et a vrai dire je ne sait pas trop comment le faire avec...

Utilisateur anonyme · Answer

Bonjour,
pour démarrer à l'ouverture du classeur:
aller dans la proc : Private Sub Workbook_Open() qui se trouve dans 'thisworkbook' (dans la partie visual basic)

le problème elle se lancera à chaque ouverture du classeur. S'il est ouvert plusieurs fois par jour , rajouter du code pour écrire dans une cellule (la date du jour par exemple) quand la proc se lance. Dans cette proc vérifier que la date du jour existe avant de lancer les actions .

Si je n'ai pas été assez clair

jah_haile_selassie · Answer

Bpnjour Priouman;

Oui j'ai compris la methode; merci en tout et je l'ai deja testé mais le problème c'est que je ne sais pas comment écrire cela-----> "rajouter du code pour écrire dans une cellule (la date du jour par exemple) ".

 J'ai pu faire que ma macro se demarre automatiquement , mais elle me supprime tout le contenu du dossier alors que je veux qu'elle supprime en fonction de la date.

Un exemple vaut mieux que mille discours. Stp , je suis un vrai débutant en excel et VBA. C'est pour mon stage que je taff dessus depuis deux semaines.

Merci d'avance a toutes les bonnes volontés

pijaku · Answer

Salut, Tout au début de ta macro dans : Private Sub Workbook_Open() place ce petit test : Private Sub Workbook_Open() If Activesheet.Range("A1") = "" then <---- Si la cellule A1 de ta feuille active est vide Alors -----> Activesheet.Range("A1") = CDate(Date) <----- inscrit la date du jour dans la cellule A1 de ta feuille active ---> else <----- Sinon -----> If Activesheet.Range("A1") = CDate(Date) then <---- Si la cellule A1 de ta feuille active est égale à la date du jour Alors -----> exit sub <---- cette macro ne s'exécutera pas -----> end if end if

jah_haile_selassie · Answer

Salut,
Je l'ai fait mais rien ne fonctionne :(  j'ai fait ceci dans mon workbook:


Private Sub Workbook_Open()
  
 If ActiveSheet.Range("A1") = "" Then
ActiveSheet.Range("A1") = CDate(Date)
Else
If ActiveSheet.Range("A1") = CDate(Date) Then
Exit Sub
End If
End If

    Call auto_open
    Call creation

End Sub


Call auto_open c'est une procedure que j'ai dans un module pour me supprimer mes fichiers sauvegarder la veille et creation idem mais lui il copie et sauvegarde mes fichiers. Je n'ai aucune erreur de compilation mais il m'efface tjrs tout le contenu du dossier.



Voici le code de la procédure création qui crèè la copie et sauvegarde ailleurs, ce code marche bien:

Sub creation()


Dim Chemin As String
Dim fname As String

debut:
    Start = Timer
    intervalle = 60

Do While Timer < Start + intervalle
        DoEvents    ' Donne le contrôle à d'autres processus.
Loop

    Chemin = "\Ds-srv-hector\commun\DPAPH\Service Tarification\Sauvegarde temps réel\"

fname = Chemin & "test- " & Day(Date) & "-" & Month(Date) & "-" & Year(Date) & " - " & Hour(Time) & "H" & Minute(Time) & "m" & Second(Time) & "s" & ".xls"


ActiveWorkbook.SaveCopyAs Filename:=fname


GoTo debut

End Sub

et auto_open qui supprime voici son code:

Sub auto_open()

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

Peut-être que je fait mal quelque chose mais je ne sait pas comment ça marche. Merci encore

Utilisateur anonyme · Answer

On vérifie si la date du jour est inscrite dans A1 pour savoir si tu as déjà ouvert ton fichier et donc lancer tes effacement, si la date existe, il ne faut pas lancer les effacements. tu mis l'appel à tes sub d'effacement après le test, elles seront donc toujours lancées. Il faut les mettre dans le test si A1 est vide (donc si c'est la première ouverture du classeur, puisque dès la première ouverture on écrit la date en A1 pour justement ne plus lancer l'effacement)



Private Sub Workbook_Open()

If ActiveSheet.Range("A1") <> CDate(Date) Then  'si  A1 différent de  la date du jour (vide ou date de la veille...)
ActiveSheet.Range("A1") = CDate(Date)                 'on écrit la date du jour
Call auto_open                                                        ' on lance l'effacement
Call creation 
End If                                        ' Il n'y a pas de sinon puisque si A1 = date du jour on ne fait rien

End Sub

Bon courage

jah_haile_selassie · Answer

salut; 
Je tiens tout d'abords a te remercier du temps consacré. J'avance a tout petit pas, et je comprends des choses c'est déjà ça bon bref. la macro m'écrit la date comme voulue. J'arrive a lancer mon effacement, puis j'arrive a lancer ma création. Jusque là tout va bien. Puis je referme mon dossier ou fichier excel et je le réouvre. et voilà que la macro d'éffacement se lance et éfface tout le contenu du dossier alors qu'elle ne devait pas se lancer... elle doit se lancer qu'une seule fois dans la journée et en plus ma macro création ne se lance plus! Alors qu'elle devrait se lancer. 

Voici la code que j'ai dans le workbook:

Private Sub Workbook_Open()
If ActiveSheet.Range("A1") <> CDate(Date) Then 'si A1 différent de la date du jour (vide ou date de la veille...)
ActiveSheet.Range("A1") = CDate(Date) 'on écrit la date du jour
Call auto_open ' on lance l'effacement
Call creation
End If ' Il n'y a pas de sinon puisque si A1 = date du jour on ne fait rien
End Sub.

Je ne rien modifier dans auto_open et creation. Normalement la création doit se faire même après effacement mais la rien. et l'éffacement doit se faire qu'une fois par jour.

Help me please :(

jah_haile_selassie · Answer

La solution pour que ma macro de création se lance encore je l'ai appelé après le End If dans workbook. Et en plus ma macro de suppression ne supprime plus les fichiers après une première ouverture.  
C'est deja un très bon départ! Mais pour des raisons d'espace ou technique n'est-il pas possible de faire une comparaison avec la date du système(date du jour) sans pour autant l'écrire sur une cellule?

Ensuite permettre la suppression uniquement de fichiers sauvegarder il y'a par exemple 3 jours de cela?
J'approche du but grace a vous merci encore pour votre aide

Utilisateur anonyme · Answer

Une question bête: as tu enregistré ton classeur avant de fermer. Il ne faudrait pas que ce soit l'ancienne version de ton programme qui tourne!

Par ailleurs si ta proc de création doit se lancer à chaque ouverture, sort son appel du test si...<>...

Es tu sur que dans ta programmation il n'y a pas un autre appel à ta proc de suppression ?

jah_haile_selassie · Answer

J'ai vu cela; j'ai compris qu'il fallait que j'appelle ma procedure de création après le End If de workbook, et l'effacement ne se repete plus! tou va bien. Mais je voulais savoir s'il est possible de passé par un autre moyen que d'écrire la date sur une cellule? on peut pas juste comparer avec la date du système mais sans écrire?
C'est juste un détail que je veux savoir si c'est possible sans écrire 

Merci a toi encore! vraiment merci pour l'aide.

Utilisateur anonyme · Answer

On n'est pas obligé d'écrire en A1, mais on est bien obligé d'écrire quelque part comme quoi on a déjà fait la suppression du jour (pour ne pas la refaire)!
on pourrait créer un fichier texte ayant pour nom la date , si le fait d'écrire dans une cellule te gênes ?

jah_haile_selassie · Answer

oui ce sera mieux ainsi! Merci encore ? Stp envoi moi un exemple. Oui écrire dans fichier texte ailleurs mais pas sur le classuer.
Merci

jah_haile_selassie · Answer

Voici le code du fichier texte que je crèèe:

Sub creerFichierTexte()

Dim fichierTexte As String
fichierTexte = Day(Date) & "-" & Month(Date) & "-" & Year(Date) & " - " & Hour(Time) & "H" & Minute(Time) & "m" & Second(Time) & "s" & ".txt"

End Sub

Comment l'intégrer dans ma condition?

pijaku · Answer

Ne dispose tu vraiment pas d'une cellule "libre"? même feuille 18 cellule ZE 32156 ?

pijaku · Answer

peut être comme cela :

Dim fichiertexte as string

fichiertexte = Dir "CheminComplet\" & Day(Date) & "-" & Month(Date) & "-" & Year(Date) & " - " & Hour(Time) & "H" & Minute(Time) & "m" & Second(Time) & "s" & ".txt"

if fichiertexte = "" then 
   
fichierTexte = Day(Date) & "-" & Month(Date) & "-" & Year(Date) & " - " & Hour(Time) & "H" & Minute(Time) & "m" & Second(Time) & "s" & ".txt"
Call auto_open
Call creation 

else

Call creation 

end if

jah_haile_selassie · Answer

Merci Mille merci!!!
ça marche!!! je vais célébré ça!  Mais je m'aperçoit que j'ai tjrs un souci. Est-ce que je ne peut pas supprimer un certaine nombre de fichier en fonction de la date? Par exemple supprimer tous les fichiers qui ont été enregistrés il y'a de cela 2 ou 3 jours? Parceque la dans mon état du code je supprime tout les fichier contenu dans le dossier.
Point avancé: macro effacement se lance q'une fois ça c'est bien mais comment supprimer juste les fichiers d'il y'a un mois par exemple?

Salut a toi et bonne fin de soirée. Merci encore

jah_haile_selassie · Answer

Voici le code de ma workbook:

Private Sub Workbook_Open()


  Dim fichiertexte As String
  Dim Chemin As String
  Chemin = Dir("\Ds-srv-hector\commun\DPAPH\Service Tarification\Sauvegarde temps réel\")

  fichiertexte = Chemin & Day(Date) & "-" & Month(Date) & "-" & Year(Date) & " - " & Hour(Time) & "H" & Minute(Time) & "m" & Second(Time) & "s" & ".txt"

 If fichiertexte = "" Then

 fichiertexte = Day(Date) & "-" & Month(Date) & "-" & Year(Date) & " - " & Hour(Time) & "H" & Minute(Time) & "m" & Second(Time) & "s" & ".txt"
  Call auto_open
  Call creation

Else

 Call creation

End If
  
  

End Sub

pijaku · Answer

c'est faisable, cependant cela dépends du nom des fichiers sauvegardés...

Utilisateur anonyme · Answer

De retour.

Ca avance!

Je doute que ça fonctionne comme tu veux :

1)Je ne vois pas quand le fichier (pour indiquer que l'effacement est effectué) est crée
2)Le nom du fichier comportant les minutes et secondes de la date d'enregistrement du fichier, 15 secondes plus tard si on ouvre ton classeur il ne trouvera pas l'existence du fameux fichier et considérant que c'est la première ouverture de la journée et donc lancera de nouveau l'effacement.

de plus
fichiertexte = Chemin & Day(Date) & "-" & Month(Date) & "-" & Year(Date) & " - " & Hour(Time) & "H" & Minute(Time) & "m" & Second(Time) & "s" & ".txt"

If fichiertexte = "" Then
fichiertexte = Day(Date) & "-" & Month(Date) & "-" & Year(Date) & " - " & Hour(Time) & "H" & Minute(Time) & "m" & Second(Time) & "s" & ".txt"
Call auto_open
Call creation 
 

Tu initialises ta variable 'fichiertexte' , et dans la foulée tu testes si elle ext vide !!
les instructions de ton if ne seront jamais exécutées 

Bon courage et à bientôt

pijaku · Answer

autant pour moi... Il faut effectivement tester d'abord l'existence du fichier texte :
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 

peut être?

Utilisateur anonyme · Answer

Mon post n'était pas pour toi pijaku, ton code faisait bien le test. Par contre la reprise de jah_haile_selassie est erronée.

Mais bon, il semble satisfait ...

jah_haile_selassie · Answer

Bonjour Priouman;

C'est vrai que je suis allé trop vite :(  en effet mon effacement ne se lance plus!  comment faire le test que le fichier texte est créé? et ce fichier lorsque j'indique l'emplacement il n'y est pas! 
Merci encore d'éclairer ma lanterne.

Bonne journée a vous

jah_haile_selassie · Answer

En plus je pense que j'aurais tjrs le même problème! Parceque mon but n'est pas celui d'effacer tout le contenu du dossier mais une partie du dossier. Exemple supprimer seulement des fichiers contenus dans le dossier qui ont été créé et sauvegarde il y'a par exemple 2 ou3 jours de cela... Et la je bloque.

pijaku · Answer

Bonjour,
Pour le test voit mon post n°21.
Pour le choix des fichiers à effacer, donne nous le nom de sauvegarde de tes fichiers.

jah_haile_selassie · Answer

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 devrait 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?

Le nom de sauvegarde de mes fichiers sont : test- 9-4-2009 - 10H53m16s.xls Il s'agit juste de la date courante du nom du fichier et de l'heure courante

Je précise que je n'ai aucune erreur de compilation sur ma workbook_open.

Merci

pijaku · Answer

Ton fichier texte ne devrait pas tenir compte de l'heure et des minutes :
fichierTexte = Day(Date) & "-" & Month(Date) & "-" & Year(Date) & ".txt" 
Sinon effectivement le test ne trouve pas le fichier..... car il n'existe pas.
Ensuite pour le choix de l'effacement c'est beaucoup plus difficile. Il faudrait peut être passer par un userform.

jah_haile_selassie · Answer

Oui justement mais je ne comprends pas pourquoi le fichier n'existe pas? Dois-je l'initialiser avant le if du test?
Dois-je faire ceci ? :--> ActiveWorkbook.Save Filename:=fichierTexte.  et Où ?

pijaku · Answer

Non si tu créé un fichier à l'instant T en le nommant : 9-4-2009 11h20m54s.txt. Quand tu va réouvrir ton fichier excel 5 sec plus tard, il va cherche 9-4-2009 11h20m59s.txt et ne le trouvera pas!!! 
Pour la suppression de tes fichiers il serait intéressant de les enregistrer d'abord dans un sous dossier à la date du jour. essaie d'ajouter à ta sub creation : mkdir "\Ds-srv-hector\commun\DPAPH\Service Tarification\Sauvegarde temps réel\" & CDate(date)
mkdir créé un nouveau dossier...
ensuite à ta macro auto_open tu ajoutes quelque chose comme ce que je mets en gras :
Dim Fic As String
Dim jour As String
jour = InputBox("saisir la date à laquelle vous souhaitez supprimer les fichiers", "date")
Fic = Dir("\Ds-srv-hector\commun\DPAPH\Service Tarification\Sauvegarde temps réel\" & jour)
Do While Fic <> ""
Kill "\Ds-srv-hector\commun\DPAPH\Service Tarification\Sauvegarde temps réel\" & Fic
Fic = Dir
Loop
Je ne suis pas sur de moi, et ne sais pas si ça fonctionne mais c'est une piste.

Utilisateur anonyme · Answer

Pour la partie lancée à l'ouverture du classeur, voila qui marchera mieux (enfin je crois!)


Private Sub Workbook_Open()

Chemin = "c:\"          ' mettre le chemin ou est le fichier à tester
NomFic = CLng(Date) & ".txt"    '  nom du fichier CLng transforme la date en numérique Long ça évite les manipulation de chaine

If Dir(Chemin & NomFic) = "" Then   'si le fichier de la date du jour n'existe pas

Set fs = CreateObject("Scripting.FileSystemObject")   'on crée le fichier date du jour
    Set a = fs.CreateTextFile(Chemin & NomFic, True)
    a.Close

Call auto_open ' on lance l'effacement

End If     ' Il n'y a pas de sinon puisque si le fichier existe on ne fait rien

Call creation 'on appelle l'autre proc

End Sub 

A+

jah_haile_selassie · Answer

Vraiment désolé encore mais j'ai une question toute bête ; en faite dans ma procedure creation j'ai une boucle et je ne sais pas où mettre la création du dossier c'est-a-dire--> MkDir "\Ds-srv-hector\commun\DPAPH\Service Tarification\Sauvegarde temps réel\" & CDate(Date). 
je le met où? avant ou dant la boucle?

jah_haile_selassie · Answer

comment faire pour que l'efacement se lance une seule fois? étant donné que a l'heure du système ma macro se lance tjrs? alors que je veu juste qu'elle efface une fois et en plus je ne trouve pas mon fichier texte créé. :(

J'ai tenté de créer un dossier de sauvegarde avec mkdir comme pijaku me l'as conseillé mais rien a faire

jah_haile_selassie · Answer

Private Sub Workbook_Open()
Dim Chemin As String
Dim fichierTexte As String
Chemin = "\Ds-srv-hector\commun\DPAPH\Service Tarification\Sauvegarde temps réel\"

    
    


NomFic = Day(Date) & "-" & Month(Date) & "-" & Year(Date) & ".txt"
If Dir(Chemin & NomFic) = "" Then 'si le fichier de la date du jour n'existe pas


Call auto_open ' on lance l'effacement

Set fs = CreateObject("Scripting.FileSystemObject") 'on crée le fichier date du jour
Set a = fs.CreateTextFile(Chemin & NomFic, True)
a.Close

Call creation 'on appelle l'autre proc

End If ' Il n'y a pas de sinon puisque si le fichier existe on ne fait rien

Call creation 'on appelle l'autre proc
End Sub

Voici ce que j'ai fait et j'arrive a lancer une seule fois mon effacement et créer mon fichier texte nommé avec la date courante Trop content!!! en tout cas comment ça marche et vous les mecs c'est de la bombe!!!!

Bon j'ai toujours le problème de choisir par exemple uniquement les fichiers copiés et sauvégardés il y'a a peu près 2 ou 3 jours? Aidez moi

pijaku · Answer

pour "choisir" les fichiers à effacer, tu ajoutes une inputbox dans ta sub "effacement". Du style :
dim jour as string
jour = inputbox("saisir la date des fichiers à effacer. Attention au format!!!","effacer")

et après ça tu efface le contenu du sous-dossier dont le nom correspond à la date que tu as saisi

pijaku · Answer

Bonjour,
Non à ta question. La saisie de date est inévitable car tu veux supprimer les fichiers enregistrés il y a 3 jours ou 2 jours, ça n'est pas fixe. C'est pourquoi initialement, je te proposais de créer un sous-dossier à la date du jour (au format 10-4-2009 si tu veux), pour pouvoir supprimer simplement son contenu quand tu le souhaites (format 10-4-2009 pour répondre à ta 2ème interrogation).

pijaku · Answer

Dur dur!!!
Effectivement : MkDir chemin introuvable.... Après recherches... voilà pourquoi :
c'est le format de CDate(Date) qui ne convient pas!!! en effet, il ne veux pas créer un sous-dossier nommé 10/04/2009, les slash le gènent... Alors la solution est :

Dim jour As String
jour = Format(Date, "dd_mm_yyyy")
MkDir "Ton chemin complet\" & jour

pijaku · Answer

je te propose de refaire le code en entier pour que cela fonctionne. Peux tu me remettre tout ton code ici.
1- ton workbook_open
2- ta sub creation
3- ta sub auto_open (effacement)
et je vais te bricoler un truc qui fonctionne.

pijaku · Answer

Pas la peine de remettre le code... Il y est déjà 3 ou 4 fois...
Essaye ceci :

Sub creation()
Dim Chemin As String
Dim fname As String
Dim jour As String
jour = Format(Date, "dd_mm_yyyy")
MkDir "\Ds-srv-hector\commun\DPAPH\Service Tarification\Sauvegarde temps réel\" & jour
debut:
Start = Timer
intervalle = 60
Do While Timer < Start + intervalle
DoEvents ' Donne le contrôle à d'autres processus.
Loop
Chemin = "\Ds-srv-hector\commun\DPAPH\Service Tarification\Sauvegarde temps réel\"
fname = Chemin & "test- " & Day(Date) & "-" & Month(Date) & "-" & Year(Date) & " - " & Hour(Time) & "H" & Minute(Time) & "m" & Second(Time) & "s" & ".xls"
ActiveWorkbook.SaveCopyAs FileName:=fname
GoTo debut
End Sub

Sub auto_open()
Dim var, Fic As String
var = InputBox("Saisir la date à laquelle vous souhaitez effacer les fichiers. Attention bien saisir au format dd_mm_yyyy!!", "date d'effacement")
Fic = Dir("\Ds-srv-hector\commun\DPAPH\Service Tarification\Sauvegarde temps réel\" & var)
If Fic <> "" Then
Kill "\Ds-srv-hector\commun\DPAPH\Service Tarification\Sauvegarde temps réel\" & Fic
Else
MsgBox ("le sous-dossier que vous souhaitez effacer est vide. Veuillez vérifier.")
End If
End Sub

Private Sub Workbook_Open()
Dim Chemin As String
Dim fichierTexte As String
Chemin = "\Ds-srv-hector\commun\DPAPH\Service Tarification\Sauvegarde temps réel\"
NomFic = Day(Date) & "-" & Month(Date) & "-" & Year(Date) & ".txt"
If Dir(Chemin & NomFic) = "" Then 'si le fichier de la date du jour n'existe pas
Call auto_open ' on lance l'effacement
Set fs = CreateObject("Scripting.FileSystemObject") 'on crée le fichier date du jour
Set a = fs.CreateTextFile(Chemin & NomFic, True)
a.Close
Call creation 'on appelle l'autre proc
End If ' Il n'y a pas de sinon puisque si le fichier existe on ne fait rien
Call creation 'on appelle l'autre proc
End Sub

jah_haile_selassie · Answer

Et normalement quand ça crèèe le dossier ça doit créé aussi les fichiers dedans non? Mais non ça ne me crèè rien dedans.

pijaku · Answer

Fectivement!!!
Regardes ta sub creation :
tu créés un répertoire : MkDir "\Ds-srv-hector\commun\DPAPH\Service Tarification\Sauvegarde temps réel\" & jour 
et tu enregistres sous : 
Chemin = "\Ds-srv-hector\commun\DPAPH\Service Tarification\Sauvegarde temps réel\"
fname = Chemin & "test- " & Day(Date) & "-" & Month(Date) & "-" & Year(Date) & " - " & Hour(Time) & "H" & Minute(Time) & "m" & Second(Time) & "s" & ".xls"
ActiveWorkbook.SaveCopyAs FileName:=fname
Il convient donc d'ajouter au Chemin : & jour

pijaku · Answer

Peut être que pour plus de lisibilité, on pourrait ouvrir un nouveau topic non? Celui-ci commence à être sacrément brouillon........

jah_haile_selassie · Answer

Oui je crois aussi que ce sera mieux pour les autres users aussi de changer... Et comment je note celui-ci? resolu ou pas? 
J'ai rajouté jour a chemin il me crèè des fichier nommé ainsi---->10_04_2009test- 10-4-2009 - 14H33m27s.xls. Tu remarque que la date est ajouter en tout debut de nom du fichier . Donc j'ai décidé de ne pas mettre jour a chemin et la j'ai la même erreur sur mkdir(erreur de chemin non trouvé). En plus j'arrive pas a créer mes fichiers excel dans mon sous dossier nommé avec la date du jour.

pijaku · Answer

Recréé un post (celui-ci est "résolu" depuis longtemps). Tu l'appelles "macro excel création et effacement auto" et on s'y rejoind tout de suite.

jah_haile_selassie · Answer

ok

Supprimer fichier excel avec macro

44 réponses

Discussions similaires

Newsletters