XL 2013 vérification sur enregistrement

[lagodille]

Bonjour à tous,

Voilà mon souci :
en vba, J'enregistre un fichier du type

ActiveWorkbook.SaveCopyAs "C:\" & Numf & " " & Objtclt & " " & Clt & ".xlsm"

Si je modifie mon fichier qui entraine une modification de Objtclt ou de Clt sans changer le numf
l'enregistrement du fichier modifié doit supprimer l'ancien et enregistrer le nouveau

par contre, si le numf change alors on enregistre le nouveau fichier sans supprimer l'ancien

j'espère avoir été assez clair dans mon explication

merci

 

[Compte Supprimé 979]

Bonjour lagodille,

Si NumF est un identifiant unique, voici une possibilité

  NomFic = ""
  ' Si NumF contien un identifiant
  ' Chercher un fichier avec cet identifiant
  If NumF <> "" Then NomFic = Dir("C:\" & NumF & "*")
  ' Si un fichier existe avec cet identifiant unique
  ' On le supprime
  If NomFic <> "" Then Kill "C:\" & NomFic
  ' On enregistre le nouveau fichier
  ActiveWorkbook.SaveCopyAs "C:\" & NumF & " " & Objtclt & " " & Clt & ".xlsm"

A+

 

[lagodille]

Un grand merci à toi Bruno
@+