Discussion :

[ajor]

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 ??

[pgz]

Bonjour.

Je n'ai pas compris ton problème.
En plus le sens de

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

m'échappe totalement.

Deux remarques quand même :
tu crées une nouvelle application Excel. Cela n'est pas utile, tu peux utiliser l'application du classeur "génère.xls". Cela peut même être très gênant si tu dois faire des copies de "génère" vers "resultats".
Si ton classeur "résultats" a toujurs le même chemin et le même nom, tu ne pourras le créer qu'une fois.

Cordialement,

PGZ

[ajor]

Bonjour,

Merci pour ta réponse.

Voici quelques précisions car mon histoire n'est pas claire :

j'ai déjà créé la macro (elle est assez lourde, appelle une base oracle, etc) qui met à jour le fichier résultat.xls, mais cette macro est située dans le fichier résultat.xls.
Donc dès qu'on veut ouvrir resultat.xls, on est obligé de déclencher cette macro. Or j'aimerais que la macro soit situé dans un autre fichier appelé genere.xsl, afin qu'on puisse utiliser resultat.xls, sans regénérer le fichier à chaque fois qu'on l'ouvre.

Est-ce que tu vois mieux ce que je veux dire ?

[pgz]

Re,

Voici quelques précisions car mon histoire n'est pas claire :

Bon début...

j'ai déjà créé la macro (elle est assez lourde, appelle une base oracle, etc) qui met à jour le fichier résultat.xls, mais cette macro est située dans le fichier résultat.xls.
Donc dès qu'on veut ouvrir resultat.xls, on est obligé de déclencher cette macro.

Je ne vois pas pourquoi. Ce n'est pas parce qu'un classeur contient une macro qu'on est obligé de l'exécuter dès qu'on ouvre ce classeur.

Est-ce que tu vois mieux ce que je veux dire ?

Du coup, je ne vois pas le problème.

Si tu tiens à diffuser le classeur Resultat sans la macro de mise à jour, tu peux toujours mettre dans Resultat une autre macro qui crée un claseur en copiant les feuilles et pas le code.

Cordialement,

PGZ

[ajor]

Le truc c'est que mon fichier resultat.xls sera régénéré automatiquement une fois par jour sur un serveur puis copié sur des postes clients, qui eux devront pouvoir l'ouvrir sans problème.

Dans ce cas, comment dois-je faire à ton avis ?

[mayekeul]

bonjour,

si j'ai bien compris

tu dois mettre ton code dans l'événement OPEN du workbook genere.xls

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 Workbook_Open()
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