Bonjour,
J'ai un prog. VB6 qui ouvre un fichier texte dans Excel97.
Sur mon PC le programme fonctionne bien.
Lorsque j'installe le prog sur un autre PC(celui-ci n'ayant pas Excel97
installé)
j'ai le msg"err exec. 429 Le composanr activex ne peut créer l'objet".
et ce lors de l'instruction "Set APPExcel =
CreateObject("Excel.Application")"
Aurais-je oublié une dll ou autre chose.... lors de l'installation ?
D'avance merci
Jean
Voici une copie de la source de mon programme.
Option Explicit
Dim APPExcel As Excel.Application
Dim WBExcel As Excel.Workbook
Dim WSExcel As Excel.Worksheet
Private Sub CMDFermer_Click()
WBExcel.Close
APPExcel.Quit
Set WSExcel = Nothing
Set WBExcel = Nothing
Set APPExcel = Nothing
Unload FTstExcel
Set FTstExcel = Nothing
End Sub
Private Sub CMDOuvrir_Click()
--> err 429
Set APPExcel = CreateObject("Excel.Application")
APPExcel.Workbooks.OpenText FileName:="C:\TempJean\Saop.txt",
Origin:=xlWindows, _
DataType:=xlDelimited, Tab:=False,
Semicolon:=True, Comma:=False
Set WBExcel = APPExcel.ActiveWorkbook
Set WSExcel = WBExcel.Worksheets(1)
APPExcel.ReferenceStyle = xlA1
APPExcel.Visible = True
WBExcel.SaveAs FileName:="C:\TempJean\SaopJean.xls", FileFormat:=xlExcel4
End Sub
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Pierre Fauconnier
Bonjour
Excel doit être installé pour pouvoir utiliser les objets Excel avec VB6... :-(
Pierre
JeanP wrote:
Bonjour, J'ai un prog. VB6 qui ouvre un fichier texte dans Excel97. Sur mon PC le programme fonctionne bien. Lorsque j'installe le prog sur un autre PC(celui-ci n'ayant pas Excel97 installé) j'ai le msg"err exec. 429 Le composanr activex ne peut créer l'objet". et ce lors de l'instruction "Set APPExcel > CreateObject("Excel.Application")"
Aurais-je oublié une dll ou autre chose.... lors de l'installation ? D'avance merci Jean
Voici une copie de la source de mon programme. Option Explicit Dim APPExcel As Excel.Application Dim WBExcel As Excel.Workbook Dim WSExcel As Excel.Worksheet
Private Sub CMDFermer_Click() WBExcel.Close APPExcel.Quit Set WSExcel = Nothing Set WBExcel = Nothing Set APPExcel = Nothing Unload FTstExcel Set FTstExcel = Nothing End Sub
Private Sub CMDOuvrir_Click() --> err 429 Set APPExcel = CreateObject("Excel.Application") APPExcel.Workbooks.OpenText FileName:="C:TempJeanSaop.txt", Origin:=xlWindows, _ DataType:=xlDelimited, Tab:úlse, Semicolon:=True, Comma:úlse Set WBExcel = APPExcel.ActiveWorkbook Set WSExcel = WBExcel.Worksheets(1) APPExcel.ReferenceStyle = xlA1 APPExcel.Visible = True WBExcel.SaveAs FileName:="C:TempJeanSaopJean.xls", FileFormat:=xlExcel4 End Sub
Bonjour
Excel doit être installé pour pouvoir utiliser les objets Excel avec VB6...
:-(
Pierre
JeanP wrote:
Bonjour,
J'ai un prog. VB6 qui ouvre un fichier texte dans Excel97.
Sur mon PC le programme fonctionne bien.
Lorsque j'installe le prog sur un autre PC(celui-ci n'ayant pas
Excel97 installé)
j'ai le msg"err exec. 429 Le composanr activex ne peut créer
l'objet". et ce lors de l'instruction "Set APPExcel > CreateObject("Excel.Application")"
Aurais-je oublié une dll ou autre chose.... lors de l'installation ?
D'avance merci
Jean
Voici une copie de la source de mon programme.
Option Explicit
Dim APPExcel As Excel.Application
Dim WBExcel As Excel.Workbook
Dim WSExcel As Excel.Worksheet
Private Sub CMDFermer_Click()
WBExcel.Close
APPExcel.Quit
Set WSExcel = Nothing
Set WBExcel = Nothing
Set APPExcel = Nothing
Unload FTstExcel
Set FTstExcel = Nothing
End Sub
Private Sub CMDOuvrir_Click()
--> err 429
Set APPExcel = CreateObject("Excel.Application")
APPExcel.Workbooks.OpenText FileName:="C:TempJeanSaop.txt",
Origin:=xlWindows, _
DataType:=xlDelimited, Tab:úlse,
Semicolon:=True, Comma:úlse
Set WBExcel = APPExcel.ActiveWorkbook
Set WSExcel = WBExcel.Worksheets(1)
APPExcel.ReferenceStyle = xlA1
APPExcel.Visible = True
WBExcel.SaveAs FileName:="C:TempJeanSaopJean.xls",
FileFormat:=xlExcel4 End Sub
Excel doit être installé pour pouvoir utiliser les objets Excel avec VB6... :-(
Pierre
JeanP wrote:
Bonjour, J'ai un prog. VB6 qui ouvre un fichier texte dans Excel97. Sur mon PC le programme fonctionne bien. Lorsque j'installe le prog sur un autre PC(celui-ci n'ayant pas Excel97 installé) j'ai le msg"err exec. 429 Le composanr activex ne peut créer l'objet". et ce lors de l'instruction "Set APPExcel > CreateObject("Excel.Application")"
Aurais-je oublié une dll ou autre chose.... lors de l'installation ? D'avance merci Jean
Voici une copie de la source de mon programme. Option Explicit Dim APPExcel As Excel.Application Dim WBExcel As Excel.Workbook Dim WSExcel As Excel.Worksheet
Private Sub CMDFermer_Click() WBExcel.Close APPExcel.Quit Set WSExcel = Nothing Set WBExcel = Nothing Set APPExcel = Nothing Unload FTstExcel Set FTstExcel = Nothing End Sub
Private Sub CMDOuvrir_Click() --> err 429 Set APPExcel = CreateObject("Excel.Application") APPExcel.Workbooks.OpenText FileName:="C:TempJeanSaop.txt", Origin:=xlWindows, _ DataType:=xlDelimited, Tab:úlse, Semicolon:=True, Comma:úlse Set WBExcel = APPExcel.ActiveWorkbook Set WSExcel = WBExcel.Worksheets(1) APPExcel.ReferenceStyle = xlA1 APPExcel.Visible = True WBExcel.SaveAs FileName:="C:TempJeanSaopJean.xls", FileFormat:=xlExcel4 End Sub
