Fais un "On Error Resume Next", suivi d'un catch de l'erreur :
If err.Number<>0 Then
MsgBox err.Number
End If
Reproduis le cas où tu as un doublon, et relève le numéro de l'erreur. Eventuellement, tu peux également relever le texte de l'erreur (err.Msg il me semble, ou un truc comme ça).
A partir de là, tu pourras traiter l'erreur :
On Error Resume Next
[code]
If err.Number = [Ton numéro d'erreur] Then
[code relatif à l'erreur]
End If
Tu peux éventuellement ajouter une clause plus restrictive au test en ajoutant " And err.Msg=[Message d'erreur]
Message édité par agkklr le 18-10-2006 à 01:37:01
---------------
"Mon modèle, c'est moi-même."