Quels solutions avec access et excel ?

Re : Quels solutions avec access et excel ?

bonjour,

Ci dessous macro pour importer une table ou une requete access dans Excel; exemple à adapter

Sub importer_access()

Dim source As ADODB.Connection
Dim t_list As ADODB.Recordset
Dim chemin As String, texte_SQL As String

chemin = ActiveWorkbook.Path
' ouvre la base de données Access (microsoft jet)
Set source = New ADODB.Connection
source.Provider = "Microsoft.Jet.OLEDB.4.0;"
source.Open chemin & "\demoado.mdb"

Set t_list = New ADODB.Recordset
'requete SQL dans t_demo de tous les champs
texte_SQL = "SELECT * FROM T_demo"
Set t_list = source.Execute(texte_SQL)

'reporte dans home.xls
Application.ScreenUpdating = False
Range("A2").CopyFromRecordset t_list

'ferme la requête et demoado.mdb
t_list.Close
source.Close

End Sub
------------------------------------------
En ce qui concerne l'enregistrement des modifs dans Excel vers Access, il faudrait que tu fasse une variable tablo avec ces modifs (ou toutes les données...) qui serait reportée dans access. Exemple:


' ouverture de la database
fichier = ActiveWorkbook.Path & "\demoado.mdb"
Set mère = New ADODB.Connection
mère.Open "Provider = Microsoft.Jet.OLEDB.4.0;" & _
"data source=" & fichier & ";"

'ouverture de t_demo
Set import = New ADODB.Recordset
import.Open "t_demo", mère, adOpenKeyset, adLockOptimistic

' écrit les valeurs du tableau dans les champs des enregistrements
With import
.MoveFirst
lig = 0
col = 0
Do While lig < nbre
' recherche le "num" de t_demo
.Find "num = " & tablo(lig, col)
'si num inconnu
If .EOF Then
'signale des numéros inconnus
MsgBox "valeur " & tablo(lig, col) & " et suivantes inconnues dans la base de données "
' voir ici pour créer un nouvel enregistrement avec addnew
Exit Do
End If
' on aurait pu boucler pour remplir les champs mais...
import.Fields("nom") = tablo(lig, col + 1)
import.Fields("origine") = tablo(lig, col + 2)
import.Fields("grp") = tablo(lig, col + 3)
.Update
' incrémente
.MoveNext
lig = lig + 1
Loop
End With

'fin d'écriture access
import.Close
mère.Close

MsgBox "opération terminée"

End Sub


A+ et bon courage !
Michel_M

Re : Quels solutions avec access et excel ?

Merci test ça ce soir est je dis quoi demain au boulot.

bonne soirée

Re : Quels solutions avec access et excel ?

il n'est pas utile de rajouter des références pour l'exécution des macros ?

J'ai trouvé pour cette question

Re : Quels solutions avec access et excel ?

Bonjour,

La référence est celle que tu indiquais hier dans un post:

Microsoft activeX data object 2.x library

A+
Michel_M

Re : Quels solutions avec access et excel ?

Voilà j'ai mis en place le script pour mettre à jours:


Mais il me met un erreur, il me sourligne tablo(lig, col) est me dit valeur ou fonction non déclarer.

Savez vous d'ou sa peut venir ?


base de donnée
Lien supprimé

fichier excel
Lien supprimé

Re : Quels solutions avec access et excel ?

Re,

Avant d'effectuer la connection avec Access, il faut que tu remplisses ton tableau (tablo) avec une boucle dans la feuille Excel: ce sont ces valeurs qui seront mis à jour (update) dans la base de données Access; fais attention de ne pas exporter les étiquettes de la "base" excel...

D'autre part, n'oublie pas les déclarations

Enfin, tu as recopié "num" qui correspond dans ma base (demoado.mdb) au numéro en clé primaire: as tu ce même champ ?

J'essayes de joindre ma base access si cela peut t'aider

A+
Michel_M

Re : Quels solutions avec access et excel ?

Merci pour la réponse, je vois mes erreurs.

Pourrais tu me mettre ton fichier excel d'exemple qui va bien avec la base qui tu ma fournie ?

merci d'avance

Re : Quels solutions avec access et excel ?

Bonjour,

Te fournir la feuille Excel ne te servirait à rien car il s'agissait de montrer comment reporter des données dans Access en provenance d'un classeur fermé...

Dans ta feuille Excel, il suffit de créer un tableau avec 2 boucles (horizontale et verticale). Si tu es géné avec le "comment faire" un tableau (on ne peut pas tout savoir), je te conseille le site "info-3000" très pédagogique où j'y ai appris des tas de choses: Les tableaux.
Tu as aussi le WIKI de MichelXLD sur le sujet.

A+
Michel_M

Re : Quels solutions avec access et excel ?

bonjour Therafou , bonjour cher Michel

En ce qui concerne les tableaux, il ne faut pas oublier le Kiki de Zon...;o)

Lien supprimé


bon apres midi
MichelXld