1. Accueil
  2. Forum Codes-Sources
  3. Visual Basic
  4. Visual Basic 6
Sujet Précédent Sujet Suivant

Lire un fichier excel à partir de vb6

Signaler
Messages postés
74
Date d'inscription
lundi 29 août 2005
Statut
Membre
Dernière intervention
1 février 2012
 -
Messages postés
156
Date d'inscription
vendredi 13 janvier 2006
Statut
Membre
Dernière intervention
2 mars 2009
 -
bonjour à tous,
j'ai un fichier excel que je veux lire et écrire dans une base access à partir de vb6.
je veux de l'aide. merci et bonne journée
Phino

6 réponses

Réponse 1 / 6
Messages postés
17287
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
 73
Projets > References > Microsoft Excel Object Library
Réponse 2 / 6
Messages postés
74
Date d'inscription
lundi 29 août 2005
Statut
Membre
Dernière intervention
1 février 2012
slt je veux le code de lecture et d'insertion dans une base access au niveau de vb6
Réponse 3 / 6
Messages postés
74
Date d'inscription
lundi 29 août 2005
Statut
Membre
Dernière intervention
1 février 2012
je veux le code de lecture d'un fichier excel et d'insertion dans une base de données access au niveau de vb6
Réponse 4 / 6
Messages postés
17287
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
 73
y'a des dizaines de codes expliquant ce genre de jonglerie
ne serait il pas temps de relever tes manches et de cesser ces enfantillages ?
Réponse 5 / 6
Messages postés
17287
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
 73
Voilà un code de départ

References:
Microsoft Excel 10.0 Object Library
Microsoft ActiveX Data Objects Library 2.8

------

Dim oExcel As Excel.Application
Dim oWorkSheet As Worksheet
Dim oRange As Range
Dim oConn As Connection
Dim sBuffer As String
Set oConn = New Connection
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\a.mdb;"

Set oExcel = New Excel.Application
Set oWorkSheet = oExcel.Workbooks.Open("C:\a.xls").Worksheets("Feuil1")

For Each oRange In oWorkSheet.Range("A1:A5")
sBuffer = Replace(oRange.Text, "'", "''")
oConn.Execute "INSERT INTO `Table1` (`Champ1`) VALUES ('" & sBuffer & "') "
Next oRange

oExcel.Quit
oConn.Close
Réponse 6 / 6
Messages postés
156
Date d'inscription
vendredi 13 janvier 2006
Statut
Membre
Dernière intervention
2 mars 2009
Renfield,

Je m'incruste un peu dans le sujet mais la source que tu donnes viens de me donner la solution à un problème non résolu que j'avais posté !!! merci bcp!

J'ai même fini par abandonner ce que je voulais faire au profit d'un autre système.

Je prépare un bout de code et un message pour le poster dans mon sujet afin qu'il y ai une solution disponible.

LC
Répondre Posez votre question