Une image pour supprimer un fichier ouvert

[La Vouivre]

Bonsoir les amis exeliens et amie exelliennes
Je recherche par macro à supprimer un fichier ouvert si on supprime une image sur une feuille.
Je m’explique, donc cette image sert de signature, de logo, de marque de fabrique du travail fait sur les tableaux Excel.
Elle peut se situé dans l’entête ou sur la feuille, et si on essaye de la supprimer il faut que le fichier soit effacer ‘supprimer’ du disque dur
Le problème :
1 Comment déclencher une macro à la suppression d’une image
2 Comment supprimer un fichier ouvert

 

[La Vouivre]

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

 

[Compte Supprimé 979]

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+

 

[La Vouivre]

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

 

[La Vouivre]

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

 

[La Vouivre]

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

 

[La Vouivre]

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