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 :
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 !!!
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 :
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 SubEn 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 !!!