Bonjour,

J'ai une macro qui me permet d'ouvrir des classeurs dans un dossier suivant la valeur d'une cellule comme nom de référence et j'aimerai supprimer ces classeurs si à l'intérieur de ces classeurs une cellule est identique à une autre.

Voilà le code en question :

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
ReDim T(0 To 0)
Dim I As Long
Set CS = Workbooks("EXEMPLE")
Set OS = CS.Worksheets("TEST")
ScanFolder T, "U:\Public", OS.Range("D6").Value & "*.xls*", False
If Not IsEmpty(T(0)) Then
UserForm47.Show
For I = 0 To UBound(T)
Workbooks.Open T(I)
Worksheets(2).Activate
Set ma = Range("C6").MergeArea
If ma.Address = "$C$6:$D$6" And Range("C6").Value Like "*" & OS.Range("D8").Value & "*" Then
' supprimer le fichier
End If
Next I
Else
UserForm48.Show
End If
Avec la fonction Kill cela doit être possible ?

Merci d'avance !