DominoArea.org [Archive]

Re-Bonjour,Est-il possible de récupérer des données d'un fichier excel par exemple et de les intégrées dans un document notes?si oui comment?Si non est-il possible de mettre une visualisation d'un tableau provenant d'exel dans un document notes?si oui comment?Merci Violaine

Salut,Est ce que ttu veux le faire en DEV ou en utlisation normale de Notes (client).Si c'est en client, tu peux insérer, dans un RT, un objet du type feuille de calcul Excel ou alors importer un Fichier excel via Fichier/Importer.Si c'est en code, c'est un peu plus complex mais si tu veux des infos...

Dans un de mes appli, j'ouvre ( de facon invisible) excel et je parcour les feuilles pour remplir ou recuperer les donnees des cellules pour Notes donc si ca t'interresse...

salut,je débute, je ne voit pas trop ce que tu veux dire c'est quoi un RT ?en fait il me faudrai a l'interieur d'un document soit l'affichage d'une copie d'un tableau directement d'exce, soit inserer dans mes champs les données de se tableau car je ne peux pas me lancer dans la création d'un tableau sous notes.merci Violaine

oui oui ca m'interresse je suis preneuse lolmerci pour l'aide Violaine

Salut diarno.Je suis preneur également si c'est possible Merci par avance.[%sig%]

voici le code... si il n'est pas clair je peut envoyé une base notes : (Pour information mon fichier excel est dans un document Notes )'Variable pour ExcelDim PathName As StringDim Excel As VariantDim xlWorkbook As VariantDim xlSheet As VariantDim row As Integer'autre variableDim Session As NotesSessionDim dbCurrent As NotesDatabaseDim vueFind As NotesViewDim docfind As NotesDocumentDim docParam As NotesDocumentSub Initialize Set Session = New NotesSession Set dbCurrent = session.CurrentDatabase 'Ajout des Quota exception Call ImportXLS End SubSub ImportXLS Print "Debut de l'import Fichier" Set docParam = dbCurrent.GetProfileDocument("mDerog")Set vueFind = dbCurrent.GetView("(_Path)") 'Detachement du Fichier dans tempChemin = Export(docParam) If Not Chemin="" Then 'Ouverture du fichier XLSCall XLSOuvrir(Chemin) 'Activation de la feuille DerogationSet xlSheet = xlWorkbook.Worksheets("Dérogation") 'Ligne de departrow = 6 'Traitement des lignes du fichier"Do While Not (xlSheet.Cells(row, 7 ).Value="") Path = Ucase(xlSheet.Cells(row, 7 ).Value) Set docFind = vueFind.Getdocumentbykey(Path) If Not (docFind Is Nothing) Then docFind.Quota = ((xlSheet.Cells(row, 4 ).Value)*1024*1024) Call docFind.save(True,False) End If row = row + 1Loop 'Fermeture du fichier XLS Call XLSFermer End If Print "Fin de l'import du Fichier" End SubSub XLSOuvrir(Chemin As String) Print "Ouverture du Fichier XLS" Set Excel = CreateObject( "Excel.Application" ) Excel.Visible = False Excel.Workbooks.Open Chemin Set xlWorkbook = Excel.ActiveWorkbook End SubSub XLSFermer Print "Fermeture du Fichier XLS" xlWorkbook.Close False Excel.Quit Set Excel = Nothing End SubFunction Export(docExtract As NotesDocument) As String Print "Detachement du fichier XLS dans le temp" Dim PathName As String Dim Body As Variant Set Body = docExtract.GetFirstItem("Body") Export="" If Not (Body Is Nothing) Then If Not (Body.EmbeddedObjects(0) Is Nothing) Then PathName =Environ("Temp")+ "\"+ Body.EmbeddedObjects(0).name Call Body.EmbeddedObjects(0).extractFile(PathName) Export = PathName End IfEnd If End Function

Heu.... si ça te dérange pas, je préfèrerais une base note. Enfin si c'est possible bien entendu et sans vouloir être exigeant. [%sig%]

Etant donné que je suis une débutante effectivement pour moi se n'est pas tres clair, il y a certains points que je ne comprends pas.Pourrais tu m'en dire un peu plus sur :"Pour information mon fichier excel est dans un document Notes "coment as tu fais??moi aussi je veux bien la base si c'est possibleet si tu pouvai me mettre un peu plus d'explication si ca ne te pose pas de probleme dans ton code s'il te plait Merci Violaine

comment ca c'est pas clair.... bon je vais vous faire une base Notes et je commente un peu pluspour repondre a ta question violaine j'ai un document profile ( d'ou le GetProfileDocument("mDerog") ) qui contient un champ body ou j'ai rattaché un fichier excel...bon je vous livre la base Notes Mardi soir ou mercredi après les cloches...le chocolat ca m'engourdie le cerveau...

merci,j'espères je comprendrai mieux avec la base car je suis tte perdue moic pas bon le chocolat...Violaine

J'ai juste un petite probleme je ne sais pas du tout ce qu'est un document profil si tu pouvais m'aider se serait genial.merci Violaine

je commente la base ce soir (22/04) et vous l'envoie ensuite...pour le document profil :c'est un document qui est permanent... c'est un document que tu ne peut afficher dans une vue ( enfin pour le moment personne ne ma fait voir comment on faisait ).En fait c'est un document qui est crée ( @command([EditProfile];"nomdumasque")) une fois ( et une seule) et qui est rapellé a chaque fois. Tu peut en crée qu'un seul (enfin presque) par masque associer.Je l'utilise pour le parametrage de mes bases comme ca pas de recherche dans un vue... tu rapelle ton document profile par son masque et voila d'ou le [set docParam = GetProfileDocument("nom de mon masque")].Mais bon ca commence a être un peu complexe comme explication... je vais finir par te filais mon numero de telephone Violaine...Arno

je suis dsél pour moi ce n'est pas facil je débute alors surtt ne tinkiètes pas je comprends vite mais il faut m'expliquer longtps...ok ben merci pour tes renseignements et par avance pour le commentaire de baseViolaine

base envoyé ce jour aux adresses e-mail de vos fiches...si vous voulez des precisions.... pas de problème