EXCEL- Effacer fichiers à partir d'1 liste de

Résolu/Fermé

Peter2302 Messages postés 16 Date d'inscription lundi 9 février 2009 Statut Membre Dernière intervention 10 février 2009 - 9 févr. 2009 à 15:51
lermite222 Messages postés 8724 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 - 10 févr. 2009 à 10:50

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!

A voir également:

EXCEL- Effacer fichiers à partir d'1 liste de
Liste déroulante excel - Guide
Excel liste déroulante en cascade - Guide
Aller à la ligne excel - Guide
Si et excel - Guide
Word et excel gratuit - Guide

10 réponses

Réponse 1 / 10

lermite222 Messages postés 8724 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 191
9 févr. 2009 à 16:03

Bonjour,
dans l'éditeur VBA tu tape Kill , tu sélectionne et tu tape F1.
A+

Réponse 2 / 10

Peter2302 Messages postés 16 Date d'inscription lundi 9 février 2009 Statut Membre Dernière intervention 10 février 2009 1
9 févr. 2009 à 16:07

Excuses moi je n'ai pas tout saisi, dans l'éditeur je dois sélectionner quoi?

Réponse 3 / 10

lermite222 Messages postés 8724 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 191
9 févr. 2009 à 16:09

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+

Peter2302 Messages postés 16 Date d'inscription lundi 9 février 2009 Statut Membre Dernière intervention 10 février 2009 1
9 févr. 2009 à 16:37

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..

Réponse 4 / 10

Peter2302 Messages postés 16 Date d'inscription lundi 9 février 2009 Statut Membre Dernière intervention 10 février 2009 1
9 févr. 2009 à 16:26

merci génial j'm'y mets de ce pas!

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 10

lermite222 Messages postés 8724 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 191
9 févr. 2009 à 16:48

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+

Peter2302 Messages postés 16 Date d'inscription lundi 9 février 2009 Statut Membre Dernière intervention 10 février 2009 1
9 févr. 2009 à 16:52

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! :)

Peter2302 Messages postés 16 Date d'inscription lundi 9 février 2009 Statut Membre Dernière intervention 10 février 2009 1
9 févr. 2009 à 16:59

J'ai vraiment du mal désolé... pourrais me joindre un exemple stp?

merci encore!

Réponse 6 / 10

lermite222 Messages postés 8724 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 191
9 févr. 2009 à 16:57

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.

Réponse 7 / 10

lermite222 Messages postés 8724 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 191
9 févr. 2009 à 17:04

voir message 8 et tu dis...(croisement)

Réponse 8 / 10

Peter2302 Messages postés 16 Date d'inscription lundi 9 février 2009 Statut Membre Dernière intervention 10 février 2009 1
9 févr. 2009 à 17:38

J'ai une erreur d'éxecution 53 le fichier est introuvable au niveau de la ligne Kill Cells(i, 1).Value

Réponse 9 / 10

Peter2302 Messages postés 16 Date d'inscription lundi 9 février 2009 Statut Membre Dernière intervention 10 février 2009 1
9 févr. 2009 à 17:40

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!)

Réponse 10 / 10

lermite222 Messages postés 8724 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 191
10 févr. 2009 à 02:40

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

Peter2302 Messages postés 16 Date d'inscription lundi 9 février 2009 Statut Membre Dernière intervention 10 février 2009 1
10 févr. 2009 à 10:47

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!!

lermite222 Messages postés 8724 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 191 > Peter2302 Messages postés 16 Date d'inscription lundi 9 février 2009 Statut Membre Dernière intervention 10 février 2009
10 févr. 2009 à 10:50

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

Discussions similaires

Suppression listes déroulantes