DominoArea.org [Archive]

Bonjour,Principe :- Sur un serveur Lotus Notes (basé sur un AS400)- Je détache via un agent un fichier Excel Dans notes/data du serveur AS400.- Apres je voudrai acceder en lecture à ce fichier grace à un agent plannifié. Dans le but d'afficher dans mes logs les valeurs des cellules A1, B1, ... Est ce que quelqu'un connait un script qui va permettre de lire un fichier excel sur AS400 ???

Salut,Il n'y a pas de <> entre la lecture du fichier Excel sur micro et sur AS400.La seule chose qu'il faut, c'est que ton fichier se trouve dans une directory pouvant être "attaqué par ton poste" (directory partagée)Pour ce qui est de la lecture d'un fichier excel, plusieurs codes ont déjà été posté sur le forum.

Moi je ne veux pas attaquer mon fichier depuis un poste local mais je veux que tout se fasse sur l'as400 (traitement de nuit)!!Car si l'agent est exécuté depuis mon poste : pas de pb je lis bien mon fichier Excel. Et ODBC ca te parle !!!

Ce qui marche en local peut très bien aussi fonctionné avec un agent planifié : si ta directory est accessible, alors le code reste valable.Tu peux aussi l'atttaquer par ODBC mais c'est sortir la grosse artillerie pour pas grand chose.

Ci dessous tu vas trouver le code que j'utilise OLE : mais mon AS400 ne connait pas Excel ...Function OpenXlsFile (Path As String, xlsObject As Variant) As Variant xlsObject.Workbooks.Open Path Set OpenXlsFile = xlsObject.ActiveWorkbookEnd FunctionSub Initialize Dim xlsObject As Variant Dim xlsWorkBook As Variant Dim xlsSheet As Variant Dim colPU As String Dim colCond As String Dim colRemise As String Dim colPV As String Set xlsObject = CreateObject( "Excel.Application" ) ' Ouverture du fichier. En retour, on récupère le classeur Set xlsWorkBook = OpenXlsFile ("/notes/data/Tarifs2003.xls", xlsObject) xlsObject.Visible = False ' Récupération de la feuille Tarif Set xlsSheet = xlsWorkbook.Worksheets("Tarifs") ' Récupération du titre de mes colonnes' A1 -> Prix unitaire' B1 -> Conditionnement' C1 -> Remise' D1 -> Prix de vente colPu = xlsSheet.Cells(1,1).Value colCond = xlsSheet.Cells(1,2).Value colRemise = xlsSheet.Cells(1,3).Value colPV = xlsSheet.Cells(1,4).Value Print "Col1 : " + colPu + " " + "Col2 : " + colCond + " " + _ "Col3 : " + colRemise + " " + "Col4 : " + colPV ' Fermeture du classeur excel xlsWorkbook.Close False xlsObject.Quit End Sub

Voici le message d'erreure dans la log :AMgr : message d'erreur relatif à l'agent ("Test lecture Excel" de "Test/NXCSC.nsf") : Operation not supported on this platform

Voici le message d'erreure dans la log :AMgr : message d'erreur relatif à l'agent ("Test lecture Excel" de "Test/NXCSC.nsf") : Operation not supported on this platform

Yes...Il semblerai que le createobject ne soit pas supporté en OS/2Il va donc falloir passé par un driver ODBC est les classes ODBCConnection, ODBCQuery et ODBCResultSet.

Ok merci pour le renseignement, mais où trouver un code explicatif ...