problème de sauvegarde et utilisation de fichier

**captainamerica75** · 30/05/2007, 23h39

bonsoir,

Dans mon formulaire j'ai une commande "Enregistrer sous" qui permet a l'utilisateur de sauvegarder un fichier ("toto.csv") dans lequel seront exportées des ecritures...

J'aurais besoin de 2 petits eclaircissements :

1- le code ci-dessous permet a l'utilisateur de créer le fichier "toto.csv".
J'ai fait un test et le code fonctionne cependant si je vais dans l'exporateur
je ne retrouve pas mon fichier et je ne comprend pas pourquoi...

2 - Pour exporter mes ecritures j'aurais besoin d'inserer une ligne de code me permettant de récupérer ce fichier.

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
26
27
28
29
30
31
 
'
Dim SrcFichier As String
 
 SrcFichier = "C:\toto.csv"
 
'Paramètre boite de sauvegarde
 CommDialog.Filter = "Fichiers CSV (*.csv)|*.csv"
 CommDialog.FileName = vbNullString
 CommDialog.CancelError = True
 
'Autoriser l'écrasement d'un fichier existant
 CommDialog.Flags = cdlOFNOverwritePrompt
 
' Si touche Annuler préssée >> génération d'une erreur >> étiquette
 On Error GoTo Exitsave
 
'Ouvrir la boite de dialogue
 CommDialog.ShowSave
 
 FileCopy SrcFichier, CommDialog.FileName & "_" & FormatDateTime(Now, vbLongDate)
 
Exitsave:
' Condition si Annuler est présse
 If Err.Number = 32755 Then
    Exit Sub
    Err.Clear
 End If
 
 
End Sub

je suis a votre disposition si vous voulez plus d'infos
Merci pour votre aide..

Bonne soirée

**zazaraignée** · 31/05/2007, 00h56

L'instruction FileCopy, comme son nom l'indique, sert à copier un fichier existant sous un autre nom et/ou à une autre destination.

Si tu veux créer un fichier, regarde dans l'aide du côté de l'instruction Open. Il y a suffisemment d'exemples pour te démarrer.

**avigeilpro** · 31/05/2007, 07h33

Envoyé par captainamerica75

Dans mon formulaire j'ai une commande "Enregistrer sous" qui permet a l'utilisateur de sauvegarder un fichier ("toto.csv") dans lequel seront exportées des ecritures...

Le code que tu à donné permet de copier le fichier "toto.csv" vers un fichier déterminé par l'utilisateur et choisi grace au commondialog.

De plus le fichier de destination de la copie aura un drole de nom :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
FileCopy SrcFichier, CommDialog.FileName & "_" & FormatDateTime(Now, vbLongDate)

Si on selection un nom de fichier tel que "tata.csv" on obtient "tata.csv_jeudi 31 mai 2007" ce qui fait une extension plutot curieuse

**captainamerica75** · 31/05/2007, 08h30

Hello

Je vais regarder et je reviens vers vous !

merci pour vos remarques

@+

**captainamerica75** · 31/05/2007, 08h51

En fait, si je decompose ce que je veux faire ca serait :

1- Creation du nouveau fichier par l'utilisateur par une commande du style " Nouveau / Fichier => "Toto.csv "

2- Enregistrement de ce fichier dans un répertoire décidé par l'utilisateur

3 - dans l'execution il y aurait Instruction permettant de tester s'il existe => Si oui, on l'ouvre et on ecrit dedans. S'il n'existe pas, on retourne a l'etape1 puis on retourne dans la procédure pour exporter mes ecritures dans ce fichier

J'espère que c assez clair

merci pour vos lumières

**avigeilpro** · 31/05/2007, 10h01

Pour selectionner un répertoire (equivalent CommonDialog mais pour les repertoires et non pour les fichiers) :
A mettre dans un module

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
 
'Permet d'ouvrir une boite de selection de repertoire
 
'Utilisation :
'MonCheminStr = SelectFolder("Selection Repertoire",Me.hwnd)
 
 
Private Const BIF_RETURNONLYFSDIRS = 1
Private Const BIF_DONTGOBELOWDOMAIN = 2
 
Private Declare Function SHBrowseForFolder Lib "shell32" (lpbi As BrowseInfo) As Long
Private Declare Function SHGetPathFromIDList Lib "shell32" (ByVal pidList As Long, _
    ByVal lpBuffer As String) As Long
Private Declare Function lstrcat Lib "kernel32" Alias "lstrcatA" (ByVal lpString1 As String, _
    ByVal lpString2 As String) As Long
 
Private Type BrowseInfo
    hWndOwner As Long
    pIDLRoot As Long
    pszDisplayName As Long
    lpszTitle As Long
     ulFlags As Long
    lpfnCallback As Long
    lParam As Long
    iImage As Long
End Type
 
