Discussion :

[jeanangel]

Bonjour à tous

J'ai cherché +d'une journée , 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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[leroissejp]

Bonsoir,
Essaye comme ceci.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
32
33
 
Private Sub Option1_Click()
Dim XelApp As Object              '  Aplication
 Dim XelWorkSheet As Object   ' Feuille Calcul
'                          Set Sheet1.Container = XelWorkSheet
 Dim XelStillRunning As Boolean
 'Sheets(1).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
  'Sheets(1).Visible = True
  XelApp.Workbooks.Add
  XelApp.Visible = True
  Set XelWorkSheet = XelApp.ActiveSheet
 
  XelWorkSheet.Cells(1, 1).Value = " Bravo  Alison"
  XelWorkSheet.Cells(1, 1).Value = Replace("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
 
End Sub

jpleroisse