aidez moi SVP c'est urgent automation

Question

Bonjour, j'utilise le code suivant et il fonctionne très bien sur mon pc (winXP excel 2000) mais dès que je passe sur un autre PC (excel 2000 quand même), il m'indique erreur automation.
pourtant excel 9.0 object library est sélectionné
voila le code aidez moi svp ou je me tire une balle (enfin peut-etre pas)

'***************************************

Set XLS = CreateObject("Excel.application")

XLS.Application.Visible = True

liste.Cols = 4
liste.Rows = 2
For i = 0 To listeconfig.ListCount - 1
    If exporter.listeconfig.Selected(i) = True Then
        For Each frm In Forms
            If listeconfig.List(i) = frm.Caption Then
                For j = 2 To frm.pièces.Rows - 1
                    liste.Rows = liste.Rows + 1
                    liste.Row = liste.Rows - 1
                    frm.pièces.Row = j
                    For k = 0 To 3
                        liste.Col = k
                        frm.pièces.Col = k
                        liste.Text = frm.pièces.Text
                    Next k
                Next j
                Surface = Surface + Val(Mid(frm.lbsurface.Caption, 11, InStr(frm.lbsurface.Caption, "m") - 1))
                poids = poids + Val(Mid(frm.lbPoids.Caption, 15, InStr(frm.lbPoids.Caption, "K") - 1))
            End If
        Next frm
    End If
Next i

Tri_Liste

XLS.Application.Workbooks.Add

XLS.Application.Range("A8").Value = "Référence"
XLS.Application.Range("B8").Value = "Désignation"
XLS.Application.Range("C8").Value = "Poids"
XLS.Application.Range("D8").Value = "Quantité"

For i = 2 To liste.Rows - 1
    liste.Row = i
    liste.Col = 0
    XLS.Application.Range("A" & i + 7).Value = liste.Text
    liste.Col = 1
    XLS.Application.Range("B" & i + 7).Value = liste.Text
    liste.Col = 2
    XLS.Application.Range("C" & i + 7).Value = liste.Text
    liste.Col = 3
    XLS.Application.Range("D" & i + 7).Value = liste.Text
Next i

XLS.Application.Range("A1").Value = "Surface Totale"
XLS.Application.Range("B1").Value = Surface
XLS.Application.Range("A2").Value = "Poids Total"
XLS.Application.Range("B2").Value = poids
XLS.Application.Range("A3").Value = "Date"
XLS.Application.Range("B3").Value = Date
XLS.Application.Range("A4").Value = "Chantier"
XLS.Application.Range("B4").Value = txtchantier.Text

Unload Me

Exit Sub

'*********************************

ps merci de vos réponses

nariel1 · Answer

j'ai eu le meme probleme avec une autre librairy 
j'ai re-installe VB et cela a fonctionner de nouveau
je pense donc qu'il faut que tu re_installe VB

Dis moi si ca marche de nouveau
Nariel1

cs_patou1000 · Answer

non ça marche toujours pas même après une install

le message est le suivant :
Erreur d'exécution '-2147023067 (80070725)'
Erreur Automation
Version incompatible de la carte RPC

please HELP ME

ephores · Answer

Moi aussi j'ai ce problème, as tu trouvé une réponse ?

ephores · Answer

J'ai trouvé la réponse à cette adresse :
http://support.installshield.com/kb/view.asp?articleid=Q105810

c'est du a une dll, differente entre NT, Xp, et W98, selon ce que vous avez faites la procedure.

Voila!

cs_ITALIA · Answer

Le probleme vient de la dll oleaut32.dll
la version 3.50 est utilis&#233;e uniquement par xp celle de W98 c'est la 2.40
si une install de logiciel vous a mis cette version sur votre pc 
sous w98, vous aurez des problemes

reparation:
telecharger dcom98.exe sur le site de microsoft
redemarrer le pc sous ms-dos
sous dos, renommer oleaut32.dll dans le dossier system en
oleaut32.old
cd c:\windows\system
rename oleaut32.dll oleaut32.old
exit

redemarrer normalement le pc sous windows
des message d'erreur concernant cette dll vont apparaitrent
ignorer les en fermant chaque fenetre de message

une fois entr&#233; dans windows
executer le programme dcom98.exe
il va retablir les bonnes dll ole pour windows 98

It@li@

adn28 · Answer

slt

Je dois creer un outil de chiffrage sur vb avec axcel comme base de calcul.

Comment faire?

Aidez moi SVP c'est urgent automation

6 réponses

Discussions similaires