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
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
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:
- Convertir un fichier excel en mode VB
- Fichier bin - Guide
- Mode avion - Guide
- Comment ouvrir un fichier epub ? - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Comment réduire la taille d'un fichier - Guide
1 réponse
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
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
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