EXCEL- Effacer fichiers à partir d'1 liste de [Résolu/Fermé]

Signaler
Messages postés
16
Date d'inscription
lundi 9 février 2009
Statut
Membre
Dernière intervention
10 février 2009
-
Messages postés
17380
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
-
Bonjour tout le monde!

Je me trouve face à un petit problème, je cherche désespérément sur le toile une macro qui me permettrait d'effacer des fichiers sur un lecteur à partir d'une liste de chemins... J'ai pu voir qu'il était possible d'effectuer des actions similaires mais mes connaissances sur VB sont encore trop limitées...

Merci d'avance!

10 réponses

Messages postés
17380
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 091
Bonjour,
dans l'éditeur VBA tu tape Kill , tu sélectionne et tu tape F1.
A+
Messages postés
16
Date d'inscription
lundi 9 février 2009
Statut
Membre
Dernière intervention
10 février 2009
1
Excuses moi je n'ai pas tout saisi, dans l'éditeur je dois sélectionner quoi?
Messages postés
17380
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 091
Tu tape le mot Kill ensuite tu double clic sur ce mot (il va se surligné en bleu) et tu tape F1. L'aide va tout t'expliquer.
Si pas bien clair, hésite pas tu dis...
A+
Messages postés
16
Date d'inscription
lundi 9 février 2009
Statut
Membre
Dernière intervention
10 février 2009
1
Re ermite,

J'ai bien regardé le fichier et penses avoir compris mais je sais pas vraiment comment procéder... il me semble aussi que je sois obligé de supprimer un fichier situé dans le répertoire sélectionné. Je voudrais pouvoir effacer directement a partir de ma liste de chemins... rrrrr je galère..
Messages postés
16
Date d'inscription
lundi 9 février 2009
Statut
Membre
Dernière intervention
10 février 2009
1
merci génial j'm'y mets de ce pas!
Messages postés
17380
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 091
Kill Range("OùEstLeNomDuFichier")
Fait gaffe parce que c'est supprimé definitivement.
Attention, le chemin complet+ le répertoir doivent être dans la cellule.
tu dis...
A+
Messages postés
16
Date d'inscription
lundi 9 février 2009
Statut
Membre
Dernière intervention
10 février 2009
1
merci beaucoup!

Je voudrais s'il est possible de désigner directement la colonne concerné dans ma feuille, car si je dois les rentrer un par un j'en ai pour un bon moment! :)
Messages postés
16
Date d'inscription
lundi 9 février 2009
Statut
Membre
Dernière intervention
10 février 2009
1
J'ai vraiment du mal désolé... pourrais me joindre un exemple stp?

merci encore!
Messages postés
17380
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 091
Supposons que tu a le noms de chemi+Fichier+extention dans les cellules A1 à A10
Sub Supp()
dim i as byte
    For i=1 to 10
       kill cells(i,1).value
    next i
end sub
Tes cellules doivent êtres renseignées en texte.
1 pour la colonne A, B pour 2 etc..
For i =1 pour la ligne 1 à &à.
Dis plutôt dans quel cellules se trouvent les données.
Messages postés
17380
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 091
voir message 8 et tu dis...(croisement)
Messages postés
16
Date d'inscription
lundi 9 février 2009
Statut
Membre
Dernière intervention
10 février 2009
1
J'ai une erreur d'éxecution 53 le fichier est introuvable au niveau de la ligne Kill Cells(i, 1).Value
Messages postés
16
Date d'inscription
lundi 9 février 2009
Statut
Membre
Dernière intervention
10 février 2009
1
J'ai remplacé le 10 par 224 (qui est mon nombre de lignes) Ai-je oublié quelque chose? Je suis vraiment novice désolé^^ je me forme :) (tant bien que mal!)
Messages postés
17380
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 091
Le fichier que tu as renseigné sur la ligne n'existe pas ou le nom n'est pas bon ou le chemin n'est pas bon.
Attention.. Il arrive souvent qu'ont "glisse" un espace ou y faut pas.
Edit:
Et si tu a déja fait fonctionner la macros, certain fichiers n'existe plus, pour aller jusqu'au bout ajoute la ligne...

Sub Supp()
dim i as integer  'Changer aussi ICI
    On Error Resume Next  'Ajouter ICI
    For i=1 to 10
       kill cells(i,1).value
    next i
end sub
Messages postés
16
Date d'inscription
lundi 9 février 2009
Statut
Membre
Dernière intervention
10 février 2009
1
salut lermite222

J'ai essayé ta macro qui ne m'affiche aucun message d'erreur mais n'efface pas mes fichiers... mais j'ai trouvé la solution en vadrouillant sur la toile, c'est quasiment la même chose:

Sub Effacer_Fichier()
Dim i as Integer
On Error Resume Next
For i=1 to 10 'A adapter au nombre de lignes
Kill Cells(i,1).Value
Next i
End Sub

Merci beaucoup!!
Messages postés
17380
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 091 >
Messages postés
16
Date d'inscription
lundi 9 février 2009
Statut
Membre
Dernière intervention
10 février 2009

Pas compris !!! où est la différence ?