Bonjour à tous,
Je voudrai récupérer des cellules dans un classeur fermé ( je suis sous Excel 2010 )
mon code est le suivant :
Ma question est : Comment expliquez-vous que ce code marche nickel pour un fichier excel 2010 avec une extension .xlsm 2010 ( prenant en charge les macros ) et qu'il plante ( au niveau du 'ICI' ) quand je l'utilise sur une extension .xlsx 2010 ?
Tout commentaire sera le bienvenu 🙂
Merci beaucoup à tous !
Je voudrai récupérer des cellules dans un classeur fermé ( je suis sous Excel 2010 )
mon code est le suivant :
Code:
Function LitUneCellule(repertoire As String, fichier As String, feuille As String, i As Integer)
'Microsoft ActiveX DataObject 2.8 est coché, ce n'est pas ça le soucis !
Dim cellule As String
cellule = "A" & i & ":A" & i
Application.Volatile
Set cnn = New ADODB.Connection
'--- Connexion ---
With cnn
.Provider = "Microsoft.Jet.OLEDB.12.0"
.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" _
& repertoire & "\" & fichier & ";Extended Properties=""Excel 12.0;HDR=NO;"""
.Open <---- ICI
End With
'-----------------
Set rs = cnn.Execute("SELECT * FROM [" & feuille & "$" & cellule & "]")
LitUneCellule = rs(0)
rs.Close
cnn.Close
Set rs = Nothing
Set cnn = Nothing
End FunctionMa question est : Comment expliquez-vous que ce code marche nickel pour un fichier excel 2010 avec une extension .xlsm 2010 ( prenant en charge les macros ) et qu'il plante ( au niveau du 'ICI' ) quand je l'utilise sur une extension .xlsx 2010 ?
Tout commentaire sera le bienvenu 🙂
Merci beaucoup à tous !