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

gothc · 3 Juillet 2020

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

VB:

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 · 3 Juillet 2020

dysorthographie · 3 Juillet 2020

Bonsoir,
ADO c'est plus souple que DAO!

VB:

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 · 4 Juillet 2020

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

dysorthographie · 4 Juillet 2020

Bonjour,

VB:

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 · 4 Juillet 2020

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

dysorthographie · 4 Juillet 2020

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 · 4 Juillet 2020

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 · 4 Juillet 2020

Voila

_Thierry · 4 Juillet 2020

Bonsoir à tous

dysorthographie à dit:
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 · 4 Juillet 2020

_Thierry à dit:
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 · 5 Juillet 2020

ok donc le fichier reste inutilisable

dysorthographie · 5 Juillet 2020

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

gothc · 6 Juillet 2020

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

dysorthographie · 6 Juillet 2020

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

VB:

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

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

gothc

XLDnaute Occasionnel

gothc

XLDnaute Occasionnel

dysorthographie

XLDnaute Accro

gothc

XLDnaute Occasionnel

dysorthographie

XLDnaute Accro

gothc

XLDnaute Occasionnel

dysorthographie

XLDnaute Accro

gothc

XLDnaute Occasionnel

dysorthographie

XLDnaute Accro

_Thierry

XLDnaute Barbatruc

dysorthographie

XLDnaute Accro

gothc

XLDnaute Occasionnel

dysorthographie

XLDnaute Accro

gothc

XLDnaute Occasionnel

dysorthographie

XLDnaute Accro

Discussions similaires