VBA-Vérifier le nom d'un fichier dans l'exploreur windows

**Rémy.A** · 21/05/2018, 23h58

Bonjour à tous,

Je voudrais faire une macro, en vba, qui vérifie le nom d'un fichier dans un dossier et qui en fonction du nom le supprime.
Pouvez vous m'aider car je ne sais pas comment faire.

Merci par avance.

Les fichier à supprimer sont nommés de la manière qui suit:

temp-xxxxxxx

les 5 premiers caractères ne change jamais (temp-)

J' ai commencé à réfléchir au codage, j'ai pensé utiliser la fonction DIR pour lire les nom des fichiers et après utiliser la fonction kill pour les supprimer.
Faut-il utiliser la fonction kill ou Delet? la quelle est meilleure?

Etapes de la macro:

Vérifier le nom
Si le nom commence par "temp-" alors supprimer le fichier
Passer au suivant ( j'ai pensé utiliser un For Boucle... mais il faut comptabiliser le nombre de fichiers dans le dossier pour avoir un nombre X, et répéter X fois la boucle).

Je suis débutant en VBA, je ne connais pas les syntaxes pour coder...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub Main()
 
Dim chemin_load as String       'Pour charger le chemin
Dim nom_fichier as String
Dim boucle as integer              'Pour répéter la boucle en fonction du nombre de fichier
Dim nb_de fichier as integer     'Pour comptabiliser ne nombre de fichier dans le dossier
 
chemin_load = Application.WorksheetFunction.Substitute(chemin, "\", "\\") & "\folios générés"
 
End Sub

Merci par avance pour votre aide!!

**patricktoulon** · 22/05/2018, 00h07

re
une boucle sur dir se fait comme ca la base pour des fichiers

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
fichier=dir(chemin &"temp*.*")'chemin etant par exemple "C:\mondossier\" et les fichier commencant par "temp"
do
debug.print chemin & fichier 
fichier=dir
loop while fichier<>""

si il faut chercher dans les sous dossiers ca se complique un peu
nen sachant pas plus sur ton contexte je ne peux t en dire plus

**unparia** · 22/05/2018, 06h41

Bonjour
Et en avant . Une boucle avec Dir et des caractères génériques ...
Il suffit pourtant de consulter l'aide interne VBA, rubrique Kill, instruction.
Cette instruction utilise les caractères génériques.

**Rémy.A** · 22/05/2018, 14h04

Merci pour vos conseils, je cherche une solution

**Pierre Fauconnier** · 22/05/2018, 14h12

Salut.

La solution t'a été donnée par unparia

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

kill "n:\temp-*.*"

NB: il faut remplacer n:\ par le chemin réel de tes fichiers.

Quant à

Envoyé par unparia

[...]Il suffit pourtant de consulter l'aide interne VBA, rubrique Kill, instruction.
Cette instruction utilise les caractères génériques.

Ben non, il "ne suffit pas", parce qu'il faut encore connaître l'existence de Kill... Et si on la connait, on n'a alors pas besoin de venir demander de l'aide, parce qu'on connaît forcément la suite aussi. Peut-être es-tu tombé dedans étant petit, mais ce n'est pas le cas de tout le monde

**Rémy.A** · 22/05/2018, 14h17

Ah d'accord :-) je vais essayer de faire la boucle.

**Pierre Fauconnier** · 22/05/2018, 14h22

Hum...

unparia te dit qu'il n'y a pas besoin de boucles (Faut malheureusement savoir lire entre les lignes de réponses alambiquées, parfois...

) et je te donne une solution sans boucles avec caractères génériques...

**unparia** · 22/05/2018, 14h32

Bonjour Pierre

Ben non, il "ne suffit pas", parce qu'il faut encore connaître l'existence de Kill... Et si on la connait, on n'a alors pas besoin de venir demander de l'aide, parce qu'on connaît forcément la suite aussi.

Je lis quant à moi ceci :

J' ai commencé à réfléchir au codage, j'ai pensé utiliser la fonction DIR pour lire les nom des fichiers et après utiliser la fonction kill pour les supprimer.

Encore fallait-il lire ce que le demandeur avait écrit, sans doute.
Salut

**Pierre Fauconnier** · 22/05/2018, 14h35

Entre lire l'aide en ligne, comprendre et savoir appliquer ce qui a été lu et (éventuellement mal) compris (voire mal expliqué dans les réponses), il y a plus que de la marge. Si nos contributions sur les forums servent simplement à renvoyer à l'aide en ligne (en arrivant à ne pas se faire comprendre dans nos réponses, en plus), alors allons planter des choux, ce sera plus efficace. Tant qu'à faire de la soupe

**Rémy.A** · 22/05/2018, 14h49

Dans l'aide on parle de la fonction MacID et elle peut-être utilisé avec DIR ou KILL.
Je n'ai pas tout compris, pouvez vous m'expliquer ce qui est possible de faire avec les combinaisons de DIR, KILL et MacID?

**Rémy.A** · 22/05/2018, 14h51

voici le code que j'ai fais:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub trouver()
 
Dim chemin As String         'chemin d'accès aux fonts de plans
Dim chemin_load As String    'chemin d'accès aux fonts de plans avec les \ remplacés par des \\
Dim nomFichier As String
 
'Détermination du chemin à charger automatiquement.
'cherche le chemin d'accès du fichier "Génération config API.xlsm"
Workbooks("Génération config API.xlsm").Activate
chemin = ActiveWorkbook.Path 'Mémorise le chemein le chemin
chemin_load = Application.WorksheetFunction.Substitute(chemin, "\", "\\")& "\folios générés" 'Application.WorksheetFunction.Substitute(chemin, "\", "\\")charge automatiquement le chemin du fichier
'"\folios générés" est le dossier où il faut travailler (supprimer certain fichiers)
 
'
nomFichier=Dir("chemin_load & "temp-*.*")
Kill "nomFichier"
 
 
End Sub

**Pierre Fauconnier** · 22/05/2018, 14h55

Tu es sur Mac ou sur Pc...?

L'exemple de l'aide en ligne me semble explicite (pour un pc):

' Assume TESTFILE is a file containing some data.
Kill "TestFile" ' Delete file.

' Delete all *.TXT files in current directory.
Kill "*.TXT"

Je t'ai donné UNE ligne de code qui supprime les fichiers commençant par temp- dans le répertoire précisé (N:\ dans l'exemple que je t'ai donné). Que n'as-tu pas compris lors de tes essais avec cette ligne d'exemple?

**Pierre Fauconnier** · 22/05/2018, 14h59

A la ligne 16 du code que tu as donné, NomFichier est une variable. Tu ne dois donc pas l'encadrer avec des guillemets, sinon VBA comprend que tu veux supprimer un fichier nommé qui s'appelle NomFichier

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Kill nomFichier

**Rémy.A** · 22/05/2018, 15h04

Si ça j 'ai compris. C'est pour faire la boucle que je ne comprends pas. Et l'aide parle aussi de MacID pour faire des groupe et éviter de faire un boucle

**Rémy.A** · 22/05/2018, 15h07

Envoyé par Pierre Fauconnier

A la ligne 16 du code que tu as donné, NomFichier est une variable. Tu ne dois donc pas l'encadrer avec des guillemets, sinon VBA comprend que tu veux supprimer un fichier nommé qui s'appelle NomFichier

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Kill nomFichier

Ok merci

**Pierre Fauconnier** · 22/05/2018, 15h19

Envoyé par Rémy.A

Si ça j 'ai compris. C'est pour faire la boucle que je ne comprends pas. Et l'aide parle aussi de MacID pour faire des groupe et éviter de faire un boucle

Pourquoi veux-tu faire une boucle? Les caractères génériques t'évitent cela... Sauf si tu veux également supprimer dans les sous-dossiers...

Quant à MacId, ça concerne les Mac... D'où ma question à laquelle tu n'as pas répondu: Es-tu sous Mac ou sous PC?

**Rémy.A** · 22/05/2018, 15h33

Envoyé par Pierre Fauconnier

Pourquoi veux-tu faire une boucle? Les caractères génériques t'évitent cela... Sauf si tu veux également supprimer dans les sous-dossiers...

Quant à MacId, ça concerne les Mac... D'où ma question à laquelle tu n'as pas répondu: Es-tu sous Mac ou sous PC?

Je ne suis ni développeur ni informaticien donc je connais très bien le VBA...

Je suis sur Windows 7.

J'avais pensé créer une variable x pour compter le nombre de fichiers qui commencent par "temps-". Et après utiliser la variable x pour répéter x fois l'opération (si nomFichier commence par "temp-" alors supprimer le fichier).
Pour compter les fichiers j'ai pensé utiliser la fonction DIR.

Je ne savais pas que les caractère générique éviter de faire une boucle.

Ce n'est pas facile d'apprendre tout seul sur internet. De plus j'aime travailler dans les règles de l'arts et j'aimerais s'avoir coder correctement.

**Rémy.A** · 22/05/2018, 15h34

Envoyé par Pierre Fauconnier

Pourquoi veux-tu faire une boucle? Les caractères génériques t'évitent cela... Sauf si tu veux également supprimer dans les sous-dossiers...

Quant à MacId, ça concerne les Mac... D'où ma question à laquelle tu n'as pas répondu: Es-tu sous Mac ou sous PC?

Je ne suis ni développeur ni informaticien donc je connais très bien le VBA...

Je suis sur Windows 7.

J'avais pensé créer une variable x pour compter le nombre de fichiers qui commencent par "temps-". Et après utiliser la variable x pour répéter x fois l'opération (si nomFichier commence par "temp-" alors supprimer le fichier).
Pour compter les fichiers j'ai pensé utiliser la fonction DIR.

Je ne savais pas que les caractères génériques évitaient de faire une boucle.

Ce n'est pas facile d'apprendre tout seul sur internet. De plus j'aime travailler dans les règles de l'arts et j'aimerais s'avoir coder correctement.

**Pierre Fauconnier** · 22/05/2018, 15h37

Pas de soucis, Rémy,

C'est pour cela que je pense qu'un exemple éventuellement commenté vaut mieux qu'un renvoi vers l'aide en ligne qui ne s'adresse pas forcément à des non-informaticiens. C'est pour cela que nos forums existent: pour expliquer, détailler et illustrer ce qui n'est pas toujours simple à comprendre dans une aide en ligne