Je voudrais cr=E9er un classeur Excel =E0 partir de VB6. Je=20
souhiate pouvoir y placer des donn=E9es issues d'une table=20
Access mais aussi des formules. So les formules sont=20
simples tout se passe bien. j'ai toutefois une formule=20
qui prend plusieurs arguments separes par des point=20
virgules. dans ce cas j'ai une erreur =E0 l'execution et je=20
ne trouve pas pourquoi. J'ai =E9crit le suelette de code ci-
dessous. Quelqu'un =E0 deja r=E9alis=E9 cela ou a une id=E9e ???
Grand merci d'avance a tous
Christian ROLET
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Dim cQuote As String
Private Sub Command1_Click()
On Error Resume Next
Set xlApp =3D GetObject(, "Excel.Application")
On Error GoTo 0
If xlApp Is Nothing Then
Set xlApp =3D CreateObject("Excel.Application")
End If
' facultatif
xlApp.Visible =3D True
' cr=E9ation d'un nouveau classeur
Set xlBook =3D xlApp.Workbooks.Add(xlWBATWorksheet)
xlBook.Worksheets.Add
Set xlSheet =3D xlBook.Worksheets(1)
xlApp.ActiveSheet.Name =3D "DA20 5620"
À noter que lorsqu'on utilise la propriété Formula, le point-virgule doit être remplacé par une virgule.
De façon plus générale, en utilisant l'enregistreur de macro sous excel, on peut facilement voir le code généré lorsque l'on rentre manuellement la formule (il suffit d'aller dans l'éditeur Visual basic après avoir enregistré la macro - Menu Outils/Macro/Visual Basic Editor d'Excel).
Cordialement.
Jean Yves
"Christian ROLET" a écrit dans le message de news:1718701c44887$11a99dd0$ Bonjour,
Je voudrais créer un classeur Excel à partir de VB6. Je souhiate pouvoir y placer des données issues d'une table Access mais aussi des formules. So les formules sont simples tout se passe bien. j'ai toutefois une formule qui prend plusieurs arguments separes par des point virgules. dans ce cas j'ai une erreur à l'execution et je ne trouve pas pourquoi. J'ai écrit le suelette de code ci- dessous. Quelqu'un à deja réalisé cela ou a une idée ??? Grand merci d'avance a tous
Christian ROLET
Dim xlApp As Excel.Application Dim xlBook As Excel.Workbook Dim xlSheet As Excel.Worksheet Dim cQuote As String
Private Sub Command1_Click()
On Error Resume Next Set xlApp = GetObject(, "Excel.Application") On Error GoTo 0
If xlApp Is Nothing Then Set xlApp = CreateObject("Excel.Application") End If
' facultatif xlApp.Visible = True
' création d'un nouveau classeur Set xlBook = xlApp.Workbooks.Add(xlWBATWorksheet) xlBook.Worksheets.Add
Set xlSheet = xlBook.Worksheets(1) xlApp.ActiveSheet.Name = "DA20 5620"
À noter que lorsqu'on utilise la propriété Formula, le point-virgule doit
être remplacé par une virgule.
De façon plus générale, en utilisant l'enregistreur de macro sous excel, on
peut facilement voir le code généré lorsque l'on rentre manuellement la
formule (il suffit d'aller dans l'éditeur Visual basic après avoir
enregistré la macro - Menu Outils/Macro/Visual Basic Editor d'Excel).
Cordialement.
Jean Yves
"Christian ROLET" <anonymous@discussions.microsoft.com> a écrit dans le
message de news:1718701c44887$11a99dd0$a101280a@phx.gbl...
Bonjour,
Je voudrais créer un classeur Excel à partir de VB6. Je
souhiate pouvoir y placer des données issues d'une table
Access mais aussi des formules. So les formules sont
simples tout se passe bien. j'ai toutefois une formule
qui prend plusieurs arguments separes par des point
virgules. dans ce cas j'ai une erreur à l'execution et je
ne trouve pas pourquoi. J'ai écrit le suelette de code ci-
dessous. Quelqu'un à deja réalisé cela ou a une idée ???
Grand merci d'avance a tous
Christian ROLET
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Dim cQuote As String
Private Sub Command1_Click()
On Error Resume Next
Set xlApp = GetObject(, "Excel.Application")
On Error GoTo 0
If xlApp Is Nothing Then
Set xlApp = CreateObject("Excel.Application")
End If
' facultatif
xlApp.Visible = True
' création d'un nouveau classeur
Set xlBook = xlApp.Workbooks.Add(xlWBATWorksheet)
xlBook.Worksheets.Add
Set xlSheet = xlBook.Worksheets(1)
xlApp.ActiveSheet.Name = "DA20 5620"
À noter que lorsqu'on utilise la propriété Formula, le point-virgule doit être remplacé par une virgule.
De façon plus générale, en utilisant l'enregistreur de macro sous excel, on peut facilement voir le code généré lorsque l'on rentre manuellement la formule (il suffit d'aller dans l'éditeur Visual basic après avoir enregistré la macro - Menu Outils/Macro/Visual Basic Editor d'Excel).
Cordialement.
Jean Yves
"Christian ROLET" a écrit dans le message de news:1718701c44887$11a99dd0$ Bonjour,
Je voudrais créer un classeur Excel à partir de VB6. Je souhiate pouvoir y placer des données issues d'une table Access mais aussi des formules. So les formules sont simples tout se passe bien. j'ai toutefois une formule qui prend plusieurs arguments separes par des point virgules. dans ce cas j'ai une erreur à l'execution et je ne trouve pas pourquoi. J'ai écrit le suelette de code ci- dessous. Quelqu'un à deja réalisé cela ou a une idée ??? Grand merci d'avance a tous
Christian ROLET
Dim xlApp As Excel.Application Dim xlBook As Excel.Workbook Dim xlSheet As Excel.Worksheet Dim cQuote As String
Private Sub Command1_Click()
On Error Resume Next Set xlApp = GetObject(, "Excel.Application") On Error GoTo 0
If xlApp Is Nothing Then Set xlApp = CreateObject("Excel.Application") End If
' facultatif xlApp.Visible = True
' création d'un nouveau classeur Set xlBook = xlApp.Workbooks.Add(xlWBATWorksheet) xlBook.Worksheets.Add
Set xlSheet = xlBook.Worksheets(1) xlApp.ActiveSheet.Name = "DA20 5620"
