erreur lors d'un clic bouton crée dans excel Résolu/Fermé

Question

Bonjour,

J'ai un fichier excel dans lequel j'ai implémenté un bouton.

J'ai bien sur affecté du code à ce bouton...
J'ai testé avec un simple affichage d'une massagebox (dans le code du bouton) et ca marche
mais avec ca en plus dans le code : 
"dim base as database" (je veux relier ma base de donnée access),
 excel me sort l'erreur suivante :

"Erreur de compilation dans le module caché : "nom_de_mon_module_appelé"

Je comprends pas! D'où ça pourrait venir

Polux31 · Answer

bonjour,

As-tu coché dans Outils -> références -> Microsoft DAO x.x Object library ou quelque chose comme ça ?

;o)

polux

starnours · Answer

Non, je n'ai rien coché. Je n'arrive pas à trouver où l'on peut trouver ça... :-(

starnours · Answer

C'est bon j'ai trouvé! Merci encore Polux31, tu es d'une efficacité consternante!

Polux31 · Answer

de rien starnours, c'est toujours avec plaisir que j'essaie d'aider ... ... "efficacité consternante" ...mdrrr ... ce n'est que de la pratique dans le cadre de mon boulot, rien d'extraordinaire ... mais t'inkiète j'en apprends aussi tous les jours ...

bon courage pour la suite

;o)

polux

starnours · Answer

merci.

En parlant de continuation, celle de mes soucis persiste :

Je fais un lien à partir de mon fichier excel vers une table access (via un bouton sur mon fichier excel) et j'ai l'impression qu'excel n'aime guère cette ligne : 
 DoCmd.RunSQL ("INSERT INTO [TEST_INFO_FOU] (id_assoc) VALUES ('3');") 

Voici mon code :

----------------------------------------------------------------------------------------------------------------------------------------------------------------

Dim base As Database
Dim num_assoc As Integer
Dim requete As String
Dim rs As DAO.Recordset
Dim Nbre_ligne_requete As Integer
Dim cpt As Integer
cpt = 0


    Set ws = DBEngine.WorkSpaces(0)
    Set base = ws.OpenDatabase("C:\Documents and Settings\a069863\Desktop\SEDE.mdb", False, False, "MS Access;PWD=tilia")
    
            num_assoc = ActiveWorkbook.ActiveSheet.Cells(101, 3).Value
                                     
            requete = " SELECT cNomFou,cPays,id_AssocLignePrix FROM  [Association Prix Ligne] WHERE [id_ligne_associée] = " & num_assoc & " ORDER BY id_AssocLignePrix;"
            
            Set rs = base.OpenRecordset(requete, dbOpenSnapshot)
            
            
            
            If rs.RecordCount > 0 Then
                rs.MoveLast
                Nbre_ligne_requete = rs.RecordCount
                rs.MoveFirst
            End If
            
            Do While (cpt < Nbre_ligne_requete)
                MsgBox rs(0) & " | " & rs(1) & " | " & rs(2)
                
                
                DoCmd.RunSQL ("INSERT INTO [TEST_INFO_FOU] (id_assoc) VALUES ('3');")
                             '=>Erreur dans excel quand je rajoute cette ligne: erreur d'exectution 424 blablabla...
                rs.MoveNext
                cpt = cpt + 1
            Loop
        
        Set rs = Nothing
        
    base.Close

Polux31 · Answer

re,

DoCmd.RunSQL n'est pas une instruction VBA Excel mais VBA Access. Excel ne reconnait pas cette instruction.
Il faut faire comme pour ta requête SELECT ... et passer par un recordset comme celui que tu as mis : Set rs = base.OpenRecordset(requete, dbOpenSnapshot).

Erreur lors d'un clic bouton crée dans excel

6 réponses

Discussions similaires