Exporter Ligne Excel vers BDD Access

  • Initiateur de la discussion Initiateur de la discussion tdaoui
  • 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 !

tdaoui

XLDnaute Junior
Bonjour le Forum
Bonjour à tous,

Est ce que vous pouvez m'aider à créer la macro quiva me permettre d'exporter des lignes Excel vers une BDD Access SVP

Je souhaite exporter les lignes présentes dans la feuille 'Saisie' du fichier en PJ vers une BDD

Merci pour votre aide les amis
 

Pièces jointes

Re : Exporter Ligne Excel vers BDD Access

Bonjour,


Code:
Private Sub B_ok_Click()
  Set cnn = New ADODB.Connection
  cnn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=Access2000.mdb"
  Sql = "INSERT INTO Client (Nom_client,ville,salaire) VALUES('" & Me.Nom_Client & "','" & _
  Me.Ville & "'," & CDbl(Me.Salaire) & ")"
  cnn.Execute Sql
  cnn.Close
  Set cnn = Nothing
End Sub

ou

  ChDir ActiveWorkbook.Path
  Dim rs As New ADODB.Recordset
  Set cnn = New ADODB.Connection
  cnn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=Access2000.mdb"
  rs.Open "client", cnn, adOpenDynamic, adLockOptimistic
  rs.AddNew
  rs!Nom_Client = Me.Nom_Client
  rs!Ville = Me.Ville
  rs.Update
  rs.Close
  cnn.Close

JB
 
Re : Exporter Ligne Excel vers BDD Access

Bonsoir,
j'ai utilisé le code apres avoir selectionné le Miscrosoft Activex 2.8.
mais je reçois un message d'erreur.
en bref j'ai fait les teapes suivantes :
créer un DB1 sous access.
créer une table nomée Client (avec les champs :Nom_Client, Ville)
créer un classeur Excel dans le quel une feuil avec 3 champs.
inserer le code VBA dans VBA sous feuil 1(String, String)
mais l'importation ne marche pas.
merci de votre aide.
🙁
 
- 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

Discussions similaires

Réponses
22
Affichages
672
Réponses
2
Affichages
420
Réponses
32
Affichages
986
Retour