nouveau problème sur un kill

[lagodille]

voilà j'ai :
Dim j As String, x As String
Sub effac()

j = "C:\"
x = Dir(j & "Sauvegarde*" & ".xls")
If x <> "" Then Kill j & x

ActiveWorkbook.SaveAs "C:\Sauvegarde " & Format(Now, "dd-mm-yy hhnnss") & ".xls"

End Sub

seulement excel m'empêche de supprimer l'ancien fichier.
Je suppose que c'est parce que l'ancien fichier est toujours ouvert au moment du supp.
comment faire pour que ca soit réalisable ?
merci

 

[mutzik]

Re : nouveau problème sur un kill

Bonjour Lagodille

1. tu sauvegardes
2. tu ajoutes : application.displayalerts = false (tu remets à true après les kill)
3. tu kill :
j = "C:\"
x = Dir(j & "Sauvegarde*.xls")
If x <> "" Then Kill j & x

 

[Cousinhub]

Re : nouveau problème sur un kill

Bonjour,
pour pouvoir le supprimer, il faut d'abord le fermer :

If x <> "" Then
Workbooks(x).Close False
Kill j & x
End If

le False après Close signifie qu'il n'y a pas besoin d'enregistrer les changements (il va être supprimé...)

 

[lagodille]

Re : nouveau problème sur un kill

j'ai essayé ta solution mais ca ne marche qu'une fois et si on ouvre à nouveau le fichier puis on le ferme, il butte sur le meme pb "le kill"

 

[Cousinhub]

Re : nouveau problème sur un kill

Bonsoir,
😕

je ne comprends pas trop :
Il est ouvert ou pas le fichier?
s'il est ouvert, on le ferme, puis on le supprime
si non, on peut rajouter cette ligne juste avant, et l'autre juste après

If x <> "" Then
[COLOR="Red"]On Error Resume Next[/COLOR]
Workbooks(x).Close False
[COLOR="Red"]On Error GoTo 0[/COLOR]
Kill j & x
End If

 

[lagodille]

Re : nouveau problème sur un kill

dur dur à la comprenaison que je suis
maintenant il me sauvegarde 3 fichiers
mon fichier fait 50K comment puis je le faire parvenir ? pour que tu vois ce que j'ai fait
merci

 

[mutzik]

Re : nouveau problème sur un kill

re,

zip le fichier, ça devrait passer, ou enleves des données

nb : t'as essayé nos différentes version ...
nb 2 : plus basiquement, cela te sert à quoi d'effacer les autres fichiers de sauvegarde ? il n'y aurait pas un moyen plus simple (différent) pour solutionner ton prob

 

[lagodille]

Re : nouveau problème sur un kill

pour MUTZIK
bhbh m'a demandé le fichier par mail mais depuis pas de nouvelles . apparement ce n'est pas simple.
Pourquoi ne pas garder tous les fichiers enregistrés eh bien tout simplement que le fichier fait 8Mo alors tu imagines si je garde tout !
Si tu veux te casser les dents dessus je peux t'envoyer le fichier de 50Ko par mail
cdlt

 

[Cousinhub]

Re : nouveau problème sur un kill

Bonsoir,
sans le fichier, peux-tu copier ici TOUT le code que tu utilises?

 

[Compte Supprimé 979]

Re : nouveau problème sur un kill

Bonsoir tout le monde,

Je ne comprends pas bien ou est le problème 😕

Si tu fais :

Dim VPath As String, VFic As String 
Sub Effac()
VPath = "C:\"
' Récupère l'ancien nom du fichier
VFic = Dir(VPath & "Sauvegarde*.xls")
' Le sauvegarde sous le nouveau nom
ActiveWorkbook.SaveAs "C:\Sauvegarde " & Format(Now, "dd-mm-yy hhnnss") & ".xls"
'  Supprime l'ancien si existe
If VFic <> "" Then Kill VPath & VFic
End Sub

Cela devrait fonctionner comme ça !

Nota :Je préfère mettre des noms explicites aux variables 🙂

A+

 

[mutzik]

Re : nouveau problème sur un kill

Bonjour à tous,

- ma question ne portait pas sur le fait d'effacer ou non le fichier précédent
- elle était du genre: pourquoi ne pas garder nom unique de fichier et enregistrer les évenements dans les lignes mais en ajoutant les dates dans une colonne séparée
- sinon, si le fichier fait 8Mo, est-ce qu'excel est la meilleure solution

Mais sans plus de précisions sur ton fichier ... (bertrand.dallem@jci.com)

 

[lagodille]

Re : nouveau problème sur un kill

bertrand j'ai enfin trouvé la soluce c'était encore tout con mais il fallait le voir

VPath = "C:\"
' Récupère l'ancien nom du fichier
VFic = Dir(VPath & "Sauvegarde" & "*" & ".xls")
' Le sauvegarde sous le nouveau nom
ActiveWorkbook.SaveAs "C:\Sauvegarde " & Format(Now, "dd-mm-yy hhnnss") & ".xls"
' Supprime l'ancien si existe
If VFic <> "" Then Kill VPath & VFic

et la ca fonctionne par contre je t'envoie quand meme mon fichier si tu peux l'optimiser dans le sens ou j'ai l'impression que les Application.ScreenUpdating = False et Application.ScreenUpdating = true sont mal placés
cdlt
pascal

 

[Compte Supprimé 979]

Re : nouveau problème sur un kill

Bonsoir tout le monde,

Alors là, j'ai rien compris au fil de la discussion 😕

Mutzik qui parle d'une question !?
Lagodille qui dit avoir trouvé la soluce alors que je lui avais donné !?

Qu'elle est la différence entre :
VFic = Dir(VPath & "Sauvegarde" & "*" & ".xls")
Et
VFic = Dir(VPath & "Sauvegarde*.xls")
Je ne vois pas bien 🙄

Si vous pouvez m'éclairer, c'est volontier 😎

PS : Ce forum est là pour partager les connaissances et non s'envoyer des MP et répondre aux MP sur le forum (ou alors j'ai vraiment rien compris)

 

[lagodille]

Re : nouveau problème sur un kill

bonsoir
c'est bien la le problème je ne sais pas pourquoi ca fonctionne comme ca et pas autrement . je ne suis qu'un néophite en la matière .
cdlt