enregistrer un doc dans une autre base

[Michael DELIQUE]

ben oui normale

ws.CurrentDocument te renvois un notesuidocument

et copytodatabase c'est pour les notesdocument

[Steph_]

j'ai testé ton script, il y a des erreurs dedans ...

c'est peut être mon designer V6 qui connait pas tes fonctions

[Steph_]

comment je fais alors pour le notesdocument ?

[Michael DELIQUE]

il plante su dbExists_ls je paris ?

[Steph_]

exactement

[Michael DELIQUE]

j'ai réécris ton code

Code : Tout sélectionner

   Dim ws As New Notesuiworkspace
   Dim DB1 As NotesDatabase
   Dim UIDoc As NotesUIDocument
   Dim Doc As NotesDocument
   
   Set UIdoc = ws.CurrentDocument
   
   If Not UIDoc.EditMode Then
      UIDoc.EditMode = True
   End If
   
   Call UIDoc.Refresh
   Call UIdoc.Save
   
   Set Doc = UIDoc.Document
   
   Set DB1= DBOpen("server","path","file.nsf","repliqueid")
   If DB1 Is Nothing Then
      Msgbox "db1 inaccessible"
   End If
   Call doc.CopyToDatabase( DB1 )
   Call UIDoc.close

concernant DBOpen compatibilité v6 garanti mais tu as besoin de la fonction dbexist_ls tu as un lien qui pointe dessus en bas du tips ou est la fonction

[Steph_]

merci, je teste ça

[Steph_]

j'ai bien récupéré tes fonctions
j'ai personnalisé le code que tu as réécrit

et il ne veut pas enregistrer
ça plante sur la ligne set DB1 = DBOpen

[Michael DELIQUE]

il met quoi comme message d'erreur ?

[kochiz]

Bonjour,

La méthode copyTodatabase fonctionne si c'est un objet NotesDocument et pas NotesUIDocument.

[Steph_]

illegal parenthesized reference : DBOPEN

[kochiz]

Set notesDocument = notesUIDocument.Document

[kochiz]

oups problème de rafraichissement çà va trop vite

[Michael DELIQUE]

j'ai implémenté le code dans un agent

pas d'erreur de compilation

[Steph_]

je reprend ça demain

merci pour votre aide

je crois qu'il va falloir que je ressorte mes bouquins de LS