Discussion :

[fclus]

Bonjour à tous
Je souhaite dessiner un planning de charge en allant chercher les infos dans une db access
Toutes les colonnes de mon planning se trouvent dans différentes tables de ma db
Après chargement des données, je modifie mon planning dans Excell et je remonte toutes les infos dans ma db
Je connais le vba sous Access mais pas sous Excell
Comment définir ma connexion avec ma db ?
Comment charger les données dans excell ?
Comment remonter les données dans ma db ?

Merci d'avance pour votre aide

[mfoxy]

Hello

Ci dessous le lien vers d excellents billet de Pierre fauconnier à ce sujet.

En espérant que cela te mette sur la voie.

https://www.developpez.net/forums/d1...s-grace-adodb/

[fclus]

Merci
Bon, j'ai de la lecture !

[fclus]

Est-ce quelqu'un aurait un exemple simple d'un Select d'une table access à partir d'Excell ainsi qu'un update de cette même table ?

[fclus]

Re
J'ai avancé dans mes investigations et j'ai enfin réussi à charger ma feuille Excel

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
Sub Select_TblActivity()
Dim cn As Object, rs As Object
Dim intColIndex As Integer
Dim DBFullName As String
Dim TargetRange As Range
 
On Error GoTo Whoa
Set TargetRange = ActiveSheet.Range("A1")
 
Set cn = CreateObject("ADODB.Connection")
cn.Open "Provider = Microsoft.ACE.OLEDB.12.0;" & _
              "Data Source=\\xxxx\informatique\access\pointages atelier\administration pointages atelier.accdb;" & _
              "Jet OLEDB:Database Password='****';"
 
Set rs = CreateObject("ADODB.Recordset")
rs.Open "SELECT * FROM QryActivityTemps", cn, , , adCmdText
 
' Write the field names
'For intColIndex = 0 To rs.Fields.Count - 1
'    TargetRange.Offset(1 - 1, intColIndex).Value = rs.Fields(intColIndex).Name 'ori nie bylo -1
'Next
 
' Write recordset
TargetRange.Offset(10, 0).CopyFromRecordset rs
 
LetsContinue:
 
On Error Resume Next
rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing
On Error GoTo 0
Exit Sub
Whoa:
MsgBox "Error Description :" & Err.Description & vbCrLf & _
   "Error at line     :" & Erl & vbCrLf & _
   "Error Number      :" & Err.Number
Resume LetsContinue
End Sub

Quelqu'un peut-il me dire comment mettre à jour ma requête en bouclant sur ma feuille xls?