[VB]Récupération de données dans Excel
Bonjour à tous
:roll:
J'ai cherché +d'une journée :evil: , en vain (Doc Bouquin et On-Line)
Je dois travailler depuis VB sur des données Excel. Jusque là, pas de problème. Mais pour des raisons de Design applicatif, j'ai besoin de
visualiser le classeur à l'écran via VB. J'utilise pour cela un Object "Sheet" (Feuille de calcul Microsoft Excel).
Mais là, ou je bute, c'est pour transferer les données de WorkSheet vers
l'objet VB.
Je vous joints un peu de code, et pour les puristes, il y a une ligne flaguée ************* , une fonction Excel "Substitue" qui me fait
aussi des misères.
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31
|
Private Sub Option1_Click()
Dim XelApp As Object ' Aplication
Dim XelWorkSheet As Object ' Feuille Calcul
' Set Sheet1.Container = XelWorkSheet
Dim XelStillRunning As Boolean
Sheet1.SetFocus
' Set Sheet1 = DataObject
On Error Resume Next
Set XelApp = GetObject(, "Excel.Application")
If Err.Number <> 0 Then
Set XelApp = CreateObject("excel.application")
XelStillRunning = False
Else
XelStillRunning = True ' Excel déja Ouvert
End If
On Error GoTo 0
Sheet1.Visible = True
XelApp.Workbooks.Add
XelApp.Visible = True
Set XelWorkSheet = XelApp.ActiveSheet
XelWorkSheet.Cells(1, 1).Value = " Bravo Alison"
' XelWorkSheet.Substitute "Alison", "Ali", "Jea" ' ************************************
XelWorkSheet.Visible = True
' Set Me.Sheet1.Object = GetObject(, "XelApp.xelworksheet") ' 'GetObject(, "excelsheet")
' Sheet1.Object = XelWorkSheet
XelWorkSheet.SaveAs ("c:\data\xeldata\XlBravo.xls"), True
If Not (XelStillRunning) Then XelApp.Quit |
Merci de m'avoir lu
JeanAngel