Problème de conversion entre VBA et VB6

Slt,

Dans un tableau Excel, je recherche la valeur 2 (qui sera égale a combo1 en vb6) dans la colonne (A :A) , en vba cela donne :

    Columns("A:A").Select

    Selection.Find(What:="2", After:=ActiveCell, LookIn:=xlFormulas, LookAt _

        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _

        False, SearchFormat:=False).Activate

Je voudrais la transformer et la mettre en vb6.

Voici comment je le transforme avec l’ouverture du document Excel :

Private Sub Command6_Click() 

Dim AppExcel                    As Object

Dim horaire2005                 As Object

Dim a                                   As Object

Dim FichierXls                   As String

Dim Worksheets                 As String

Dim Columns

  FichierXls = "c:\horaires2005.xls"

  Worksheets = "a"

  Set AppExcel = CreateObject("Excel.Application")

  Set ClasseurExcel = AppExcel.Workbooks.Open(FichierXls)

Columns("A:A").Select

    Selection.Find(What:= combo1, After:=ActiveCell, LookIn:=xlFormulas, LookAt _

        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _

        False, SearchFormat:=False).Activate

‘Une fois que la recherche est faite. Je veux aller dans la même lignes 2 cases plus loin que le résultat de ma recherche. Comment faire ? Après je mets la valeur contenue dans une textbox.

Merci,

Nico

Essaie cette méthode, sans oublier Réferences Microsoft Execl  x Object Lybrari
Si tu veux ensuite copier une valeur dans un TextBox:
Private Sub Combo1_Click()
Text1 = Combo1.Text
End Sub

Option Explicit
Dim wkbObj As WorkBook ' Déclare un objet variable.

Private Sub Form_Load()
' Définit ensuite la variable avec la méthode GetObject.
Set wkbObj = GetObject _
("C:\Documents and settings\Administrateur\Mes documents\Athlétisme.xls")

Dim arrPrices(1 To 7)  'Nbre de lignes
Dim i As Integer
For i = 1 To 7
   ' Remplit le tableau avec sept valeurs issues
   ' de la colonne B de la feuille.
   arrPrices(i) = wkbObj.Worksheets("Liste") _
   .Range("A" & i + 1).Value
 Combo1.AddItem arrPrices(i)
Next i
End Sub