Fichier déjà ouvert

[Résolu]
Signaler
Messages postés
1
Date d'inscription
jeudi 2 août 2007
Statut
Membre
Dernière intervention
4 décembre 2007
-
Messages postés
4822
Date d'inscription
lundi 11 novembre 2002
Statut
Membre
Dernière intervention
15 novembre 2016
-
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_" & 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 & ";" & Rst.Fields(1).Value & ";" & Rst.Fields(2).Value & ";" & Rst.Fields(3).Value & ";" & Rst.Fields(4).Value & ";" & Rst.Fields(5).Value & ";" & Rst.Fields(6).Value & ";" & Rst.Fields(7).Value & ";" & Rst.Fields(8).Value & ";" & Rst.Fields(9).Value & ";" & Rst.Fields(10).Value & ";" & Rst.Fields(11).Value & ";"
        Rst.MoveNext
    Next
    Close #1



Merci d'avance

4 réponses

Messages postés
682
Date d'inscription
vendredi 6 avril 2007
Statut
Membre
Dernière intervention
4 août 2012
6
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
Messages postés
4822
Date d'inscription
lundi 11 novembre 2002
Statut
Membre
Dernière intervention
15 novembre 2016
14
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

 
Messages postés
17288
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
70
avec un
Close

qui trainerait en fin, histoire d'etre sur de n'avoir rien laissé ouvert

Renfield
Admin CodeS-SourceS- MVP Visual Basic
Messages postés
4822
Date d'inscription
lundi 11 novembre 2002
Statut
Membre
Dernière intervention
15 novembre 2016
14
Effectivement Renfield(salut)...Tu veilles ???

A+
Exploreur

 Linux a un noyau, Windows un pépin