Une image pour supprimer un fichier ouvert

Re : Une image pour supprimer un fichier ouvert

Apres de longues recherche je trouve ce bout de code à adapter qui détrui un fichier


Kill "Q😀ATAMAGAS_BTFINANCESWeekly adminweekly.xls"



Mais ne fonctionne pas avec le fichier ouvert
Avez-vous une idée à me donner

Re : Une image pour supprimer un fichier ouvert

Salut La Vouivre,

Avec Windows tu ne peux pas supprimer un fichier qui est ouvert 😕

Comment veux tu faire ça en VBA 🙄

C'est tout bonnement impossible, il faut d'abord fermer ton fichier, puis le supprimer ...

A+

Re : Une image pour supprimer un fichier ouvert

Bonsoir Bruno M45
Je pense associer à l’image une macro qui se déclencherais los de sa suppression.
J’ai essayer avec l’enregistreur de macro de fermer le fichier puis de le suprimer ,mais je ne sais pas associer les lignes de code

Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 24/03/2009 par La Vouivre
'
Windows("a sup.xls").Activate
ActiveWindow.Close
Kill "C:\Documents and Settings\La Vouivre\Mes documents\a sup.xls"
End Sub



Cette macro ne fait que fermer le fichier en me demandant si je veux enregistrer ou non les modifications

Comment fermer le fichier sans passer par la boite de dialogue pour enregistrer et associer la suppression du fichier

Re : Une image pour supprimer un fichier ouvert

La macro fonctionne si on la commande d’un autre fichier
Comment la commander depuis le fichier ouvert et l’associer a la suppression de l’image

Re : Une image pour supprimer un fichier ouvert

Comment je pourrais associer ces lignes de code

Sub Macro1()
‘pour supprimer l’image
ActiveSheet.Shapes("Picture 1").Select
Selection.Delete

‘pour fermer le fichier
Windows("a sup.xls").Activate
ActiveWindow.Close

‘pour supprimer le fichier
Kill "C:\Documents and Settings\La Vouivre\Mes documents\a sup.xls"
End Sub

Re : Une image pour supprimer un fichier ouvert

J’arrive à ce code qui ferme le fichier sans l’ebregistrer


Sub Macro11()
'pour fermer sans enregistrer le fichier
ActiveSheet.Shapes("Picture 1").Select
ThisWorkbook.Close SaveChanges:=False

End Sub