Erreur de compilation : Objet requis

[Bill607]

Bonjour tout le monde,

Je suis entrain de coder une fonction qui va lire dans une feuille d'un classeur excel, et me permettre de récupérer le contenu de ces cellules dans un autre classeur.

Voila le code :

Function LitUneCellule(repertoire As String, fichier As String, feuille As String, i As Integer)
  'Microsoft ActiveX DataObject 2.8 doit être coché
  Dim cellule As String
  Set cellule = "L" & i   <-- Problème ici 
  Application.Volatile
  Set cnn = New ADODB.Connection
  cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
      "Data Source=" & repertoire & "\" & fichier & _
         ";Extended Properties=""Excel 8.0;HDR=NO;"";"
  Set rs = cnn.Execute("SELECT * FROM [" & feuille & "$" & cellule & ":" & cellule & "]")
  LitUneCellule = rs(0)
  rs.Close
  cnn.Close
  Set rs = Nothing
  Set cnn = Nothing
End Function


Sub Lit()
  
    
   Cells(1, 9) = LitUneCellule("C:/", "UNDUE_VAT_REPORT_TABLE_Macro.xlsx", "Zuzana Bugarova", 1)

End Sub

En gros, cellule doit être de la forme : L1, L2, L3 .... L100 pour que ca marche mais apparrement ca ne veut pas :/

Merci pour toute âme charitable qui trouvera une solution merci beaucoup !!!

 

[Roland_M]

Re : Erreur de compilation : Objet requis

bonjour,

enlever Set

simplement
cellule = "L" & i