Gérer un planning de charge atelier à partir d'une DB Access

Version imprimable

05/02/2020, 11h01
fclus

Gérer un planning de charge atelier à partir d'une DB Access

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
05/02/2020, 11h16
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/
05/02/2020, 11h19
fclus

Merci
Bon, j'ai de la lecture !
05/02/2020, 15h21
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 ?

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

Code:

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?