commande ADO

[fabrice76800]

bonjour à tous,

apres avoir essayer de bricoler une commande ADO en parcourant ici des explications dont j'avoue ne pas avoir tout compris ( rien en fait), je reviens vers vous pour me depatouiller de ma galère.

J'ai deux classeurs : Classeur 1 (ouvert) et classeur 2 (fermé)

Je souhaiterai si c'est possible par une userform (classeur 1) avec combobox1 de choisir une donnée du classeur2 pour ensuite tranférer les données associées vers mon classeur 1.

Possible ou pas?

Par avance de votre réponse, merci de votre aide.

fabrice

 

[BOISGONTIER]

Re : commande ADO

Bonjour,

Voir PJ

Private Sub UserForm_Initialize()
  'Microsoft ActiveX Data Object 2.8 doit être activé
  Dim rs As ADODB.Recordset
  Set cnn = New ADODB.Connection
  répertoire = ThisWorkbook.Path & "\"
  cnn.Open "DRIVER={Microsoft Excel Driver (*.xls)};DBQ=" & répertoire & "classeur2.xls"
  Set rs = cnn.Execute("SELECT * FROM BD WHERE [NoDEVIS]<>''")
  Me.ComboBox1.List = Application.Transpose(rs.GetRows)
  rs.Close
  cnn.Close
  Set rs = Nothing
  Set cnn = Nothing
End Sub

Private Sub ComboBox1_Change()
  Me.TextBox3 = Me.ComboBox1.Column(1)
  Me.TextBox2 = Me.ComboBox1.Column(3)
End Sub

JB