'XXXXXXX IMPORTANT POUR QUE LE PROGRAMME FONCTIONNE XXXXXXXXXXX
'Outils - Référence - Activé
'Microsoft ActiveX Data Object 2.8 Library
'Microsoft ADO Ext 6.0 for DDL and Security
'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
Private Sub UserForm_Initialize()
Dim I As Integer, Largeur As Integer
Dim xlSheet As Variant
Dim Cat As New ADOX.Catalog
Set Cnn = New ADODB.Connection
Set Cat = CreateObject("ADOX.Catalog")
'répertoire = "C:\0. PROGRAMME JRE\BDD DIVERS 2012\"
Répertoire = ThisWorkbook.Path & "\"
Fichier = "BDD MSIT 2012.xlsm"
Cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Répertoire & Fichier & ";Extended Properties='Excel 12.0;HDR=Yes'"
Set Cat.ActiveConnection = Cnn
' Vider la combobox
Me.ComboBox1.Clear
' Trouver les feuilles (tables) de la BdD
For Each xlSheet In Cat.Tables
If Right(xlSheet.Name, 1) = "$" Then
Me.ComboBox1.AddItem Left(xlSheet.Name, Len(xlSheet.Name) - 1)
End If
Next
' Fermer lex connection et vider les variables objet
Set Cat = Nothing
Cnn.Close
Set Cnn = Nothing
'
For I = 1 To 5
If I = 1 Then Largeur = 120 Else Largeur = 200
Me("ListView" & I).ColumnHeaders.Add , , "niveau" & I, Largeur
Me("ListView" & I).Gridlines = True
Me("ListView" & I).View = Lvwreport
'With Me.ListView5
'With .ColumnHeaders
'.Clear
'.Add , , "niveau" & I, Largeur 'Add 1ère colonne
'.Add , , "Unité", 40, 4 'Add 2ème colonne
'.Add , , "Prix", 40, 4 'Add 3ème colonne
'End With
'End With
Next
Me.Label1.Visible = False
Set Cnn = Nothing
Set Cat = Nothing
SendKeys "(F4)"
End Sub