Sujet Précédent Sujet Suivant

Convertir un fichier excel en mode VB

Fermé
Taha - 20 févr. 2009 à 09:43
akelo Messages postés 52 Date d'inscription jeudi 22 janvier 2009 Statut Membre Dernière intervention 28 mars 2011 - 20 févr. 2009 à 09:45
Bonjour,
s'il vous plais, je viens ous poser une questions sur les étapes comprenants sur la conversion d'un fichier excel en mode Visual Basic
j'ai un fichier excel(Microsoft Office 2003) " Stocks de magasin@ et je voudrai le convertir en mode VB pour que les autres utilisateurs de notre reseau puissent l'utiliser (ajout, modification, suppression,....)
et merci d'avance
A voir également:

1 réponse

Réponse 1 / 1
akelo Messages postés 52 Date d'inscription jeudi 22 janvier 2009 Statut Membre Dernière intervention 28 mars 2011 11
20 févr. 2009 à 09:45
Un objet Excel et Sheet:

Dim oXL As Excel.Application
Dim oBook As Excel.Workbook
Dim oSheet As Excel.Worksheet
Dim numFields As Integer
Dim numRows As Integer
Dim curField As Integer
Dim curRow As Integer

oXL = New Excel.Application
oBook = oXL.Workbooks.Open(c:\fichier.xls)
oXL.Visible = False

' compte les champs
While Not (oBook.ActiveSheet.Cells(1, numFields + 1).value Is MyNull)
numFields = numFields + 1
End While

' compte les lignes
While Not (oBook.ActiveSheet.Cells(numRows + 1, 1).value Is MyNull)
numRows = numRows + 1
End While

' lecture
For curRow = 1 To numRows
For curField = 1 To numFields
LineIn = LineIn & oBook.ActiveSheet.Cells(curRow, curField).Value
Next curField
LineIn = “”
Next curRow

oBook.Close()
oXL = Nothing
2