Listbox dans 1 fichier excel avec sources d'un autre fichier excel pas obligatoi

Question

Bonjour &#224; vous les bons en informatique !

Je suis tout nouveau ici et dans la programmation, et pour tout vous dire.....je rame !!! je vous explique mon prob :


Dans un fichier excel (fichier1.xls) j'aimerai faire une listbox dont les donn&#233;es sont prises dans une worksheet d'un autre fichier excel (fichier2.xls), tout en sachant que le fichier2 n'est pas obligatoirement ouvert lorsque je me servirai de la listbox, donc, il faudrait peut &#234;tre faire en sorte que la listbox se mette &#224; jour qd j'ouvre le fichier1 non ?

C possible de faire &#231;a ???

J'attends impatiemment vos r&#233;ponses.

Bonne journ&#233;e

michelxld · Answer

bonjour

j'espere que cet exemple pourra t'aider

'
'necessite d'activer la reference Microsoft ActiveX Data Objects x.x Library
'
Dim Fichier As String, Plage As String
Dim Cn As ADODB.Connection
Dim ADOCommand As ADODB.Command
Dim Rs As ADODB.Recordset
Dim Feuille As String


ListBox1.Clear


Fichier = ThisWorkbook.Path & "\classeurFerme.xls"
Feuille = "Feuil1"


Plage = "A1:A10"


Set Cn = New ADODB.Connection
Cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Fichier & ";" & "Extended Properties=""Excel 8.0;HDR=No;"";"


Set ADOCommand = New ADODB.Command
With ADOCommand
.ActiveConnection = Cn
.CommandText = "SELECT * FROM `" & Feuille & "$" & Plage & "`"
End With
  
Set Rs = New ADODB.Recordset
Rs.Open ADOCommand, , adOpenKeyset, adLockOptimistic
  
Set Rs = Cn.Execute("`" & Feuille & "$" & Plage & "`")


Do While Not Rs.EOF
ListBox1.AddItem Rs.Fields(0).Value
Rs.MoveNext
Loop


Rs.Close
Cn.Close

bon week end
michel

Listbox dans 1 fichier excel avec sources d'un autre fichier excel pas obligatoi

1 réponse

Discussions similaires