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]

je suis pas sur mais essaie avec ca
au pire si ca marche pas tu recoche l'option

Dans access outils=>Option=>Onglet 'Avancé' dechoche l'option

Ouvrir avec enregistrements verrouillés

 

[Amélie]

Merci pour ton conseil mais ça ne fonctionne pas, toujours la meme erreur...

Je ne comprend vraiment pas pourqui ça ne marche pas et ça m'enerve!!

 

[michel_m]

Bonjour à tout le monde

je n'ai pasl'accès à l'aide ADO (je suis au boulot)

Essaies:

rsT.Open 'Imprimante', Conn, adOpenKeyset, adLockOptimistic

rst.Fields('Save_NdP') = nouvgrp

m^me avec with rst écrit au préalable! j'avais eu un pb de ce genre

Voir aussi si le type du champ save_ndp est comptatible avec le type de la variable nouvgrp non déclarée ( variant pas forcément bien vu par ADO)

Si personne n'a trouvé cet aprèm, je regarderai tout ca at home

Michel

 

[Amélie]

Merci pour ton aide ce probleme de connection est résolu mais il s'en profile un de nouveau :

Qu'est qui genere l'erreur EOF ou BOF parce qu'elle est generée et je ne peux pas mettre à jours tous les champs de la base.

Merci beaucoup!!

 

[Amélie]

Je voudrais tout d'abord remercier du fond du coeur toutes les personnes qui m'ont aidée sans eux je n'y serait jamais arrivé!
Voici mon code pour ceux que ça interesse. Tout fonctionne comme je le desirais! En tout cas pour aujourd'hui!!

Sub exportbdd()
'
' exportbdd Macro
' Macro enregistrée le 14/04/2005 par DUBOIS-15314
'
' EXPORTATION DANS ACCESS de CHANGEMENTs DE VALEURS DE CHAMPS

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, adOpenKeyset, adLockOptimistic

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))
'recherche valeur vide
If rsT.EOF Then
MsgBox 'valeur ' & numero & ' inconnue'
'ActiveSheet.Protect
rsT.Close
Conn.Close
Exit Sub
End If
' inscrit les changements
.Fields('Save_NdP') = nouvgrp
.Update

End With
lig = lig + 1
Wend

'ActiveSheet.Protect

Conn.Close



End Sub