Cause erreur d'exécution

Version imprimable

Bonjour,

J'ai une application Access qui fonctionnait parfaitement jusque hier.

En la lançant ce matin, j'ai eu droit à un blocage "surprise" et j'ai des difficultés à cibler la cause de cette erreur.

A partir du code suivant :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 Public Function existeFileFSO(ByVal var4 As String) As Boolean Dim dbs As DAO.Database, tdf As DAO.TableDef Dim Tbl As Object Dim strMotPasse As String Dim strCheminBd As String Dim strConnect As String Dim strNomsTables() As String Dim strTemp As String Dim i As Integer Dim oDb As DAO.Database Dim oDbSource As DAO.Database Dim oTbl As DAO.TableDef Dim oTblSource As DAO.TableDef ' test si un fichier existe ! Set fs = CreateObject("Scripting.FileSystemObject")
l'application bloque sur la dernière ligne.

J'ai le message suivant :

Erreur d'exécution '429'
Un composant activeX ne peut créer d'objet

Avez-vous une piste SVP ?..

Merci à l'avance

Bonjour,

J'ai cette procédure qui marche très bien chez moi :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
'10.1e teste l'existence d'un fichier
Public Function ExistFile(s) As Boolean
If Not Mode_debug Then On Error GoTo err:
Dim fs As Object
100 If IsNull(s) Then
102   ExistFile = False
    Else
104   Set fs = CreateObject("Scripting.FileSystemObject")
106   ExistFile = fs.FileExists(s)
    End If
    Exit Function
err: Call message("Erreur " & err.Number & "/" & Erl & " dans fonctions.existfile : " & err.DESCRIPTION)
End Function

Il faut la référence "microsoft scripting runtime" je crois ;)

11/03/2011, 12h52
cluster26

Merci pour la réponse.

J'ai déjà inscrit cette référence.

Elle fonctionnait déjà.

Je vais essayer de réinstaller Access (découvert sur Microsoft) !.

Je vous tiens au courant.

Cordialement.

j'ai réinstallé Access et j'ai toujours le même problème !..

J'ai rétabli le lien de la référence "microsoft scripting runtime" à partir de :

C:\WINDOWS\system32\scrrun.dll

Et l'application fonctionne à nouveau !..

Mystère !..

Merci