Erreur Syntaxe ds VBA

Salut Tous,

J'ai besoin de votre aide S.V.P.

J'ai un erreur de syntaxe dans mon fichier Excel quand je veux ouvrir mon annuaire de téléphone, à la première ligne :

Private Sub ListView_Annuaire_ItemClick(ByVal Item As MSComctlLib.ListItem)
Dim i As Integer
Dim L As Integer
i = Me.ListView_Annuaire.SelectedItem.Index
Me.TextBox1 = Me.ListView_Annuaire.ListItems(i).Text
For L = 2 To Me.ListView_Annuaire.ColumnHeaders.Count
Me.Controls("Textbox" & L) = ListView_Annuaire.ListItems(i).ListSubItems(L - 1).Text
Next
End Sub

Merci Beaucoup.

Jean.

Bonjour,

il te manque probablement une référence à la librairie mscomctl.ocx.

alt-F11

menu-outils(tools)

references

cliquer sur parcourir (browse) et introduire mscomctl.ocx puis ouvrir (open), puis valider (ok)

alt-f11 pour revenir à excel

Salut h2so4,

Bonne nouvelle, ça fonctionne très bien.

Un très GROS MERCI encore une fois.

Jean