Empecher d'enregistrer sous le même nom de fichier

[actarus]

salut,

Je souhaiterai dans mon programme empêcher les utilisateurs d'enregistrer sous le même nom de fichier.

Est ce que cela est posiible et si oui comment faire.

merci

 

[Popeye]

Bonjour

il faut vérifier que le fichier n'existe pas déja

la fonction Dir est prévu pour ca

Il te faudra créer ta propre fenetre d'enregistrement (un userform) et vérifier que dans le répertoire sélectionner le fichier n'existe pas
Je vais essayer de te faire un exemple si tu veux

 

[actarus]

oui ca serai cool merci.

 

[Popeye]

la fonction dir fonctionne pas mal

Sub test()
If Dir(ThisWorkbook.Path & "\classeur2.xls") <> "" Then
MsgBox "present"
Else
MsgBox "absent"
End If

End Sub