nouveau problème sur un kill

mutzik

XLDnaute Barbatruc

• 11 Février 2008

• #2

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

 

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 11 Février 2008

• #3

Re : nouveau problème sur un kill

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

Code:

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é...)

 

Vote positif 0 Vote négatif

L

lagodille

XLDnaute Occasionnel

• 11 Février 2008

• #4

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"

 

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 11 Février 2008

• #5

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

Code:

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

 

Vote positif 0 Vote négatif

L

lagodille

XLDnaute Occasionnel

• 11 Février 2008

• #6

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

 

Vote positif 0 Vote négatif

mutzik

XLDnaute Barbatruc

• 12 Février 2008

• #7

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

 

Dernière édition: 12 Février 2008

Vote positif 0 Vote négatif

L

lagodille

XLDnaute Occasionnel

• 13 Février 2008

• #8

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

 

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 13 Février 2008

• #9

Re : nouveau problème sur un kill

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

 

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 13 Février 2008

• #10

Re : nouveau problème sur un kill

Bonsoir tout le monde,

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

Si tu fais :

Code:

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+

 

Vote positif 0 Vote négatif

mutzik

XLDnaute Barbatruc

• 14 Février 2008

• #11

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)

 

Vote positif 0 Vote négatif

L

lagodille

XLDnaute Occasionnel

• 14 Février 2008

• #12

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

 

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 14 Février 2008

• #13

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)

 

Vote positif 0 Vote négatif

L

lagodille

XLDnaute Occasionnel

• 14 Février 2008

• #14

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

 

Vote positif 0 Vote négatif