Discussion :

[_developpeur_]

Bonjour à tous,

j'ai développé une base access en windows xp qui fonctionne bien sous ce windows.

en passant sur windows seven, la base ne fonctionne plus j'ai le message d'erreur suivant :

"projet ou bibliothèque introuvable"

dans les références, la référence Microsoft office infopath 2.0 type library est manquante.

Savez-vous comment résoudre ce problème?

Merci beaucoup pour votre aide.

[_developpeur_]

j'ai un peu avancé sur mon probleme mais ce n'est pas encore résolu.

A priori il manque la DLL IPEDITOR.DLL, si je la télécharge et que je la réactive via la fenetre des references VBA ça marche ou y a t il une autre action a effectuer puisque je crois savoir que les DLL touchent la base de registre mais la j'avoue que je n'y connais absolument rien ...

Merci de votre aide.

[_developpeur_]

re bonjour à tous.

la DLL IPEDITOR.DLL était bien présente sur le disque nous l'avons donc ré enregistrer via la fenêtre des références VBA.

Nous n'avons plus de message disant que la bibliothèque est manquante.

Par contre, j'ai un un plantage au niveau de la ligne ci-dessous en gras et souligné :

Code :

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

1
2
3
sRepertoireChoisi = ChoisirDossier
Set xlsClasseur = xls.Workbooks.Open(sRepertoireChoisi & "\" & NomFichier)

Code :

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

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
'fonction qui ouvre une boite de dialog permettant de sélectionner un repertoire
Function ChoisirDossier(Optional sTitre As String, _
                        Optional sDossier As String) As String
Dim fdlg As Object
Dim strDossier As String
 
Set fdlg = Application.FileDialog(4) ' 4 = msoFileDialogFolderPicker
' Paramètres - Valeurs par défaut
If Len(sTitre) = 0 Then sTitre = "Sélectionnez le dossier contenant les fichiers Plan d'activités à charger"
If Len(sDossier) = 0 Then sDossier = CurrentProject.Path & "\"
' Chemin par défaut
fdlg.InitialFileName = sDossier
' Titre boîte de dialogue
fdlg.Title = sTitre
' Interdire sélection multiple
fdlg.AllowMultiSelect = False
' Ouvrir boîte de dialogue
If fdlg.Show Then
   strDossier = fdlg.SelectedItems(1)
End If
' Libérer variable objet
Set fdlg = Nothing
' Valeur de retour de la fonction
ChoisirDossier = strDossier
 
End Function

Je pense que c'est toujours lié à cette fameuse DLL. Sans doute il y a t-il un problème dans la base de registre, enfin je sais pas trop c'est pour ça que je vous demande.

J'espère que quelqu'un saura m'aider.

Merci.

[LedZeppII]

Bonjour,

Par contre, j'ai un un plantage au niveau de la ligne ci-dessous en gras et souligné :

Code :

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

1
2
sRepertoireChoisi = ChoisirDossier
Set xlsClasseur = xls.Workbooks.Open(sRepertoireChoisi & "\" & NomFichier)

Est-ce que tu as un message d'erreur ?

A tout hasard ...
- Dans quelle version d'Access as-tu développé ta bdd ?
- Et quelle est la version d'Office sur le PC avec Windows 7 ?

A+

[_developpeur_]

bonjour LedZeppII,

merci pour ta réponse, le problème a été résolu, suite a l'installation de seven il y a eu un problème au niveau de cette DLL, mais il suffit de la ré enregistrer dans la fenetre référence de VBA.

Pour le plantage sur la ligne de code c'était autre chose, rien a voir avec la DLL.

J'espère que ça pourra en aider plus d'un.

Merci