Discussion :

[fleur_d_eden]

Bonjour tout le monde,
j'ai un gros soucis :
je développais une application sur Microsoft excel 2007 et ça marchais très bien , ensuite j'ai exporté mon fichier vers un nouvel ordinateur ou il ya installé Microsoft Office 2010 et depuis qd j’exécute mon application sur le nouvel ordinateur
j'ai une erreur sur mon code et je ne sais pas comment la résoudre
le code est :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub UserForm_Initialize()
On Error GoTo UserForm_Initialize_Err
    Dim cnn As New ADODB.Connection
    Dim rst As New ADODB.Recordset
    cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & _
             "Data Source=C:\Users\XX\Base de données.accdb"
    rst.Open "SELECT DISTINCT [nom] FROM departementCentre ORDER BY [nom];", _
             cnn, adOpenStatic

le message d'erreur est : "erreur de compilation : Projet ou bibliothèque introuvable"

la phrase surligné en jaune est celle qui est en gras et en italique ici,
et le mot surligné en bleu est souligné et en rouge ici.
merci a tous ceux qui pouront m'aider !! je galère

pour les references , elles ont changé de l'excel 2007 a l 'excel 2010
cad parexemple

la référence : microsoft excel 12.0 object library
est devenu microsoft excel 14.0 object library dans l'office 2010

[kiki29]

Salut, essaie en remplaçant adOpenStatic par sa valeur numérique : 3

[fleur_d_eden]

Salut, essaie en remplaçant adOpenStatic par sa valeur numérique : 3

cad? dois-je ecrire comme ça?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Private Sub UserForm_Initialize()

Const adOpenStatic As Integer = 3 'ajouter cette ligne?

On Error GoTo UserForm_Initialize_Err
    Dim cnn As New ADODB.Connection
    Dim rst As New ADODB.Recordset
    cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & _
             "Data Source=C:\Users\XX\\Base de données.accdb"
    rst.Open "SELECT DISTINCT [nom] FROM departementCentre ORDER BY [nom];", _
             cnn, adOpenStatic

et sinon une autre solution qui te vient a l'esprit? pske j'ai pas l'ordinateur sur moi et donc je n'ai pas bcp d'occasion pour tester dessus , je veux tout tester au mm temps . Merci