J'ai déjà écrit un code qui fonctionnait parfaitement, et puis un jour il a décidé de ne plus fonctionner.

 

Voila mon code :

mslogFile = "C:\" & Trim(Replace(CStr(Date), "/", "")) & "-" & Trim(Replace(CStr(Time), ":", "")) & ".log"

mnLFile = FreeFile

Open mslogFile For Append As #mnLFile

 

Et après j'écrit dans ce fichier que je viens de créer, mais l'erreur est dans la ligne du Open.

 

PS : ce code fonctionnait, je ne sais plus ce qui c'est passé

 

Plllzzz help

Salut,

Défois que...est-ce que tu as bien déclarer : mnLFile (Dim.....) ?

A+
Exploreur

 Linux a un noyau, Windows un pépin

 

oui oui j'ai  bien mis avant:
Dim mnLFile As Long
Dim mslogFile As String

desolé j'ai oublier de les poster...

salut,
quel est le message d'erreur?
es-tu certain que çà soit sur cette ligne?
copie la sub/fonction au complet stp

---

Prenez un instant pour répondre à ce sondage svp

ils me disent numero d'erreur: 75
oui oui je suis sur que l'erreur est sur cette ligne (ligne en rouge)
voila la fonction:

Public Function connexion_DataBase_LogFile() As Boolean

On Error GoTo connexion_DataBase_LogFile_Err
    Dim mnLFile As Long
    Dim mslogFile As String
   
   
    Forms("Formulaire Etat avancement").Liste3.RowSource = Forms("Formulaire Etat avancement").Liste3.RowSource & ";Connexion BDD"
    
    mslogFile = "C:\" & Trim(Replace(CStr(Date), "/", "")) & "-" & Trim(Replace(CStr(Time), ":", "")) & ".log"
    
    mnLFile = FreeFile
    Open mslogFile For Append As #mnLFile
    Forms("Formulaire Etat avancement").Liste3.RowSource = Forms("Formulaire Etat avancement").Liste3.RowSource & ";Terminé"

connexion_DataBase_LogFile_Exit:
    connexion_DataBase_LogFile = True
    Exit Function

connexion_DataBase_LogFile_Err:
    CurrentDb.Execute "INSERT INTO TableErreurs(methode,numeroErreur,dateErreur) values('connexion_DataBase_LogFile'," & Err.Number & ",'" & Date & "')"
    connexion_DataBase_LogFile = False
    Exit Function

End Function

euh.....

et il est sensé faire quoi ton code?
open pour ajouter OK, mais t'ajoutes rien et tu ne fermes pas le fichier....
tu n'ajoutes donc rien, et il est possible que le fichier soit bloqué.

enfin, çà serait possible si le code 75 voulait dire autre chose que : Erreur dans le chemin d'accès (erreur 75)

qqc m'échappe là

---

Prenez un instant pour répondre à ce sondage svp

en fait c'est assez simple, j'ai une fonction d'ouverture de fichier et une fonction qui ferme le fichier,
si la fonction d'ouverture s'execute avec succés je commence a faire de commandes, puis à la fin j'appel la fonction qui ferme ce fichier.

comme je l'ai deja dit, tous fonctionnait parfaitement, et maintenant ils me sortent cette erreur, donc je ne pense pas que ce soit le code l'erreur mais une librairie qui manque ou qlq chose comme ça...

si tu ouvres un fichier tu as un numéro (celui obtenu par freefile)
forcément il faudra le réutiliser, ce qui ne peut pas être le cas actuellement avec la portée de ta variable

mais de toute façon un fichier ouvert avec append, aucune raison de le fermer hors de ta fonction

désolé mais je ne comprends vraiment pas ta manoeuvre...

bref voici une manière qui me semble plus logique pour le fonctionnement de ta fonction mais toujours aussi... étrange.....


Dim iRet As Integer

Private Sub ProcAppelante()
    Forms("Formulaire Etat avancement").Liste3.RowSource = Forms("Formulaire Etat avancement").Liste3.RowSource & ";Connexion BDD"
    
    iRet = connexion_DataBase_LogFile

    If iRet = 0 Then 'ERREUR
        CurrentDb.Execute "INSERT INTO TableErreurs(methode,numeroErreur,dateErreur) values('connexion_DataBase_LogFile'," & Err.Number & ",'" & Date & "')"
    Else
        Forms("Formulaire Etat avancement").Liste3.RowSource = Forms("Formulaire Etat avancement").Liste3.RowSource & ";Terminé"
    End If
End Sub

Public Function connexion_DataBase_LogFile() As Integer
'   retourne le numéro d'ouverture de fichier si réussite, sinon 0
    Dim mnLFile As Long, mslogFile As String
    mnLFile = FreeFile
    mslogFile = "C:\" & Format$(Now, "DDMMYYYY-HHNNSS") & ".log"

    On Error Resume Next

    Open mslogFile For Append As #mnLFile
    connexion_DataBase_LogFile = IIf(Err.Number = 0, mnLFile, 0)
    
    Err.Clear
End Function

---

Prenez un instant pour répondre à ce sondage svp

en fait je suis en stage actuellement, ça fait 3 mois que je travaille sur un projet, et durant l'execution de ce projet je dois ecrire dans un fichier log, et donc pour eviter de l'ouvrir et le refermer a chaque fois, je fait appel a la fonction de connexion, si jamais elle est reussit je commance a executer mon code (tous mon projet, et dans ce projet je commance a remplir le logfile)

et puis a la fin je doit le fermer
(j'espere que j'ai été assez clair)

j'ai essayer la methode que tu ma donner mais ça ma afficher la meme erreur... sur le open...

le but d'append est d'ajouter au fur et à mesure.....
si tu ajoutes dans le même fichier, POURQUOI utiliser append et ne pas fermer, tu génères un nom unique (temps avec seconde) donc tu génères le nom au load et tu ouvres le fichier à chaque écriture avec un nouveau numfile, et tu refermes après, pas à la fin!

sinon si ton appli plante le fichier ne sera pas fermé et de toute façon tu vas écrire dans un fichier différent à chaque seconde...

---

Prenez un instant pour répondre à ce sondage svp