Erreur d'execution sur fichier .mde

[Serge57]

Bonjour,

Ma base frontale « SuiviAffaire.mde » ne fonctionne pas sur certains PC de l’entreprise.
Erreur sur la macro « Autoexec » qui exécute un code VBA.
1ère interrogation – il me manque une bibliothèque ou autre dll sur les PC récalcitrant ?
Pas moyen de voir quelle dll est manquante dans un fichier mde ?
1-je recopie le code source « gestion.mdb » sur ce PC, alt F11, outils, références ET bizarre aucune référence ne manque.
2-Je compile ma base mdb en mde mais cette fois ci sur le poste récalcitrant ET, tout fonctionne correctement.

Configuration Identiques de tous les PC.
Windows XP SP2
Office 2003 SP3

Existe-il une méthode (ou un outil) pour pouvoir débugger un fichier mde ?
Ou du moins cerner le problème sur ce fichier ?
Vers quelle direction diriger mes recherches ?

Le problème est survenu depuis que j’ai effectué la mise à jour d’office 2003 en SP3.

Merci d’avance

[curt]

Bonjour Serge57 et bonjour à tous,

j'allais déposer le même (ou quasiment) post.

La base fonctionne nickel sur mon PC (avec Access 2003). Après passage en .mde, j'ai une erreur de macro qui exécute du code annonçant une erreur de code... Pourtant, sur le fichier .mdb, il n'y a aucune erreur !!!

Si quelqu'un a une idée, on est déjà 2 à être intéressés !!!

Bonne journée à tous.

Curt

[curt]

Bonsoir à tous,

en passant en revue les sauvegardes, je m'aperçois que l'erreur est apparue depuis que j'ai inséré les tests de présence d'unité réseau, dossier et fichier récupéré ici

[http://access.developpez.com/faq/?pa...existFunction]

Pourtant, pas de soucis pour le fonctionnement sur un poste où Access (2003) est installé. Seul le fonctionnement en runtime affiche l'erreur de code. (j'ai vérifié la présence de la référence requise, le code....)

J'ai supprimé toute la partie test de lecteur (dommage, c'était pratique) et tout fonctionne de nouveau correctement.

Quelqu'un a une idée ???

Bonne soirée.
Curt

[marot_r]

Peut-être est-ce l'objet FileSystemObject qui pose un pb.

Pour afficher les reférences d'une appli on peut utiliser le code suivant.

Code :

1
2
3
4
5
6
7
 
private sub AfficherRef()
  dim r a reference
  for each r in application.references
    r.name, r.fullpath
  next r
end sub

À adapter selon les besoins.

A+

[LedZeppII]

Bonsoir,

il y a un petit bug

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 'Vérifier l'existence d'un fichier(par ex avant de l'ouvrir..)
Function VerifierExistenceFichier(ByVal Mondossier, ByVal MonFichier) As Boolean
    Dim ObjFSO, ListRepertoires, ListSousRep, ListFichiers, MonRep, LesReps, MonFich, LesFichs
    Set ObjFSO = CreateObject("Scripting.FileSystemObject")
    VerifierExistenceFichier = False
    Set ListRepertoires = ObjFSO.GetFolder(Mondossier)
    Set ListSousRep = ListRepertoires.SubFolders
    For Each MonRep In ListSousRep
            Set ListFichiers = MonRep.Files
            For Each MonFich In ListFichiers
                If MonFich.Name = MonFichier Then
                    'trouvé
                    VerifierExistenceFichier = True
                    End
                End If
            Next MonFich
    Next MonRep
End Function

Le End est en trop.

Par ailleurs si MonDossier est la racine d'une partition (E:\, D:\, ...), un des sous-dossiers est "System Volume Information" (sous XP par exemple).
Mais on ne peut pas le parcourir (accès refusé).

J'ai ajouté un test pour exclure les dossiers systèmes

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
' Vérifier l'existence d'un fichier(par ex avant de l'ouvrir..)
Function VerifierExistenceFichier(ByVal Mondossier, ByVal MonFichier) As Boolean
    Dim ObjFSO, ListRepertoires, ListSousRep, ListFichiers, MonRep, LesReps, MonFich, LesFichs
    Set ObjFSO = CreateObject("Scripting.FileSystemObject")
    VerifierExistenceFichier = False
    Set ListRepertoires = ObjFSO.GetFolder(Mondossier)
    Set ListSousRep = ListRepertoires.SubFolders
    For Each MonRep In ListSousRep
        If (MonRep.Attributes And 4) <> 4 Then
            Debug.Print MonRep.Name, MonRep.Attributes
            Set ListFichiers = MonRep.Files
            For Each MonFich In ListFichiers
                If MonFich.Name = MonFichier Then
                    'trouvé
                    VerifierExistenceFichier = True
                End If
            Next MonFich
        End If
    Next MonRep
End Function

A+