Microsoft 365 Supprimer fichier du bureau dont le nom comporte toto

[raf26]

Bonjour le forum,

J'ai besoin de votre aide pour une macro (surement avec kill)

Je souhaite supprimer tous les fichiers . xlsm présents sur le bureau dont le nom comporte le mot toto.

toto est présent aléatoirement dans le nom du fichier (ex : lefichierdetoto.xlsm / toto.xlsm / 20200614toto.xlsm / etc...)

et ces fichiers sont uniquement sur le bureau du pc et ont uniquement l'extension .xlsm

Merci d'avance pour votre aide

Bon dimanche

Cordialement

 

[Dranreb]

Bonjour.
Utilisez la fonction Dir(*toto*.xlsm") après avoir fait un ChDir vers le chemin de votre bureau.

 

[raf26]

Bonjour Dranreb

Ok merci, dir pour lister les fichiers du bureau

Mais comment lister ceux dont le nom comporte toto et les supprimer ?

je ne maitrise pas assez

 

[Dranreb]

Dim NomFic As String
ChDrive "C": ChDir "C:\Users\…\DeskTop"
NomFic = Dir("*toto*.xlsm")
While NomFic <> ""
   Kill NomFic
   NomFic = Dir: Wend

 

[raf26]

Re Dranreb,

Merci pour ton aide, c'est exactement ce que je cherchais.

Je marque ton post comme solution.

Encore merci

 

[Usine à gaz]

Bonjour Dranreb, raf26,
@ Dranreb
ton code m'intéresse beaucoup est-il possible de faire la même chose si les classeurs sont n'importe où dans l'ordi ?
Merci à toi,
bonne fin de dimanche,
lionel,

 

[jmfmarques]

Bonjour

est-il possible de faire la même chose si les classeurs sont n'importe où dans l'ordi ?

Ah çà, pour être possible, cela l''est, mais au prix du parcours de tous les fichiers de tous les sous-dossiers de tous les dossiers et toutes les partitions du disque dur --->> traduction : au prix lourd d'une navigation à la rame !
Si tu veux en avoir une petite idée, utilise donc l'outil ad hoc de recherche de fichiers de Windows