Discussion :

[BoorBox]

Bonjour.

A partir d'une macro je souhaiterais créer un nouveau classeur où j'enregistre des données dessus. Mon 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
 
Private Sub create_excel_need(ByRef nd_tbl() As need)
    Dim excel_need As Workbook
    Dim excel_need_sh As Worksheet
 
    Set excel_need = Workbooks.Add
    Set excel_need_sh = excel_need.Worksheets("Feuil1")
    With excel_need_sh
    Dim i As Integer
    For i = 1 To UBound(nd_tbl)
        .Cells(i, 1) = nd_tbl(i).ref
        .Cells(i, 2) = nd_tbl(i).desc
        .Cells(i, 3) = nd_tbl(i).date
        .Cells(i, 4) = nd_tbl(i).qty
    Next
    End With
    Dim Fichier As String
    Fichier = Application.GetSaveAsFilename(path)
    ActiveWorkbook.SaveAs Fichier & "xlsx"
End Sub

Déroulement du code:
Je crée un nouveau classeur avec une feuille et j'écris dedans puis je l'enregistre.

Ce que je voudrais c'est que le classeur en question ne s'ouvre jamais ne paraisse jamais sur l'interface graphique.
J'ai regardé plusieurs solutions où d'après ce que je comprenais, ils gelaient l'affichage mais ça ne me convient pas.

Je n'ai pas d'erreur dans le code je veux juste une meilleur ergonomie.

Merci
Bonne Journée

[Tylert]

Tu peux enregistrer les données dans un fichier .csv
Il suffit de déclarer ton fichier et son chemin d'accès, d’écrire dedans avec la commande print et de le fermer. Le classeur ne s'ouvre pas, n'est jamais visible mais est bien créé avec les données.
Attention il faut bien formater les données pour être au format CSV.

Ex:

Code :

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

1
2
3
4
5
6
7
8
9
10
    Dim Chemin As String
 
    Chemin = Application.Workbooks(1).Worksheets(6).Range("G2").Value & "\draftDetails-" & Right(DraftDetailForm.CBDate, 4) & "-" & Mid(DraftDetailForm.CBDate, 4, 2) & "-" & Left(DraftDetailForm.CBDate, 2) & ".txt"
 
    Open Chemin For Output As #1
 
    Print #1, "Rounds" & Chr(13)
    Print #1, TabMatches(i).Ronde & " (" & TempScoreB & ") " & TabMatches(i).JoueurB & " (" & TabMatches(i).couleurB & ") BYE"
 
    Close #1

[BoorBox]

Ooh Super!!

J'aime beaucoup l'idée, comme ça le document final peut être utilisé facilement par une BDD.
Je testerai ça. (au final j'ai plus besoin de créer de document)
Je laisse la discussion comme non-résolu vu que ça contourne le problème de base.