Bonjour,
Je cherche a écrire un code qui me permet de supprimer dans un répertoire, tous les fichier commençant par la valeur de la cellule Q4; ex: "BC 6
A savoir que le chemin du répertoire Doit être variable. En effet une macro enregistre les bons de commandes dans le répertoire où est enregistré mon fichier excel. Pour le moment seul moi l'utilise mais par la suite, il sera placer sur un autre poste, s'en doute sur un autre répertoire.
Voici mon début de code, qui ne fonctionne pas vraiment
Sub SupprimerCertainsFichiersDansDossier_2()
'supprime tous les fichiers dont le nom contient "BC 6"
Dim DossierANettoyer As String
If Len(Dir(Range("q4").Value, vbDirectory)) > 0 Then
' le répertaoire a vider. le chemin est indiqué dans la cellule Q4 par cette formule
' =STXT(V1;1;TROUVE("[";V1;1)-1)&"BONS DE COMMANDES\"&M1&"\"
Range("q4").Value "*BC 6*.*"
'les fichiers a supprimer s'ils commencent par "BC 6"
' ou encore mieux, commençant par la valeur trouvée en cellule Q3
Else
End If
End Sub
Merci pour vos conseils!