tri alphabétique de donnes Excel avec VB6Résolu

Question

bonjour

j'essaie de créer un petit logiciel avec visua.l basic 6 dont les données sont sous excel et parmis certaines fonctions je veux y intégrer la fonction trier.
J'ai trouvé un code sur ce forum :
Dim Wrd As Object
Dim wbExcel As Object
Dim wsExcel As Object


Set Wrd = CreateObject("Excel.Application")
Set wbExcel = Wrd.Workbooks.Open(CommonDialog1.FileName)
Set wsExcel = wbExcel.Worksheets("Professeurs")


wsExcel.Range("A1:BB2").Select
wsExcel.Selection.Sort Key1:=wsExcel.Range("B2"), Order1:=wsExcel.xlAscending


Wrd.DisplayAlerts = False
Wrd.Save
Wrd.Workbooks.Close

CommonDialog1.FileName est le nom de mon fichier après ouverture avec la boite de dialogue.

Mais quand j'essai cela ne fonctionne pas.

Pouvez vous m'aider à trouver mon erreur.

mortalino · Accepted Answer

salut, voilà une 'tite correction, évite les .. As Object, ce sont des liaisons tardives, mieux vaut les liaisons précoces : Option Explicit Private Sub Form_Load() ' ** dans le menu Outils, Références, coche Microsoft Excel Objects Library 'Dim Wrd As Object 'Dim wbExcel As Object 'Dim wsExcel As Object Dim Wrd As New Excel.Application Dim wbExcel As Excel.Workbook Dim wsExcel As Excel.Worksheet 'Set Wrd = CreateObject("Excel.Application") Set wbExcel = Wrd.Workbooks.Open(CommonDialog1.FileName) Set wsExcel = wbExcel.Worksheets("Professeurs") wsExcel.Select Range("A1:BB2").Select Wrd.Selection.Sort Key1:=Range("B2"), Order1:=xlAscending Wrd.Close True Set Wrd = Nothing Set wbExcel = Nothing Set wsExcel = Nothing End Sub ~ [code.aspx?ID=39466 Mortalino] ~ Colorisation automatique @++ le mystérieux chevalier,"Provençal, le gaulois" Forum Office & VBA

cs_piou62 · Answer

J'avais oublié l'erreur de VB6 m'affiche est

Runetime error 438
object doesn't support this property or method

merci d'avance

cs_piou62 · Answer

Merci beaucoup de votre aide, ca marche impec

cs_piou62 · Answer

Merci beaucoup de votre aide, ca marche impec

Tri alphabétique de donnes Excel avec VB6

4 réponses

Votre réponse

Discussions similaires