1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31
| 'Bouton sur la page d'accueil qui permet d'aller consulter la feuille contenant l'archivage des indisponibilités
Private Sub ConsulterArchivage_Button_Click()
Application.ScreenUpdating = False
Dim vCnx As New ADODB.Connection 'Accès ADO
Dim vT_Arch As New ADODB.Recordset 'Visu table tab_indispo via accès ADO
Dim vChp As Field
Dim i As Integer
Dim acc_prov, access_source As String
fich_macro = "AMAPE Hydrant.xlsm"
'Initialisation des liens avce access
acc_prov = "microsoft.ACE.OLEDB.12.0" 'Provider pour la version 2010
access_source = Workbooks(fich_macro).Worksheets("Paramètres").Range("BD")
vCnx.ConnectionString = "provider=" & acc_prov & ";data source=" & access_source
vCnx.Open
vT_Arch.Open "tab_ArchivageIndispoHydrant", vCnx, adOpenDynamic, adLockOptimistic
'Range(Range(Range("A2"), Range("A2").End(xlToRight)), Range("A2").End(xlDown)).ClearContents
'Partie Aquérir les données
With vT_Arch
While Not .EOF
If .EOF = False Then
Arch_LB.AddItem .Fields("Numéro hydrant").Value
.MoveNext
End If
Wend
End With
vT_Arch.Close 'libérer la zone mémoire de la table
Set vT_Arch = Nothing 'vider l'espace mémoire de la table
End Sub |
Partager