Probleme avec Access

[Amélie]

Bonjour à toutes et tous !

J'aimerais importer sous excel des données d'une table access. Pour cela j'ai regarder les différents exemples proposés sur le site mais quand je veux les appliquer à mon fichier j'ai un gros problème. On m'indique une erreur de compilation ('Type defini par l'utilisateur non défini') sur le debut du prog cad :

Dim Conn As ADODB.Connection
Dim rsT As ADODB.Recordset
Dim fld As ADODB.Field

Please aidez moi!!!

 

[Riddick]

J'ai eu le meme prob hier
tu dois activer des option dans VBA

Outils Référence

ajoute le bibliotheque qui doivent etre dans les fil que tu as lu

 

[21ch181]

Bonjour M'dame Amélie,

Je défonce une porte ouverte mais as tu essayer d'exporte diretement ta table au format excel depuis access ?

menu outil-laison office- analyse avec excel
ou
fichier-exporter ==> choisir le type xls qui convient

A+
Alain

 

[Riddick]

Autant pour moi
Bonjour a toi
Bonjour au Forum
Quel manque de politesse de ma part

 

[MichelXld]

bonjour Amelie

as tu activé la la reference 'Microsoft ActiveX Data Objects x.x Library'
( x dépend de la version que tu utilises )

dans l'editeur de macros
Menu Outils
References
coches la ligne 'Microsoft ActiveX Data Objects x.x Library'
cliques sur OK pour valider


bonne journée
MichelXld

 

[MichelXld]

bonjour Riddick , rebonjour Alain

...oouuppss...désolé , je n'avais pas vu vos messages...


bonne journée
MichelXld

 

[Amélie]

Merci beaucoup por ces conseils!!

J'en aurais un deuxième à vous demander :

J'ai donc ma table sous access comme suit :

Nom Age Adresse
-------------------------------------
titti 10 Paris
toto 12 Paris
tutu 22 Nanterre

Lorsque j'importe et que je veux afficher ma table sous excel, je n'arrive à afficher qu'une seule ligne (la première).

Pouvez vous m'aider à resoudre ce problème??

Merci pour votre aide!!!

 

[Riddick]

Je ne suis pas sur de pouvoir t'aider mais voir ton code pourrais nous aider a resoudre ton probleme
Merci....

 

[MichelXld]

rebonjour Amélie

peux tu préciser en détail la procédure que tu utilises actuellement ?



bonne journée
MichelXld

 

[Amélie]

C'est bon le problème est résolu!!
J'aurai peut-etre encore besoin de votre savoir alors rester dans le coin et venez régulièrement voir les messages d'Amélie!!!



Bonne journée tout le monde!!

 

[Amélie]

J'ai de nouveau un problème :

Je veux desormais exporter mes données dans une table bien precise qui existe déjà.
Le problème c'est que je ne sais pas comment me 'connecter' à cette table. En fait j'arrive à me connecter à la base mais après comment lui indiquer sur quelle table travailler ??

Je vous remercie!!!

 

[_Thierry]

Bonjour Amélie, Riddick, re ALain, Michel, le Forum

Je pense déjà pour que ce fil ne reste pas non-plus à sens unique, il serait très interressant de voir les procédures que tu utilises, comme Riddick et Michel te l'ont déjà signalé...

Donc poste nous le code complet ça aura deux avantages... Soit on pourra te l'améliorer, soit on pourra apprendre/voir de nouvelles méthodes.

Bon Appétit
@+Thierry

 

[Amélie]

Désolé je peux pas installé winzip alors voici :

Dim Conn As ADODB.Connection
Dim rsT As ADODB.Recordset
Dim fld As ADODB.Field
Dim i As Long

ActiveSheet.Unprotect
Application.ScreenUpdating = False

' Création de l'objet Connexion
Set Conn = New ADODB.Connection
With Conn
' Définition du fournisseur OleDB pour la connexion
.Provider = 'Microsoft.JET.OLEDB.4.0'
' Ouverture d'une connexion
.Open ThisWorkbook.Path & '\\bd1.mdb'
End With

Set rsT = New ADODB.Recordset

rsT.Open 'Imprimante', Conn, adOpenDynamic

nbre = Range('D65536').End(xlUp).Row
lig = 2
While lig <= nbre
numero = Cells(lig, 4)
nouvgrp = Cells(lig, 7)
With rsT
.MoveFirst

'recherche la fiche concernée
.Find ('Adresse_IP=' & (numero))
' exclusion si numéro de fiche inconnu


' inscrit les changements
.Fields('Save_NdP') = nouvgrp
.Update

End With
lig = lig + 1
Wend


Je pense que celaz fonctionne mais j'ai un autre probleme. Lorsque j'éxécute ceci il me met une erreur sur le champs fields que voici :
'Le jeu d'enregistrements suivant ne prend pas en charge la mise à jour.Il s'agit peut-etre d'une limitation du fournisseur ou du type de verrou selectionné'

J'espere que vous allé trouver ça fait 2h que je m'épuise!!!

 

[Riddick]

Re a tous
Bonjour a Thierry

Je suis vraiment heureux de rencontrer le grand Thierry
J'ai suivi tellement de tes conseils.... Enfin

Je suis d'accord pour voir ton code Amelie

mais je t'invite a regarder un fil a moi de hier nommé
'Requête Access à partir d'Excel'

et de telecharger le ZIP de Michel appeler demodao il me semble

et un autre fil
'Piloter une base Access par ActiveX Data Objects'

et le zip
ImportExport Access AtivX.......zip
et la base qui est dans le mess d'apres
de MichelXld

J'ai trouvé beaucoup de choses avec ca
Je ne sais pas si tu les a trouvé (peut etre pas les deux)
Enfin voilà

 

[Amélie]

Je travaille justement à partir de ces 2 exemples qui sont très bien mais la façon de se connecter à la base est différente. A cette heure ci c'est surtout le message d'erreur qui m'ennuie!!