Discussion :

[DevProgBr]

Une confirmation,

Est il possible par une requête mise à jour de modifier les données d'une table liée au format excel ?

Cette opération était possible sous access 2002, je viens de faire le saut vers 2010. La requête est en erreur.

Faut il passer par la programmation sous access ou sous excel ou modifier un paramétrage dans l un ou l autre logiciel ?

Merci d avance

[loufab]

Bonjour,

Non pas avec des feuilles Excel attachées.

Passe par l'automation.

Cordialement,

[LedZeppII]

Bonjour,

Ce n'est effectivement pas possible : http://support.microsoft.com/kb/904953/fr

J'y arrive avec ADO en ouvrant directement le classeur.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
Dim oConn As ADODB.Connection, rs As ADODB.Recordset
Dim strFichXl As String, strFeuilleXl As String
Dim strTable As String
 
strFichXl = "E:\Classeur1.xls"
strFeuilleXl = "Feuil1"
 
Set oConn = New ADODB.Connection
 
' Providers possibles
'  |-> Microsoft.Jet.OLEDB.4.0   (Access 2000~2003, 2007)
'  |    '-> Excel 8.0
'  |
'  '-> Microsoft.ACE.OLEDB.12.0  (Access 2007)
'       |-> Excel 8.0        (.xls)
'       |-> Excel 12.0       (.xls et .xlsx)
'       '-> Excel 12.0 Xml   (idem Excel 12.0)
 
oConn.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & _
           "Data Source=" & strFichXl & ";" & _
           "Extended Properties='Excel 12.0 Xml;HDR=YES';"
 
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
 
' On ajoute le caractère $ au nom de la feuille et on met le tout
' entre crochets droits
strTable = "[" & strFeuilleXl & "$]"
' Ouvre un recorset sur l'onglet
rs.Open strTable, oConn, adOpenStatic, adLockOptimistic, adCmdTable
 
If Not rs.EOF Then
   rs("Date2") = Now()
   rs("Val2") = rs.RecordCount
   rs.Update
End If
 
rs.Close
Set rs = Nothing
oConn.Close
Set oConn = Nothing

A+