Masquer les documents créés
Bonjour.
A partir d'une macro je souhaiterais créer un nouveau classeur où j'enregistre des données dessus. Mon code:
Code:
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
