AccueilCodesTutorielsForumsEmploiLivresGuide achatConnexion

  • Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS
  • RSS CodeS-SourceS
  • CodyxBot, le Bot GTalk & MSN qu'il vous faut !
  • Générez des revenus avec vos codes, scripts et tutoriaux
  • Aide à la navigation du site
begin process at 2009 07 06 20:23:30
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

Sujet : aidez moi SVP c'est urgent automation [ Archives Visual Basic / J'AI BESOIN D'AIDE !!!! :) ] (patou1000)

vendredi 12 juillet 2002 à 12:00:28 | aidez moi SVP c'est urgent automation

patou1000
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
vendredi 12 juillet 2002 à 12:30:57 | Re : aidez moi SVP c'est urgent automation

nariel1

Membre Club

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


-------------------------------
Réponse au message :
-------------------------------

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
vendredi 12 juillet 2002 à 15:05:22 | Re : aidez moi SVP c'est urgent automation

patou1000
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


-------------------------------
Réponse au message :
-------------------------------


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


-------------------------------
Réponse au message :
-------------------------------

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
vendredi 4 juin 2004 à 08:24:07 | Re : aidez moi SVP c'est urgent automation

ephores

Moi aussi j'ai ce problème, as tu trouvé une réponse ?
lundi 7 juin 2004 à 12:16:24 | Re : aidez moi SVP c'est urgent automation

ephores

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!
lundi 3 janvier 2005 à 15:49:21 | Re : aidez moi SVP c'est urgent automation

ITALIA

Membre Club
Le probleme vient de la dll oleaut32.dll
la version 3.50 est utilisé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é dans windows
executer le programme dcom98.exe
il va retablir les bonnes dll ole pour windows 98


It@li@
vendredi 11 février 2005 à 09:43:52 | Re : aidez moi SVP c'est urgent automation

adn28
slt

Je dois creer un outil de chiffrage sur vb avec axcel comme base de calcul.

Comment faire? 


Cette discussion est classé dans : application, liste, xls, value, range

Répondre à ce message

Sujets en rapport avec ce message

Exécution du code lors de la modification de la feuille [ par scuderia ] Je souhaite exécuter la boucle lorsque la feuille est modifiée. La super boucle de mon code ne s'arrête pas c'est normal ...Comment remplacer le Works Multiplication soustraction de cellules en VBA [ par kinetix ] Bonjour a tous,J'ai besoin de réaliser l'opération suivante E21+(A25-E22)*A12*A17 lorsque je clique sur un bouton.J'ai donc fait le code suivant mais [Excel | VBA] Enregistrer données dans 2 classeurs différents à la fois [ par AiDuK ] Bonjour tout le monde,Je cherche à faire une manipulation un peu hasardeuse.En fait, j'ai 2 classeurs ( GestionFIQ.xls et bddFIQ.xls ), ce que je souh copier coller en couleur [ par patbl ] bonjour,je suis perdue depuis quelques jours la je bloque, j'ai besoin de votre aide ce que je veux faire j'ai une feuille "ne pas toucher" et une aut VBA Access probleme Automation [ par darkspoilt ] Bonjour,j'ai un gros souci mon code s'éxécute mais sans ma fenêtre Excel rien de se passe si quelqu'in peut me le dire pourquoi merci d'avance. Voila erreur de copie de worksheet [ par tonton33650 ] Bonjour,Je viens de creer une macro qui me permet de creer un nouvel onglet pour chaque valeur (chaque valuer etant unique) qui se trouve dans mon por Piloter une autre application [ par jnmchl ] Bonjour, Je cherche à faire une application qui sert d'interface entre une application personnelle et une application professionelle : j'explique l' Macro 3 sur feuilles [ par enilec89 ] Bonjour a tous, J'ai cette macro qui copie des cellules de F1 à F2. (Ci-dessous) Il faudra Simplifier liste Combobox [ par Isapel ] Bonjour,J'ai créé une Combobox, mais ma liste est longue, et ca se ressent sur le code..., est-il possible de raccourcir tout ça sur une seule ligne?E Liste Modifiable + selection [ par Kickaha59 ] Bonjour à tous,Dans le cadre de mon travaul, je réalise une base de donnée sous access.Mon problème est le suivant :J'aimerai définir la valeur de plu


Nos sponsors

Sondage...

CalendriCode

Juillet 2009
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
2728293031  

Consulter la suite du CalendriCode

Téléchargements

Logiciels à télécharger sur le même thème :

Comparez les prix Nouvelle version


Apple iPod touch 2nde Gén. Noir 8 Go (Mac/PC)
Entre 209€ et 345€


Visiter le guide achat

Photothèque Nouveau !

Photo friends at the beach.Photo Cockpit Airbus A320
Photo femme, plage, bien être, soleil, vacances, été, détente, reposPhoto plan seul

Visiter la photothèque


Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés
Temps d'éxécution de la page : 0,452 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.