Effacer fichier excel si n existe plus dans une liste

[ngexcel]

Bonjour à vous

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

Merci

 

[DoubleZero]

Re : Effacer fichier excel si n existe plus dans une liste

Bonjour, ngexcel, le Forum,

Quelques trésors, à découvrir peut-être, ici.

A bientôt

 

[Yaloo]

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.

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

A te relire

Martial

 

[DoubleZero]

Re : Effacer fichier excel si n existe plus dans une liste

Bonjour à toutes et à tous,

... bises 00 (ça faisait longtemps )

Avec cette macro, ça doit le faire, si j'ai bien compris ta demande...

Martial

@ Martial,

Bises itou et... bravo !

A bientôt

 

[ngexcel]

Re : Effacer fichier excel si n existe plus dans une liste

Effectivement la macro fonctionne
C est exactement ce que je voulais
Merci encore