fichier déjà ouvertRésolu

Question

Bonjour,

je rencontre un problème, je veux extraire des données dans un fichier CSV et quand je clique sur mon bouton, j'ai la fenetre du showsave qui s'ouvre avec un nom de fichier pre determiné et j'ai une erreur fichier déjà ouvert.

voici mon code


    Form1.CommonDialog1.Filter = "Fichier texte(*.csv)|*.csv"
    Form1.CommonDialog1.FileName = "extraction_" &amp; jour
    Form1.CommonDialog1.InitDir = "C:"
    Form1.CommonDialog1.CancelError = True
    Form1.CommonDialog1.ShowSave
      On Error GoTo Erreur
      
Erreur:
    Select Case Err
        Case 32755
            Exit Sub
    End Select
    
    Open Form1.CommonDialog1.FileName For Output As #1
    Dim i As Integer
    
    For i = 0 To Rst.RecordCount - 1
        Print #1, Rst.Fields(0).Value &amp; ";" &amp; Rst.Fields(1).Value &amp; ";" &amp; Rst.Fields(2).Value &amp; ";" &amp; Rst.Fields(3).Value &amp; ";" &amp; Rst.Fields(4).Value &amp; ";" &amp; Rst.Fields(5).Value &amp; ";" &amp; Rst.Fields(6).Value &amp; ";" &amp; Rst.Fields(7).Value &amp; ";" &amp; Rst.Fields(8).Value &amp; ";" &amp; Rst.Fields(9).Value &amp; ";" &amp; Rst.Fields(10).Value &amp; ";" &amp; Rst.Fields(11).Value &amp; ";"
        Rst.MoveNext
    Next
    Close #1



Merci d'avance

pile_poil · Accepted Answer

bonjour
avec un peu de (mal)chance tu as planté dans ta phase de debug en laissant ton fichier ouvert.
dans ce cas là moi je mets un close #1 anvant de faire l'"open" ça me permets de me débarraser des mes déchets 
puis quand tout es propre je supprime cette ligne

cs_Exploreur · Answer

Salut,

Moi je mettrais la gestion d'erreur à la fin de ton code :

........
.......
On error Goto ExitSave
Form1.CommonDialog1.CancelError = True
.....
.....

ExitSave:
If Err.Number then Exit Sub: Err.Clear

A+
Exploreur

 Linux a un noyau, Windows un pépin

Renfield · Answer

avec un 
Close

qui trainerait en fin, histoire d'etre sur de n'avoir rien laissé ouvert

Renfield
Admin CodeS-SourceS- MVP Visual Basic

cs_Exploreur · Answer

Effectivement Renfield(salut)...Tu veilles ???

A+
Exploreur

 Linux a un noyau, Windows un pépin

Fichier déjà ouvert

4 réponses

Votre réponse

Discussions similaires