Discussion :

[FreshTrading]

Bonjour,

Je souhaite faire une macro qui créer un fichier excel nommé "result", et que dans ce fichier je crée une matrix avec des nombres aléatoires, j'élève ces nombres au carré et je copie colle ce tableau dans une nouvelle feuille appelé "square matrix". Puis sauvegarder et fermer ce fichier.
J'ai un souci avec mon code, ca me créer bien ce fichier result, mais le souci c'est que toutes les manipulations suivantes ne sont pas réalisés dans le fichier result mais dans n'importe quel classeur excel ouvert.

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
Sub tableau()
'create an excel file with one worksheet Result'
Dim MyExcel As Excel.Application
Dim New_Workbook As Excel.Workbook
Dim filename As String
Dim path As String
Dim Fcell As String
Dim Scell As String
 
path = "C:\Users\PC\Dropbox\IUM\Bachelor\VBA\"
filename = "result.xlsx"
 
Set MyExcel = CreateObject("Excel.Application")
Set New_Workbook = MyExcel.Workbooks.Add
New_Workbook.Sheets(1).Name = "Result"
New_Workbook.SaveAs path & filename
New_Workbook.Close
MyExcel.Quit
 
 
Fcell = InputBox("Select a first cell")
Scell = InputBox("Select a second cell")
Range(Fcell, Scell).Formula = "=Rand()"
 
Range(Fcell, Scell).Select
selection.Value = ActiveCell.Value ^ 2
selection.Copy
 
Sheets.Add After:=ActiveSheet
Sheets(2).Name = "Square Matrix"
ActiveSheet.Paste
 
End Sub

Toute aide est bienvenue

[sogedic]

Code :

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

1
2
New_Workbook.Close
MyExcel.Quit

c'est en trop, non ?

[FreshTrading]

Code :

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

1
2
New_Workbook.Close
MyExcel.Quit

c'est en trop, non ?

En fait je sais pas comment placer mes éléments pour que tout se déroule dans le fichier result.
Quand on crée un fichier excel en VBA, comment on indique que les macros suivantes doivent être réalisé dans ce fichier?

[sogedic]

Code :

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

1
2
3
with New_Workbook
.sheet ou .range
end with

[Menhir]

le souci c'est que toutes les manipulations suivantes ne sont pas réalisés dans le fichier result mais dans n'importe quel classeur excel ouvert.

Comme il t'a été dit, tu fermes le fichier (tu fermes même Excel) avant d'y placer tes éléments.
Il ne risque donc pas de se remplir.