[EXCEL VBA] Fermeture classeur Fermé

Question

Bonsoir,

Je réalise une macro effectuant des modifications sur un classeur en fonction d'un autre classeur ouvert. A la fin de la macro, je désire fermer l'un des deux classeurs, et supprimer le fichier correspondant à ce classeur. Pour celà j'utilise ce code :

With Application.FileDialog(msoFileDialogOpen)
    .Title = "Commentçamarche"
    .InitialFileName = ActiveWorkbook.Path
    .AllowMultiSelect = False
    .Filters.Clear
    .Filters.Add "Excel Files", "*.xlsm"
    .Show
    old_file = .SelectedItems(1)
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set filetodelete = fs.GetFile(old_file)
End With

Workbooks.Open "" & old_file & ""
.....
.....
.....
.....
Workbooks(recent_file).Save
Workbooks(old_file).Close
filetodelete.Delete <======== PAS LA PERMISSION

Or il me renvoie que je n'ai pas la permission de le faire, car le fichier est toujours "utilisé". Pourquoi la commande Workbooks.close ne libère pas le fichier ? Comment faire sans fermer totalement l'application (Application.quit) ?

Merci d'avance 



Configuration: Office 2010 / Office XP/Vista / Config. Hardware = Correcte :)

Akiko Nyuki · Answer

As-tu essayé un DoEvent avant le delete ? 

Ne sais t-on jamais... cela permettra peut être de librérer le lock sur le fichier (DoEvent permet de rendre la main au système)

++

LeDénicheur · Answer

Comment on peut utiliser cette opérateur ? Je trouve pas d'explications claires sur google <.<....

pijaku · Answer

Bonjour,
Sans savoir comment est déclaré filetodelete, et puisque tu l'affectes par un Set machin = truc (Set filetodelete = fs.GetFile(old_file)), essaye peut être de remplacer :
filetodelete.Deletepar : 
Set filetodelete = Nothing  
ça devrait libérer...

LeDénicheur · Answer

Il est définit ainsi
Set fs = CreateObject("Scripting.FileSystemObject") 
Set filetodelete = fs.GetFile(old_file) 


"filetodelete = nothing " libère la variable, mais le fichier est toujours occupé, car même à la main, je ne peux pas le supprimer...il faut avoir attendu que je ferme totalement l'application pour pouvoir le supprimer...

Une autre solution ?

eriiic · Answer

Bonjour, 
 
Une autre solution ?  
utiliser kill, plus simple 

Sub test() 
    chemin = "D:	mp\" 
    fichier = "Classeur2.xls" 
    Workbooks(fichier).Close SaveChanges:=False 
    Kill (chemin & fichier) 
End Sub
eric

LeDénicheur · Answer

Même résultat, permission refusée (Erreur 70)
Le programme considère toujours que le fichier est occupé, même après un Workbook.close

borntobealive · Answer

Je ne sais pas si tu as trouvé une solution et si tu t'interesse toujours à la réponse mais si tu as utilisé le presse papier pour copier tes données ( genre blabla.copy puis blala.paste)
alors les liens entre les données de B et A bloquent toujours la fermeture de B 

Montre-nous comment tu as fais tes copie dans un premier temps ça nous fera avancer