Kill avec nom de fichier variable

[Yvon petit scarabbée du b]

Bonsoir à tous,

Mon ptit souci, je souhaite effacer un fichier source après l'avoir renommer, le nom de fichier est récupéré dans une cellule.

Pas de problème pour l'enregistrement, la ou ça coince je n'arrive pas à détruire le fichier initial, en indiquant un nom variable dans le code, le nom étant récupéré via une cellule.

Par avance merci de votre aide

Private Sub CommandButton1_Click()

'Sauvegarde du fichier initial sous un autre nom '

ChDir "C:\Mes documents\Essai\"
ActiveWorkbook.SaveAs Filename:= _
"C" & " " & Sheets(1).Range("B6") & "XLS", FileFormat:=xlNormal _
, ReadOnlyRecommended:=False, _
CreateBackup:=False

'Destruction du fichier initial'

ChDir " "C:\Mes documents\Essai\"
Kill Filename:=Sheets(1).Range("B4") & "XLS"

End Sub

a++
Yvon

 

[excalibur]

Re : Kill avec nom de fichier variable

bonjour yvon le forum essai comme cela un exemple
Option Explicit
Sub Macro2()
Kill ("D:\excel\essai\") & [b4].Value & ".xls"
End Sub'salutations

 

[Eric 45]

Re : Kill avec nom de fichier variable

Bonjour à tous
Bonjour Yvon, Escalibur

Avec :
activeworkbook.fullname tu récupère le chemin du fichier ainsi que son nom,
soit tu fais :
nomfic=activeworkbook.fullname et tu détruit par :
kill (nomfic), (je n'ai pas essayé mais c'est l'idée, je n'ai pas de fichier à détruire...)
soit : B4 = nomfic et tu récupères
Kill [b4].Value ( à vérifier également)

Cordialement

 

[Yvon petit scarabbée du b]

Re : Kill avec nom de fichier variable

Bonjour, Excalibur, Eric45, Le Forum

Merci de votre aide à tous les deux.

Aucune de vos deux solutions ne fonctionnent, apriori d'après ce que je commence à comprendre la fonction Kill a besoin d'un nom de fichier en texte et non pas en valeur, avez vous une idée pour contourner ce problème.

Par avance merci de votre aide

a++
Yvon

 

[Eric 45]

Re : Kill avec nom de fichier variable

Re bonjour

Moi cela fonctionne :

Sub sup()
nomfic = ActiveWorkbook.FullName

ActiveWorkbook.SaveAs Filename:="C:\Classeur2.xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False

Kill nomfic
End Sub

A+

 

[Yvon petit scarabbée du b]

Re : Kill avec nom de fichier variable

Re bonjour

Moi cela fonctionne :

Sub sup()
nomfic = ActiveWorkbook.FullName

ActiveWorkbook.SaveAs Filename:="C:\Classeur2.xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False

Kill nomfic
End Sub

A+

Re bonjour Eric 45,

Je te remercie de ton aide et surtout d'avoir insisté, effectivement cela marche, je n'avais pas compris que le code "nomfic = ActiveWorkbook.FullName", devait être situé avant de renommer

Bon week end
a++
Yvon