Import d'un fichier Excel dans une vue --> Stephane Maill

[Georgette]

Bonjour,j'ai trouvé hier votre code LotusScript concernant l'importation d'unfichier Excel dans une vue Notesj'ai essayé le programme et il marche tres bien avec des masques quej'ai créé rapidement pour le testermon probleme est que j'aimerais importer des contacts listés sous Exceldans mon carnet d'adresses Notes, mais je n'arrive absolument pas afaire marcher votre programme avec le masque Contact du carnetd'adresses y'a-t-il un detail qui m'echappe ? auriez-vous une precision a me donner?merci beaucoup d'avance et merci beaucoup deja pour votre codeGeorgette

[Stephane Maillard]

Bonjour,Ce programme d'importation se base sur les noms de colonne il faut que les noms correspondent aux champs du masque Contact. Pouvez vous me dire sous quel version de Notes êtes vous ? Je pourrais modifier l'agent.[%sig%]

[Georgette]

bonjour,j'ai compris ce qui n'allait pas en faitle programme marchait depuis le debut mais rien ne s'affichait car dans la selection de la vue carnets d'adresses il y a SELECT Type="Contact":"Person"si je rajoute FORM = "Contact" j'ai ce qu'il me fauten realite y'a juste un probleme d'enregistrement du masque parce que lorsque j'ouvre un document créé par votre programme et que je clique sur Enregistrer et fermer, il apparait dans le carnet d'adresses sasn avoir a rajouter Form = "Contact"savez vous comment resoudre ce probleme ? je suis en R5merci beaucoup en tout cas car ce programme va beaucoup m'aiderGeorgette

[Stephane Maillard]

Bonjour,Sur une vue qui ne comporte que les documents ou il n'y à pas le champs form, vous appliquer un agent avec ce code im Session As New NotesSessionDim Db As NotesDatabaseDim Vue As NotesViewDim Doc As NotesDocumentSet Db = Session.CurrentDatabaseSet Vue = Db.GetView("MaVue") ' <== A changer par la votreSet Doc = Vue.GetFirstDocumentDo While Not Doc Is Nothing Call Doc.ReplaceItemValue("Form", "Contact") ' Ou : Doc.Form = "Contact" Call Doc.Save(True, False, False) Set Doc = Vue.GetNextDocument(Doc)LoopNormalement cela devrait fonctionner.[%sig%]

[Georgette]

bonjour,non malheureusement ce code ne fonctionne pas non plusce qui marche bien c'est l'enregistrement avec un code en formule de type :@Command( [EditDocument] );@PostedCommand([FileSave]);@PostedCommand([FileCloseWindow])le problème c'est que ca marche que pour un seul document a chaque foisest il possible d'appliquer ce code a plusieurs documents selectionnés ?merci encore pour tout ce que vous avez deja faitGeorgette