DominoArea.org [Archive]

Pourriez vous me dire quelle est la commande (Lotus Script) qui permet d'ouvrir un document excel existant a partir de NOTES et de qui permet de recueillir le nom des colonnes présentent sur ce fichier...Merci

Salut,Essai ceci :Sub 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 ("c:\temp\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 Msgbox "Col1 : " + colPu + " " + "Col2 : " + colCond + " " + _ "Col3 : " + colRemise + " " + "Col4 : " + colPV ' Fermeture du classeur excel xlsWorkbook.Close False xlsObject.Quit End SubFunction OpenXlsFile (Path As String, xlsObject As Variant) As Variant xlsObject.Workbooks.Open Path Set OpenXlsFile = xlsObject.ActiveWorkbookEnd Function