Discussion :

[Invité]

Bonjour,
Avec ce que j’ai collecté sur le forum, j’ai voulu faire une macro pour créer un fichier CSV dans un répertoire.
Mais à priori, j’ai voulu vérifié que le dossier existe et le créer s’il n’existe pas.
Puis créer le fichier csv (en lecture seule) dans ce répertoire.
Mais j’ai vite déchanté, j’ai obtenu un résultat bizarre (en fait, c’est mon code qui est bizarre).
Le Répertoire est créé, mais le fichier est enregistré dans "MesDocuments". Je n'ai rien compris.

J’espère être clair, je voudrais parvenir à recréer ce fichier csv s’il est effacé ou le mettre à jour.
Mon premier souci est l’enregistrement de ce fichier dans le bon répertoire.

Le second est le « SetAttr Fichier, vbNormal » quand le fichier n’a pas encore été créé.

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
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim nomdossier As String, chemin As String, Fichier As String, nomfichier As String
Dim i, j, DernièreLigne, DernièreColonne
'----------------------------------------------------------------------------------------------
nomdossier = "Archive des BD"
nomfichier = "Historique des connexions" & ".csv"
chemin = ThisWorkbook.Path
ChDir chemin 'se place sur le repertoire du programme
If Dir(chemin & "\" & nomdossier & "\", vbDirectory) = "" Then
    MkDir chemin & "\" & nomdossier
End If
repert = chemin & "\" & nomdossier
ChDir repert
Fichier = repert & "\" & nomfichier
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Application.ScreenUpdating = False
 
With Sheets("Connexion")
    .Visible = True
    .Activate
    'On Error Resume Next
 
    'SetAttr Fichier, vbNormal
    Open nomfichier For Output As #1  'Tu crées le fichier
 
DernièreColonne = .Range("A1").End(xlToRight).Column
DernièreLigne = .Cells(1, 1).SpecialCells(xlCellTypeLastCell).Row '- 1
 
For i = 1 To DernièreLigne
            For j = 1 To DernièreColonne ' - 1
               Print #1, Cells(i, j).Value, ";";
            Next j
            Print #1, Cells(i, j + 1).Value
        Next i
 
    Close #1
    'SetAttr Fichier, vbReadOnly
    .Visible = False
    End With
    Sheets("Menu").Activate
    Application.ScreenUpdating = True
End Sub

Je vous remercie pour votre aide.
NB:La feuille "Connexion" concernée par le fichier csv est cachée.

Cordialement,