Copier des données depuis Excel 2000 vers Access 2000

  • Initiateur de la discussion Initiateur de la discussion mister113
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

M

mister113

Guest
Bonjour,

Je cherche a renseigner une table dans Access depuis Excel 2000 sans avoir à ouvrir Access.
Dans la table Access, il y a une clef primaire ainsi qu'une donnée de type OUI/NON obligatoire.

Je ne sais pas du tout comment faire ni quelle library prendre (je n'ai pas la microsoft....2.8 (j'ai vu sur quelque forum que c'était celle-ci qu'il me falais))

Quelqun peut il m'aider svp, car la je commence a tourner en rond depuis plusieurs jours. 😱
 
Re : Copier des données depuis Excel 2000 vers Access 2000

Bonsoir,

On peut utiliser DAO ou ADO.
Dans Outils/Références, il faut spécifier les bibliothèques

Microsoft DAO 3.6 dans Outils/Références
ou
Microsoft ActivexDataObject 2.8 Library

Exemples dans la rubrique Access: Formation Excel VBA JB

Création d'une fiche en DAO à patir d'un formulaire Excel:

Code:
Private Sub b_ok_Click()
  'cocher Microsoft DAO 3.6 dans Outils/Références
  Dim bd As Database
  Dim dt As Recordset
  Set bd = OpenDatabase(ActiveWorkbook.Path & "\access2000.mdb")
  Set rs = bd.OpenRecordset("client")
  If Me.nom_client = "" Then
     MsgBox "Saisir un nom!"
     Me.nom_client.SetFocus
     Exit Sub
  End If
  rs.AddNew
  rs!nom_client = Me.nom_client
  rs!ville = Me.ville
  rs!salaire = CDbl(Me.salaire)
  rs.Update
  rs.Close
  bd.Close
  Me.nom_client = Null
  Me.ville = Null
  Me.salaire = Null
  Me.nom_client.SetFocus
End Sub


JB
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.
Retour