Cause erreur d'exécution [Résolu]

[cluster26]

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

[nico84]

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

[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