J ai un répertoire qui contient des fiches faites sous excel 2007
Les noms des fichiers commence toujours par une série de chiffres 8 exactement puis la date de la création
J ai un tableau qui me reprend l historique de mon répertoire colonne A les 8 chiffres 2ème colonnes ref etc..
Si je détruit un fichier de mon répertoire je voudrais une macro qui puisse tester mon tableau historique
Avec le critère 8 premiers caractères et si la macro trouve pas un fichier avec comme nom les 8 premiers chiffres alors la macro efface la ligne dans mon tableau historique
Re : Effacer fichier excel si n existe plus dans une liste
Bonsoir ngexcel, bises 00 (ça faisait longtemps )
Avec cette macro, ça doit le faire, si j'ai bien compris ta demande.
VB:
Sub Suppression()
Dim i&, Rep$
Rep = ThisWorkbook.Path
For i = [A65536].End(3).Row To 1 Step -1
If Dir(Rep & "\" & Cells(i, 1) & "*") = "" Then
Rows(i).EntireRow.Delete
End If
Next
End Sub