XL 2016 base de données Access depuis un fichier Excel.

[gothc]

Bonjour le forum j'ai un probleme avec mon fichier quand il demarre j'ai une erreur

erreur de compilation projet ou bibliothèque introuvable
Set BD_Employes = DAO.OpenDatabase(ActiveWorkbook.Path & "\BD_Employés.mdb", False, False)

j'ai bien mon dossier EMPLOYES avec mon fichier excel et mon fichier access BD_Employés.mdb
Merci de votre aide

Private Sub Workbook_Open()
    Dim Base_Analyse As Database
    Dim Table_ANALYSE As Recordset
   
    Application.EnableEvents = True
   
   
    Sheets("Employés").EMP_liste_rubriques.Clear

Sheets("Employés").EMP_liste_rubriques.AddItem "Col. Sélectionnées"
Sheets("Employés").EMP_liste_rubriques.AddItem "TOUT"
Sheets("Employés").EMP_liste_rubriques.AddItem "TELEPHONIE"
Sheets("Employés").EMP_liste_rubriques.AddItem "RENSEIGNEMENTS_GENERAUX"
Sheets("Employés").EMP_liste_rubriques.AddItem "CACES"
Sheets("Employés").EMP_liste_rubriques.AddItem "PERMIS"
Sheets("Employés").EMP_liste_rubriques.AddItem "HABILITATIONS"
Sheets("Employés").EMP_liste_rubriques.AddItem "SECOURISME"
Sheets("Employés").EMP_liste_rubriques.AddItem "MEDICAL"



        Set BD_Employes = DAO.OpenDatabase(ActiveWorkbook.Path & "\BD_Employés.mdb", False, False)
        Set Table_employes = BD_Employes.OpenRecordset("SELECT Employés.* " & _
        "FROM Employés " & _
        "ORDER BY Employés.Nom ASC", dbOpenDynaset)
       
        If Table_employes.RecordCount = 0 Then GoTo 888
        Table_employes.MoveFirst
        Table_employes.MoveLast
        aa = Table_employes.RecordCount
       
        Sheets("Fiche individuelle").fi_liste_employes.Clear
        Table_employes.MoveFirst
        ligne = 1
            Sheets("Fiche individuelle").fi_liste_employes.AddItem
       
        For bb = 0 To aa - 1
       
            Sheets("Fiche individuelle").fi_liste_employes.AddItem
            Sheets("Fiche individuelle").fi_liste_employes.List(ligne, 0) = Table_employes.Fields("N°_Enr").Value
            On Error Resume Next
            Sheets("Fiche individuelle").fi_liste_employes.List(ligne, 1) = Table_employes.Fields("Nom").Value
            On Error Resume Next
            Sheets("Fiche individuelle").fi_liste_employes.List(ligne, 2) = Table_employes.Fields("Prénom").Value
            Table_employes.MoveNext
           
            ligne = ligne + 1
       
        Next bb
       
       
888:
        Table_employes.Close
        Set Table_employes = Nothing
       
    BD_Employes.Close
    Set BD_Employes = Nothing
   
    Sheets("Employés").Activate
    Sheets("Employés").ScrollRow = 10
   
BD_Aniv_Saint.Show

 

[gothc]

 

[dysorthographie]

Bonsoir,
ADO c'est plus souple que DAO!

Sheets("Fiche individuelle").fi_liste_employes.Clear
With CreateObject("Adodb.connection")
   .Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ActiveWorkbook.Path & "\BD_Employés.mdb;"
   Sheets("Fiche individuelle").fi_liste_employes.Column = .Execute("SELECT Employés.* FROM Employés ORDER BY Employés.Nom ASC").GetRows
   .Close
End With

 

[gothc]

dysorthographie bonjour merci de ton aide
je colle ton code ou ( entre quoi et quoi Merci )

 

[dysorthographie]

Bonjour,

Private Sub Workbook_Open()
Application.EnableEvents = True
Sheets("Employés").EMP_liste_rubriques.List = Array("TOUT","TELEPHONIE","RENSEIGNEMENTS_GENERAUX","CACES","PERMIS","HABILITATIONS","SECOURISME","MEDICAL")

Sheets("Fiche individuelle").fi_liste_employes.Clear
With CreateObject("Adodb.connection")
   .Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ActiveWorkbook.Path & "\BD_Employés.mdb;"
   Sheets("Fiche individuelle").fi_liste_employes.Column = .Execute("SELECT Employés.* FROM Employés ORDER BY Employés.Nom ASC").GetRows
   .Close
End With
     
 
    Sheets("Employés").Activate
    Sheets("Employés").ScrollRow = 10
 
BD_Aniv_Saint.Show

 

[gothc]

j'ai un probleme avec le fichier je laisse un WebTransfer

 

[dysorthographie]

Désolé mais le site de téléchargement me demande d'accepter les cookies !

Mais en revanche tu peux Ziper et le mettre sur ce site!

 

[gothc]

j'ai le lien du site

Sign in - Google Accounts

EMPLOYES

	ċ	BD_Employés.mdb Télécharger		16828 Ko	v. 3	8 févr. 2017 à 20:50	Didier Pelletier
	Ĉ	Gestion_Employés.xls Afficher Télécharger		9948 Ko	v. 2	11 janv. 2020 à 20:52	Didier Pelletier

 

[dysorthographie]

Voila

 

[_Thierry]

Bonsoir à tous

Bonsoir,
ADO c'est plus souple que DAO!

Et il y a pas mal d'années Microsoft annonçait déjà le "End Life Cycle" de DAO, je ne sais même pas si il est encore accessible sur les dernières versions 365 et 2019....

Lui préférer ADO sans hésitation !

Bonne nuit
@+Thierry

 

[dysorthographie]

Bonsoir à tous



Et il y a pas mal d'années Microsoft annonçait déjà le "End Life Cycle" de DAO, je ne sais même pas si il est encore accessible sur les dernières versions 365 et 2019....

Lui préférer ADO sans hésitation !

Bonne nuit
@+Thierry

Si si je suis sur 365 pro 64 bits mais utiliser DAO en dehors d'Access est une hérésie !

En dot.net on utilise une autre technologies mais Ado est accessible bien que pas recommandé. Pas suffisamment sécurisé.
Ado reste cependant la méilleur techno pour VBA.

 

[gothc]

ok donc le fichier reste inutilisable

 

[dysorthographie]

Tu n'as pas cliqué sur le lien que j'ai mis plus haut ?
Le revoilà

 

[gothc]

Bonjour le fichier est (fichier corrompu quand je l'ouvre)
Merci

 

[dysorthographie]

bonjour,
donc je te redonne le code qu'il faut mettre en lieu et place de l’existant!

Private Sub Workbook_Open()
    Application.EnableEvents = True
    Sheets("Employés").EMP_liste_rubriques.List = Array("Col. Sélectionnées", "TOUT", "TELEPHONIE", "RENSEIGNEMENTS_GENERAUX", "CACES", "PERMIS", "HABILITATIONS", "SECOURISME", "MEDICAL")

    Sheets("Fiche individuelle").fi_liste_employes.Clear
    With CreateObject("Adodb.connection")
       .Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ActiveWorkbook.Path & "\BD_Employés.mdb;"
       Sheets("Fiche individuelle").fi_liste_employes.Column = .Execute("SELECT Employés.* FROM Employés ORDER BY Employés.Nom ASC").GetRows
       .Close
    End With
   
    Sheets("Employés").Activate
    ActiveWindow.ScrollRow = 10
   
BD_Aniv_Saint.Show
End Sub