Public Function SelectFolder(Titre As String, Handle As Long) As String
 
Dim lpIDList As Long
Dim strBuffer As String
Dim strTitre As String
Dim tBrowseInfo As BrowseInfo
 
strTitre = Titre
With tBrowseInfo
    .hWndOwner = Handle
    .lpszTitle = lstrcat(strTitre, "")
    .ulFlags = BIF_RETURNONLYFSDIRS + BIF_DONTGOBELOWDOMAIN
End With
 
lpIDList = SHBrowseForFolder(tBrowseInfo)
 
If (lpIDList) Then
    strBuffer = String(260, vbNullChar)
    SHGetPathFromIDList lpIDList, strBuffer
    SelectFolder = Left(strBuffer, InStr(strBuffer, vbNullChar) - 1)
End If
 
End Function

Pour savoir si un fichier existe, utilise tout simplement Dir

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
If Dir("C:\toto.csv") <> "" Then 
    MsgBox "Le fichier existe"
Else
    MsgBox "fichier introuvable"
end if

Pour ecrire dedans regarde du coté de Open

Avec cela tu as tout ce qu'il faut pour faire ton code, fait en un, si tu as d'autres problèmes alors reviens

**captainamerica75** · 03/06/2007, 21h36

Hello tout le monde,

Voila mon petit problème. J'ai la possibilité de creer un fichier ou l'ouvrir
(ici il s'agit de la commande pour ouvrir un fichier de destination)dans un formulaire. Le chemin ou est enregistré le fichier est stocké dans une variable appelé "FichierDest".

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
26
27
28
Public Sub Ouvrir_Click()
    'Boite ouvrir
    'Propriété de la boite
    Boite.InitDir = "c:\" 'dossier d'affichage de la boite
    Boite.Filter = "Tous les fichiers|*.*|Fichiers Excel|*.xls;*.csv " 'filtre les fichier txt
    Boite.ShowOpen ' affiche la boite ouvrir
 
    'traitement des données de la boite
        If Boite.FileName = vbNullString Then 'Si annuler
            Text1 = "Aucune selection"
        Else
            Text1 = Boite.FileName
            'nb :   propriété Filename renvoie le chemin du fichier
            '        propriété Filetitle renvoie le nom du fichier
        End If
 
    'Affichage du fichier dans le textbox txtfichier
    'Dim Ligne As String
    'TxtFichier = vbNullString 'Vide txtfichier
    'Open Boite.FileName For Input As #1 'ouvre le fichier en lecture
    'Do While Not EOF(1) 'boucle ligne par ligne sur le fichier
    'Line Input #1, Ligne 'Stocke dans la variable ligne chaque ligne
    'TxtFichier = TxtFichier & Ligne & vbCrLf ' afiche les lignes
    'Loop
'Close #1
 
'Stockage du chemin dans une variable "FichierDest"
FichierDest = Text1

ce que je voudrais c'est pouvoir utiliser cette variable dans un module ou j'ai toute ma procédure. Voici une portion du code : La partie qui m'interesse est en rouge....

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
Open "c:\debug.txt" For Append As #1
    Write #1, daterappro
    Write #1, VarTempSociete
    Write #1, VarTempComptes
    Write #1, VarTempStatut
    Write #1, strSqlbnk
    Write #1, strSqlacc
    Write #1, sWhere
    Close #1

     Set Conn = New ADODB.Connection
     Conn.ConnectionString = RechercheConnectionString
     Conn.Open
     
     'ouverture du fichier de destination
     FichierDest =     ' ici jr ne sais pas quoi mettre
     Open " & FichierDest & " For Append As #2 
     
     Set flow_bnk = New ADODB.Recordset
     Set flow_acc = New ADODB.Recordset
     
     flow_bnk.Open strSqlbnk, Conn, adOpenKeyset, adLockReadOnly, adCmdText
     Deb = True
     
     flow_acc.Open strSqlacc, Conn, adOpenKeyset, adLockReadOnly, adCmdText

Mon souci est que je n'arrive pas à récupérer cette variable. Comment pourrais-je faire?

Merci pour vos lumières !

Bonne fin de we a toutes et à tous !

**SfJ5Rpw8** · 03/06/2007, 21h41

et elle comment s'enchaîne tes 2 procédures... ? elles sont appelées comment ..?

à la limite ta variable FichierDest ... peu être une variable publique déclarée dans ton module ... ( tout en haut... en dehors de toutes procédures...)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Dim FichierDest as string

**captainamerica75** · 03/06/2007, 21h56

salut bbil,

Visiblement en fait il me cree un fichier qui s'appelle "& FichierDest &" avec toutes mes ecritures dedans mais il n'utilise pas le fichier que j'ai crée...

**SfJ5Rpw8** · 03/06/2007, 22h03

Envoyé par captainamerica75

salut bbil,

Visiblement en fait il me cree un fichier qui s'appelle "& FichierDest &" avec toutes mes ecritures dedans mais il n'utilise pas le fichier que j'ai crée...

ben tu as fais quoi ...?

attention en VB pour concaténer des chaînes on utilise l'opérateur & et on place les chaînes à concaténer entre " ... par contre l'on ne place pas les variables à concaténer dans ces " ... exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
dim FichierDest as string 
FichierDest = "Toto"
msgbox "Monfichier : " & FichierDest & ".txt"

**captainamerica75** · 03/06/2007, 22h29

ben je n'ai rien fait de particulier. Il me l'a placé par défaut dans le lecteur C:\.
il m'a cree un fichier sans extension.

POur en revenir a ce qui m'interesse j'ai declarée ma variable "FichierDest" dans mon formulaire. Ci dessous le code :

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
Option Explicit
Dim connexion As New ADODB.Connection
Dim reccmp As New ADODB.Recordset
Dim recacc As New ADODB.Recordset
Public FichierDest As String
 
 
Private Sub Command1_Click()
Dim erreur As Boolean
 
 
'erreur = SetIni("Folder", "Repertoire", Me.Text1.Text, App.Path & "\PARAM.TXT")
 
'Test d'existence de fichier
 
'If Dir("C:\toto.csv") <> "" Then
 '   MsgBox "Le fichier existe"
'Else
 '   MsgBox "fichier introuvable"
'End If
 
 
 
 
' Change le pointeur en sablier.
Screen.MousePointer = vbHourglass
 
 
Dim rec As New ADODB.Recordset
 
 
Dim VarCmp, VarCpt, VarStatut As String
Dim i, j, k As Integer
 
 
 
'Selection du Statut (Rapprochées, Non Rapprochées, Archivées)
 
k = 0
 
For k = 0 To Me.lststatut.ListCount - 1
      If Me.lststatut.Selected(k) = True Then
       VarStatut = VarStatut & RTrim(Me.lststatut.List(k)) & "','"
      End If
     Next k
 
 
 If VarStatut <> "" Then VarStatut = Left(VarStatut, Len(VarStatut) - 3)
 
 
 
'VarStatut = VarStatut & RTrim(Me.cbxstatut) & "','"
'VarStatut = Left(VarStatut, Len(VarStatut) - 3)
 
'initialisation de i,j
 
i = 0
 
 
 'boucle sur la liste de code société
 
 
     For i = 0 To Me.lstcmp.ListCount - 1
      If Me.lstcmp.Selected(i) = True Then
       VarCmp = VarCmp & RTrim(Me.lstcmp.List(i)) & "','"
      End If
     Next i
 
 
 If VarCmp <> "" Then VarCmp = Left(VarCmp, Len(VarCmp) - 3)
 
 
'boucle sur la liste des codes comptes
 
   j = 0
 
    For j = 0 To lstacc.ListCount - 1
     If lstacc.Selected(j) = True Then
       VarCpt = VarCpt & RTrim(Me.lstacc.List(j)) & "','"
     End If
    Next j
 
 If VarCpt <> "" Then VarCpt = Left(VarCpt, Len(VarCpt) - 3)
 
 
Set rec = xu2.VUE_ETAT(Me.ctldate.Value, (VarCmp), (VarCpt), (VarStatut))
 
' Change le pointeur en flèche.
Screen.MousePointer = vbDefault
MsgBox ("Fin du traitement")
 
End Sub
 
 
 
 
Private Sub Command2_Click()
Dialog.Show
End Sub
 
Public Sub Command4_Click()
    'Boite Enregistrer sous
    'Propriété de la boite
    Boite.InitDir = "c:\" 'dossier d'affichage de la boite
    Boite.Filter = " Tous les fichiers|*.*|Fichier texte|*.txt|Excel|*.xls;*.csv " 'filtre les fichier txt
    Boite.ShowSave ' affiche la boite enregistrer
 
    'traitement des données de la boite
        If Boite.FileName = vbNullString Then 'Si annuler
            Text1 = "Aucune selection"
        Else
            Text1 = Boite.FileName
            'nb :   propriété Filename renvoie le chemin du fichier
            '        propriété Filetitle renvoie le nom du fichier
        End If
 
    'Affichage du fichier dans le textbox txtfichier
    Open Boite.FileName For Output As #1
        'Print #1, TxtFichier 'ecrit le textbox dans le fichier
    Close #1
FichierDest = Text1
End Sub
 
Private Sub Form_Load()
 
 'initialisation du chemin
 
 'Chemin = Dir(App.Path & "\PARAM.TXT")
 
'If Chemin = "" Then
 '   Module1.createfichier
'End If
 
'Me.Text1.Text = GetIni("Folder", "Repertoire", App.Path & "\PARAM.TXT")
 
 
 
 
 Me.Caption = " Module d'extraction "
 
    Dim xu2 As New CsoXU.XU24
    Dim connexion As New ADODB.Connection
    connexion.ConnectionString = xu2.RechercheConnectionString
    connexion.Open
 
 
    'Remplissage de la listview
    Me.lststatut.AddItem "R"
    Me.lststatut.AddItem "NR"
    Me.lststatut.AddItem "ARH"
 
 
    Set reccmp = New ADODB.Recordset
    Set reccmp = New ADODB.Recordset
 
 
 
    'Remplissage de la listbox1 avec les sociétés
 
           reccmp.Open "select cmp_code from companies order by cmp_code", connexion, adOpenForwardOnly, adLockReadOnly, adCmdText
 
     Do While Not reccmp.EOF
        Me.lstcmp.AddItem (reccmp.Fields(0).Value)
        reccmp.MoveNext
     Loop
 
    reccmp.Close
 
 
    'Remplissage de la listbox1 avec les comptes
    recacc.Open "select acc_code from accounts order by acc_code", connexion, adOpenForwardOnly, adLockReadOnly, adCmdText
 
     Do While Not recacc.EOF
        Me.lstacc.AddItem (recacc.Fields(0).Value)
        recacc.MoveNext
     Loop
    recacc.Close
 
 
 
End Sub
 
 
Public Sub Ouvrir_Click()
    'Boite ouvrir
    'Propriété de la boite
    Boite.InitDir = "c:\" 'dossier d'affichage de la boite
    Boite.Filter = "Tous les fichiers|*.*|Fichiers Excel|*.xls;*.csv " 'filtre les fichier txt
    Boite.ShowOpen ' affiche la boite ouvrir
 
    'traitement des données de la boite
        If Boite.FileName = vbNullString Then 'Si annuler
            Text1 = "Aucune selection"
        Else
            Text1 = Boite.FileName
            'nb :   propriété Filename renvoie le chemin du fichier
            '        propriété Filetitle renvoie le nom du fichier
        End If
'initialisation de la variable       
FichierDest = Text1
 
End Sub

En fait cette variable devrait etre récupérée dans un module de classe dont il y a une partie du code ci-dessous:

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
Public Function VUE_ETAT(vardaterappro As Date, VarSociete As String, VarCompte As String, VarStatut As String) As ADODB.Recordset
On Error GoTo vue_etat_err
 
    'Déclaration des variables
 
    Dim strSqlbnk, strSqlacc As String
    Dim daterappro As String
    Dim VarTempSociete As String
    Dim VarTempComptes As String
    Dim VarTempStatut As String
    Dim sWhere As String
    Dim flow_bnk, flow_acc As New ADODB.Recordset
    Dim tmpligne As String
    Dim Deb As Boolean
    Dim NbrBank As Integer
    Dim NbrCompta As Integer
    Dim ValTemp1, ValTemp2, ValTemp3 As String
    Dim ValTemp4, ValTemp5, ValTemp6 As String
    Dim FichierDest As String
 
                  blablabla....
 
    Open "c:\debug.txt" For Append As #1
    Write #1, daterappro
    Write #1, VarTempSociete
    Write #1, VarTempComptes
    Write #1, VarTempStatut
    Write #1, strSqlbnk
    Write #1, strSqlacc
    Write #1, sWhere
    Close #1
 
     Set Conn = New ADODB.Connection
     Conn.ConnectionString = RechercheConnectionString
     Conn.Open
 
     'ouverture du fichier de destination
     FichierDest =     ' ici jr ne sais pas quoi mettre
     Open " & FichierDest & " For Append As #2 
 
     Set flow_bnk = New ADODB.Recordset
     Set flow_acc = New ADODB.Recordset
 
     flow_bnk.Open strSqlbnk, Conn, adOpenKeyset, adLockReadOnly, adCmdText
     Deb = True
 
     flow_acc.Open strSqlacc, Conn, adOpenKeyset, adLockReadOnly, adCmdText

**SfJ5Rpw8** · 03/06/2007, 22h36

Envoyé par captainamerica75

.....
En fait cette variable devrait etre récupérée dans un module de classe dont il y a une partie du code ci-dessous....

c'est vraiment un module de classe ...?

pour ta variable il faut la déclarer dans un module standard..!

**captainamerica75** · 03/06/2007, 22h50

oui je te confirme c'est un module de classe

**captainamerica75** · 03/06/2007, 22h52

oup's non je l'ai declarée dans un module normal

**SfJ5Rpw8** · 03/06/2007, 22h55

Envoyé par captainamerica75

oup's non je l'ai declarée dans un module normal

ok maintenant comme je te l'ai dis plus haut il faut déclarer ta variable tout en haut de ton module standard , hors de toutes fonctions, procédures... et une seule fois ! ( ne pas la déclarer dans le formulaire...)