ouverture d'un doc excel a partir de NOTES

Forum destiné aux questions sur le développement : Formules, LotusScript, Java ...

ouverture d'un doc excel a partir de NOTES

Messagepar leila » 09 Mai 2003 à 10:51

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
leila
 

Re: ouverture d'un doc excel a partir de NOTES

Messagepar Raziel » 09 Mai 2003 à 14:30

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
Raziel

L'administration est un lieu ou les gens qui arrivent en retard croisent dans l'escalier ceux qui partent en avance. [Georges Courteline]
Avatar de l’utilisateur
Raziel
Modérateur
Modérateur
 
Message(s) : 1795
Inscrit(e) le : 21 Déc 2004 à 11:06
Localisation : Roubaix


Retour vers Développement

cron