Discussion :

[alpha_du_centaure]

Le Contexte
Le contexte est constitué d’une base Access et d’un site hébergé chez un prestataire.
J’effectue chaque nuit la synchronisation de la bdd avec le site. Les infos descendent du site vers la bdd (rien dans l’autre sens).
Le Site produit chaque nuit à heure fixe un fichier .CSV avec une image de la table concernée.
Le fichier Csv est placé par le site sur un serveur ftp.

Le programme de synchronisation commence par recopier le fichier .csv du ftp vers notre serveur NAS interne. Il exploite ensuite le fichier recopié pour mise à jour de la bdd. Le déclenchement du travail est fait par une « tache planifiée » sur le pc.

Le programme fonctionne ainsi depuis 2 ans mais, périodiquement et de manière aléatoire, se produisent des erreurs fatales qui font avorter la sychro… et du coup, le lendemain matin, la bdd n’est pas à jour pour les collaborateurs.

Le plus étrange est qu’en relançant la synchro immédiatement après un avortement, avec exactement les mêmes éléments en jeu (la bdd et le fichier csv produit la nuit précédente) , le programme passe sans pb (il faut parfois 3 ou 4 tentatives mais il finit toujours par passer)

Cela fait 2 ans que je cherche en vain l’origine de ces plantages aléatoires et j’ai fini par jeter l’éponge. Faute de résoudre le pb, je cherche maintenant à le contourner pragmatiquement.

Je me propose de d’intégrer la synchronisation dans une boucle et, en cas d’erreur de synchro, de relancer celle-ci jusqu’à 5 fois (ce qui est le nombre maximum de tentatives qu’il me faut en général pour que le programme passe.)

J’ai donc écrit un code ayant la structure suivante.

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
Function test_boucle_erreur() As Integer
Const max_attempt = 5  ' je veux faire 5 tentatives
Dim nb_attempt As Integer 'id tentative en cours
Dim dummy
nb_attempt = 0
 
reprise:
On Error GoTo er1
nb_attempt = nb_attempt + 1
Call sub1  ' une procédure qui produira une erreur
Exit Function
 
er1:
If nb_attempt <= max_attempt Then
GoTo reprise
Else
MsgBox ("erreur après 5 tentatives")
Exit Function
End If
End Function
 
 
Sub sub1()
DoCmd.OpenForm ("toto") 'il n'y a pas de formulaite "toto"... je provoque délibérament une erreur pour montrer ce qui se passe
End Sub

Le résultat de ce code est que lors de la première boucle, le programme revient bien en er1 qui renvoie à l’étiquette reprise: pour la deuxième tentative…. Mais là l’instruction « on error goto er1 » est inopérante et le programme « plante lors de cette deuxième tentative.

Que convient il de faire pour qu’une boucle de programme provoquant potentiellement une erreur soit effectué 5 fois ?

[nico84]

Bonsoir,

Il me semble que comme l'erreur est dans la sub elle n'est pas impactée par l'instruction "on error goto..."
Je pense que c'est à la sub de dire si elle s'est terminée correctement ou non (avec un on error goto... à l'intérieur), ensuite la procédure principale exécutera la sub autant de fois que nécessaire

[alpha_du_centaure]

bonsoir et merci pour cette idée.

En fait je suis déjà passé par cette idée: faire une gestion d'erreur dans le sub mais cela n'a rien donné.

Tout semble se passer comme si la procédure où l'erreur s'est produite conservait la mémoire de l'incident. On peut d'ailleurs imaginer que microsoft a tout fait pour interdire le création de boucle sur une erreur qui pourrait ammener le programe à se mordre la queue..

J'ai, du coup, tenté l'instruction err.clear... mais cela n'a rien donné.

à suivre !

[nico84]

MS n'en fait pas tant

J'ai fait le test suivant et "bug" s'exécute bien 5 fois sans succès :

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
Private Sub test_error_Click()
Dim i As Integer, ok As Boolean
i = 0: ok = False
While i < 5 And Not ok
  ok = Not bug
  i = i + 1
Wend
MsgBox i
End Sub
 
Private Function bug() As Boolean
On Error GoTo err:
Dim x As Double
bug = False
x = 1 / 0 'à remplacer par l'import souhaité
Exit Function
err:
bug = True
End Function

[alpha_du_centaure]

Bonjour Nico84 et encore merci !

J'observe qu'effectivement le test que tu as ecrit donne le résultat que je souhaite.
la différence qu'il y a entre ton test et les essais que j'ai fait jusqu'à présent est que j'avais une instruction on error goto dans la fonction appelante et dans les les fonctions appelées.

Comme il y a 2 sous niveaux d'imbrication, je vais essayer de mettre les on error au niveau le plus bas et je reviens vers le forum pour te dire le resultat.

Cordialement

[nico84]

Pour ce que j'en ai compris, on error est local à la procédure et ne s'exécute au plus qu'une fois

Mon exemple marche aussi comme ça :

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
Private Sub test_error_Click()
Dim i As Integer, ok As Boolean
On Error GoTo err:
i = 0: ok = False
While i < 5 And Not ok
  ok = Not bug
  i = i + 1
Wend
err:
MsgBox i
End Sub
 
Private Function bug() As Boolean
On Error GoTo err:
Dim x As Double
bug = False
x = 1 / 0
Exit Function
err:
bug = True
End Function

test_error_click n'est pas en erreur et bug s'exécute bien 5 fois aussi

Ton exemple ne fonctionnait pas car sub n'a pas de gestion d'erreur donc l'erreur est constatée en retour dans test_boucle_erreur

[alpha_du_centaure]

Bonsoir Nico84,

J'ai réecrit le programme en tenant compte de tes observations et effectivement cela marche maintenant.

Un grand merci.