problème sur un kill

[lagodille]

bonjour
voilà j'ai

Dim c As String, x As String
c = "C:\"
x = Dir(c & Sauvegarde & Format(Now, "dd-mm-yy hhnn") & ".xls")
If x <> "" Then Kill c & x

pour supprimer le fichier suivant C:\Sauvegarde 09-02-08 0704.xls

etant donné que la date et l'heure varie je pensais faire

Dim c As String, x As String
c = "C:\"
x = Dir(c & Sauvegarde & "*" & ".xls")
If x <> "" Then Kill c & x

mais ca ne fonctionne pas pourquoi ?
merci

 

[wilfried_42]

Re : problème sur un kill

Bonjour

Dim c As String, x As String
c = "C:\"
x = Dir(c & Sauvegarde & "*" & ".xls")
If x <> "" Then Kill c & x

Sauvegarde fait partie du nom du chemin ? ou est ce le nom du fcihier ?

si c'est un repertoire :

Dim c As String, x As String
c = "C:\Sauvegarde\"
x = Dir(c & "*" & ".xls")
If x <> "" Then Kill c & x

Si c'est une partie du nom de classeur

Dim c As String, x As String
c = "C:\Sauvegarde"
x = Dir(c & "*" & ".xls")
If x <> "" Then Kill c & x

 

[lagodille]

Re : problème sur un kill

j'ai un problème il me dit que le fichier n'exite pas
voilà la conf

Private Sub Workbook_BeforeClose(Cancel As Boolean)
sortie
End Sub

Sub sortie()
Dim c As String, x As String
Application.ScreenUpdating = False
c = "C:\Sauvegarde"
x = Dir(c & "*" & ".xls")
If x <> "" Then Kill c & x
ActiveWorkbook.SaveAs "C:\Sauvegarde " & Format(Now, "dd-mm-yy hhnn") & ".xls"
Application.ScreenUpdating = True
Application.Quit
End Sub

et sous c: j'ai le nom de fichier suivant :Sauvegarde 09-02-08 1914 en xls bien sur

help !!!!!

 

[Compte Supprimé 979]

Re : problème sur un kill

Salut Lagodille,

Pour ta variable "C" Il faut mettre : c = "C:\Sauvegarde\"

Ne pas oublier le dernier anti slash 😉

A+

 

[lagodille]

Re : problème sur un kill

je ne comprends pas sauvegarde n'est pas un répertoire mais fait partie du nom du fichier ! (Sauvegarde 09-02-08 1914.xls)

 

[Cousinhub]

Re : problème sur un kill

bonsoir, remplace ces deux lignes dans ton code :

c = "C:\"
x = Dir(c & "Sauvegarde*" & ".xls")

 

[lagodille]

Re : problème sur un kill

bonjour
un grand merci à bhbh qui à trouvé et solutionné mon problème.
c'était simple mais il fallait y pensé
encore merci et bon dimanche