Bonjour tout le monde !

J'essaie de générer un fichier resultat.xls à partir d'une macro située dans genere.xls.

Alors voilà le code que j'ai trouvé :

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
Private Sub Command1_Click()
Dim xlApp As New Excel.Application
Dim xlBook As Workbook
Dim NomFichier As String
 
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Add
 
'.... ici on rajoute du code...
 
NomFichier = "D:\DONNEES\Commun\Calculateur\resultat.xls"
xlBook.SaveAs NomFichier 
xlBook.Close
xlApp.Quit
 
Set xlBook = Nothing 
Set xlApp = Nothing
End Sub

Lorsqu'on est dans le Visual Basic Editor, et qu'on execute la macro, resultat.xls se génère bien, par contre quand on ferme tout et qu'on lance genere.xls, on obtiens rien.

Le but étant qu'une execution de genere.xls créé résultat.xls (sans l'ouvrir)

A votre avis, que manque-t-il dans ma macro ??