fichier en cours d'utilisationRésolu

Question

Bonjour,

voici le code qui me pose souci :

Retry:
On Error GoTo err_open

If New_File Then
    filenumber_1 = FreeFile
    Open Chemin_Data & Nom_Fichier_Data For Output As #filenumber_1
Else
    filenumber_1 = FreeFile
    Open Chemin_Data & Nom_Fichier_Data For Append As #filenumber_1
End If
Exit Function
err_open:
MsgBox "Erreur d'ouverture de fichier. Fermer le fichier et appuyer sur Ok", vbOKOnly
On Error GoTo 0
GoTo Retry


mon probleme est que lorsque j'essai d'ouvrir un fichier d&#233;ja ouvert le gestionnaire d'erreur m'intercepte bien le probleme la premiere fois mais ensuite lors du "retry" il m'afffiche une erreur VB et non l'erreur de ma msgbox

Quelqu'un aurait il une solution ou une meilleur maniere de gerer tout &#231;a?
Merci

Gobillot · Accepted Answer

faut faire un Resume pour supprimer l'erreur

mais si l'erreur persiste, &#231;a risque de boucler.







On Error GoTo err_open


Retry:
If New_File Then
   filenumber_1 = FreeFile
   Open Chemin_Data & Nom_Fichier_Data For Output As #filenumber_1
   Else
   filenumber_1 = FreeFile
   Open Chemin_Data & Nom_Fichier_Data For Append As #filenumber_1
   End If
Exit Function

err_open:
MsgBox "Erreur d'ouverture de fichier. Fermer le fichier et appuyer sur Ok", vbOKOnly
Resume Retry



Daniel

crenaud76 · Answer

Salut,
1- Il faudrait que tu nous donne le code erreur que tu recois ...
2- ohhh!!! Le vilain "Goto" !!! C'est pas bien du tout ca !!! Plus sérieusement, il vaut mieux eviter d'utiliser l'isntruction "Goto" en VB, qui n'existe que pour des raisons historiques, mais n'a pas lieu d'être.

cs_got · Answer

oui je sais c'est pas bien le goto. Mais je voyai pas trop comment faire simplement pour ce genre de probleme... Je n'ai pas le code d'erreur exact mais &#231;a dit en gros que je ne peu pas ouvrir le fichier. Et ceci arrive quand il est d&#233;ja ouvert par une autre application.

crenaud76 · Answer

Ou encore plus simplement ...

On Error GoTo err_open

filenumber_1 = FreeFile
If New_File Then
   Open Chemin_Data & Nom_Fichier_Data For Output As #filenumber_1
Else
   Open Chemin_Data & Nom_Fichier_Data For Append As #filenumber_1
End If
Exit Function

err_open:
MsgBox "Erreur d'ouverture de fichier. Fermer le fichier et appuyer sur Ok", vbOKOnly
Resume 

... mais effectivement ca risque de boucler !! Faudrait faire un compteur avec un nb possible de tentative ...

CR
CR

Gobillot · Answer

c'est bien ce que j'avais mis, un compteur pour &#233;viter de boucler.

mais avec Resume seul, &#231;a n'a pas manquer, boucle infinie ... arr&#234;t Vb

le Resume reprend l'instruction en cours, il faut donc mettre le compteur dans la proc&#233;dure d'erreur.

il faudrait aussi tester qu'elle est l'erreur parce que parfois on a des surprises:

    MsgBox Err.Number & ": " & Err.Description




Daniel

cs_got · Answer

nickel &#231;a marche comme je voulais. Le fait que &#231;a reboucle et justement voulu tant que l'utilisateur n'a pas ferm&#233; le fichier le message doit s'afficher...

Merci &#224; vous deux .. ;-)

cs_dary · Answer

j'arrive pas a ouvrir la base de donnees access à partir de mon poste si elle est deja ouverte sur un autre poste.
l'utilisation de:
Set Base = Workspaces(0).OpenDatabase(Chemin)
provoque le message "impossible d'utiliser ...............; fichier en cours d'utilisation.
Merci pour l'aide.

Fichier en cours d'utilisation

7 réponses

Discussions similaires