passage de office 95 a office 2000

Bonjour,
J'ai un petit probleme, je dois passer d'une version 95 a une version 2000... le probleme, c'est qu'il me traduit les variables en merde...
voila ma procédure, et ensuite, je mettrais la traduction que me fait vba...

Proc Année_à_faire_effacer()
Lachaîne = FeuillesBoîteDialogue("Dialog2").ZoneModification("Modification 5").texte
Application.Feuilles("Annexe1").Activer
Cellules(8; "D").Valeur=LaChaîne
Fin Proc

La traduction :


Sub Année_Affaires_à_Effacer()
LaChaîne = DialogSheets("Dialog2").EditBoxes("Zone d'édition 5").Strings
Application.Sheets("Annexe1").Activate
Cells(8, "D").Value = LaChaîne
End Sub

Ca marche pô... Qu'est ce que je dois faire pour que ca foncitonne ????

Merci
Dr.Joker
Ne faites Confiance A Personne...

Salut,

Je me souviens avoir un peu galéré lors de la conversion de code VBA Excel 95 en 97.

Il n'y a pas grand chose à changer. Mais je crois que c'est la propriété Strings qui n'est pas bonne.
Essai plutôt Text à la place, ou regarde celles qui exsitent.

--------------------
Skrol 29
www.skrol29.com
--------------------


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

Bonjour,
J'ai un petit probleme, je dois passer d'une version 95 a une version 2000... le probleme, c'est qu'il me traduit les variables en merde...
voila ma procédure, et ensuite, je mettrais la traduction que me fait vba...

Proc Année_à_faire_effacer()
Lachaîne = FeuillesBoîteDialogue("Dialog2").ZoneModification("Modification 5").texte
Application.Feuilles("Annexe1").Activer
Cellules(8; "D").Valeur=LaChaîne
Fin Proc

La traduction :


Sub Année_Affaires_à_Effacer()
LaChaîne = DialogSheets("Dialog2").EditBoxes("Zone d'édition 5").Strings
Application.Sheets("Annexe1").Activate
Cells(8, "D").Value = LaChaîne
End Sub

Ca marche pô... Qu'est ce que je dois faire pour que ca foncitonne ????

Merci
Dr.Joker
Ne faites Confiance A Personne...