Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Effacer un fichier à partir de VBE

Effacer un fichier à partir de VBE

1 réponse
Avatar
René Delcourt
Je souhaite effacer un fichier précis dans un répertoire précis
Ce code doit contenir une erreur : Laquelle?
Merci

Sub EffaceFichier()
Dim s
Dim w As Variant
Do While s = ""
s = Dir("C:\test_*.xls")
MsgBox ("je vais détruire" & s)
Workbooks(s).Delete
Loop
End Sub
--
René Delcourt
Signaler un problème avec ce contenu

1 réponse

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
anonymousA
bonjour,

utiliser la méthode Kill
Atention: effacera défintivement le fichier sans passer par la case
corbeille. Pour éviter ca, il faut passer par les API.

A+

Je souhaite effacer un fichier précis dans un répertoire précis
Ce code doit contenir une erreur : Laquelle?
Merci

Sub EffaceFichier()
Dim s
Dim w As Variant
Do While s = ""
s = Dir("C:test_*.xls")
MsgBox ("je vais détruire" & s)
Workbooks(s).Delete
Loop
End Sub