Dim répertoire
Dim fichier
Private Sub UserForm_Initialize()
'Microsoft ActiveX Data Object 2.8 doit être activé
Dim rs As ADODB.Recordset
Set cnn = New ADODB.Connection
fichier = "\\SC\transferts\PRODUITS\REFERENCEMENT\BDD\Copie-BDD-B2B-B2C.xls"
cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & répertoire & fichier & ";Extended Properties='Excel 12.0;HDR=Yes'"
Set rs = cnn.Execute("SELECT code_fournisseur FROM BDD WHERE code_fournisseur<>''Group By code_fournisseur")
Me.ComboBox1.List = Application.Transpose(rs.GetRows)
rs.Close
cnn.Close
Set rs = Nothing
Set cnn = Nothing
SendKeys "{F4}"
End Sub