problème de sauvegarde

[lagodille]

bonjour

voilà j'ai :

QPath = "D:\DOSSIER PPT\SAV\"
' Récupère l'ancien nom du fichier
QFic = Dir(QPath & "S" & "*" & " " & "*" & " " & "*" & " " & "*" & ".xls")
' Le sauvegarde sous le nouveau nom
ActiveWorkbook.SaveAs "D:\DOSSIER PPT\SAV\S" & X & " " & Y & " " & Z & " " & Format(Now, "dd-mm-yy hhnnss") & ".xls"
' Supprime l'ancien si existe
If QFic <> "" Then Kill QPath & QFic
On Error GoTo 0

avec X = nom
Y = autre nom
Z = encore un autre nom

Le problème est qu'il ne kill pas.
j'ai fait l'essai "sans espace" et ca fonctionne bien
alors qu'est ce qui se passe ?
merci

 

[MJ13]

Re : problème de sauvegarde

Bonjour

As tu essayé de déclarer par exemple?

QNom = QPath & QFic
If QNom <> "" Then Kill QNom

 

[MJ13]

Re : problème de sauvegarde

Re bonjour,
J'ai testé ce code qui a l'air de fonctionner

Sub test()
X = "nom"
Y = "autre nom"
Z = "encore un autre nom"

QPath = "C:\Test\"
' Récupère l'ancien nom du fichier
QFic = Dir(QPath & "S" & "*" & " " & "*" & " " & "*" & " " & "*" & ".xls")
' Le sauvegarde sous le nouveau nom
ActiveWorkbook.SaveAs "C:\Test\S" & X & " " & Y & " " & Z & " " & Format(Now, "dd-mm-yy hhnnss") & ".xls"
' Supprime l'ancien si existe
If QFic <> "" Then Kill QPath & QFic
On Error GoTo 0
'
End Sub