Ce n'est pas exactement le code dont je te parlais, apparement j'ai supprimer la base sans conserver de modèle

(...Mais je code te permet de détacher une pièce jointe que le disque donc normalement c'est quasiment ce qu'il te faut....Sub InitializeDim S As New NotesSessionDim Db As NotesDatabaseDim V as NotesviewDim main as NotesDocumentSet Db = S.CurrentdatabaseSet V= Db.GetView("MaVue")Set main = V.GetFirstDocumentDim item As VariantDim rtitem As NotesRichTextItemDim object As NotesEmbeddedObjectDim objectname As String 'PIECE JOINTEIf main.HasItem( "$FILE" ) ThenSet item = main.GetFirstItem( "$FILE" )Forall v In item.Valuesobjectname = vEnd ForallSet object = main.GetAttachment(Cstr(objectname))Call object.ExtractFile("serveur\Tonchemin\" & Cstr(objectname)) 'Copie sur le disque, chemin à spécifier'Si tu souhaite par exemple supprimer ton fichier... Dans ton cas aucun intéretKill "\TonChemin\" & Cstr(objectname) 'Suppression du serveurEnd IfEnd subCe que je n'ai pas mis ici, tu peut supprimer ton doc avec la méthode remove de la classe NotesDocument.Ce qu'il faut bien faire attention c'est d'avoir les droits !!! Surtout de copier un fichier sur le serveur.... En l'occurence si ton agent est programmé c'est le serveur qui éxécutera l'action...Tu peut pour commencer éxécuter l'agent manuellement en détachant la PJ sur ton disque....Bon courage