par 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]