Excel VB6 [Résolu]

losc_cartouche 51 Messages postés mardi 6 février 2007Date d'inscription 25 mars 2008 Dernière intervention - 4 févr. 2008 à 15:44 - Dernière réponse : losc_cartouche 51 Messages postés mardi 6 février 2007Date d'inscription 25 mars 2008 Dernière intervention
- 5 févr. 2008 à 08:40
Bonjour,


Je dois importer un fichier Excel dans vb6 afin d'en copier une colonne dans ma base de données mais comment faire?


Merci
Afficher la suite 

Votre réponse

2 réponses

Meilleure réponse
losc_cartouche 51 Messages postés mardi 6 février 2007Date d'inscription 25 mars 2008 Dernière intervention - 5 févr. 2008 à 08:40
3
Merci
C'est bon j'ai trouvé !
Je voulai copier le contenu d'une colonne excel dans ma base de données (MySql) en passant par VB:

'pour tout nouveau projet si vous voulez utiliser Excel par VB
'il faut rajouter la library Excel 9 ou autre dans Projet/Référence
    Dim xlApp As Excel.Application
    Dim xlBook As Excel.Workbook
    Dim XlSheet As Excel.Worksheet
   
    Set xlApp = New Excel.Application
    Set xlBook = xlApp.Workbooks.Add
    Set XlSheet = xlBook.Worksheets(1)


' désactive les messages d'Excel
    xlApp.Application.DisplayAlerts = False
' Ouvre le fichier
    xlApp.Workbooks.Open FileName:=App.Path & "Test.xls", Editable:=True, ReadOnly:=False
' Insertion des nouvelles valeurs
'feuil1 represente le nom de la feuille ou sheet
    xlApp.Sheets("Feuil1").Range("A1").Value = "Est ce que ça Marche???"
    xlApp.Sheets("Feuil1").Range("A2").Value = "Repond moi!!!!"
'Redimensionne la ligne 2
    xlApp.Sheets("Feuil1").Rows("2:2").RowHeight = 100
'redimensionne la colonne A
    xlApp.Sheets("Feuil1").Columns("A:A").ColumnWidth = 56
'permet d'enregistrer les modification que l'on fait dans le fichier Excel si True
'sinon ne sauvegarde pas les modification apportées
    xlApp.Application.DisplayAlerts = True
' Récupère les valeurs de la case A1
    'Nom_Variable = xlApp.Sheets("Feuil1").Range("A1").Value


'on ferme tout pour éviter les erreurs qui sont assez Zarb
    xlBook.Close
    xlApp.Quit
   
' Supprime les objets
    Set xlApp = Nothing
    Set xlBook = Nothing
    Set XlSheet = Nothing


End Sub

Merci losc_cartouche 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 97 internautes ce mois-ci

Commenter la réponse de losc_cartouche
cs_MPi 3877 Messages postés mardi 19 mars 2002Date d'inscription 23 août 2018 Dernière intervention - 4 févr. 2008 à 23:43
0
Merci
Comment faire ?
En expliquant un peu mieux...

Tu veux importer où dans VB6 ?
Et que vient faire la "base de données" ? quelle base de données ? Access ?
Donc VB6 et Access et Excel ?

Surtout, ne te trompe pas entre VB6 et VBA...

MPi²
Pour ceux qui programment sous Office, n'oubliez pas qu'il existe un forum dédié à ces applications VBA....... ICI
Commenter la réponse de cs_MPi

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.