losc_cartouche
Messages postés51Date d'inscriptionmardi 6 février 2007StatutMembreDernière intervention25 mars 2008 5 févr. 2008 à 08:40
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