Discussion :

[max2245]

Bonjour,

lors de l'ouverture d'un fichier excel macro.xls, une macro
en auto_open s'éxécute; Elle ouvre de nombreux classeurs
excel et à la fin j'aimerais que le fichier macro.xls
se ferme tout en laissant le classeur resultat ouvert à l'ecran.

Si je ferme l'application

Code :

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

1
2
 
Application.Quit

excel se ferme, alors que j'aimerais conserver le fichier resultat à l'ecran.
Si je ferme le classeur macro.xls, un gros bug se produit car
la macro auto_open ne peut plus tourner, Donc j'ai l'impression
que je dois laisser ouvert le fichier macro.xls en plus de mon
classeur résultat.


dites moi si vous avez un solution à mes interrogations.

Merci

[megapacman]

salut,

essaie de mettre Application.Quit en commentaire pour voir

Code :

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

1
2
3
4
 
 
 
'Application.Quit

[Invité]

Salut

Essaye

Code :

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

1
2
 
application.Workbooks(x).close

En mettant à x le nom de chaqu'un de tes classeurs que tu veux fermer, donc autant de ligne que de classeur à fermer

Starec

[ouskel'n'or]

Si tu as plusieurs classeurs à fermer, tu peux mettre

Code :

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

1
2
3
4
5
Sub Fermertout()
For Each LeClasseur In Application.Workbooks
    If Not LeClasseur.Name = ThisWorkbook.Name Then LeClasseur.Close False
Next
End Sub

Là, tu fermes tous les classeurs à l'exception du classeur contenant les macros.
Tu mets "...Close true" si tu veux les enregistrer
A+

[max2245]

C'est ce que j'ai fait, mais je voudrais que cela ferme
le classeur avec la macro et laisse ouvert mon rapport
final où il n'y a la macro.

[ouskel'n'or]

Si tu fermes le fichier qui contient la macro, tu n'auras plus de macro pour fermer les autres fichiers
Mais tu peux faire ça

Code :

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

1
2
3
4
5
6
7
8
Sub Fermertout()
For Each LeClasseur In Application.Workbooks
    if not LeClasseur.name = "LeNomDuFichierQueTuVeuxGarderOuvert.xls" and _
       not LeClasseur.Name = ThisWorkbook.Name Then LeClasseur.Close False 'ou true
Next
ThisWorkbook.Close true 
'ou False selon que tu veux enregistrer ou non le fichier contenant les macros
End Sub

Ainsi tu fermeras le classeur contenant les macros en dernier

[max2245]

Il faut donc que j'execute cette fonction en dernier dans
mon programme, sinon plus de macro, donc mon programme
risque de bugger!
C'est ca?

[ouskel'n'or]

Ben oui... C'est ta demande.
Lis le code, tu devrais comprendre...
Tu as plein de fichier ouverts : Pincemi et pincemoi, ainsi qu'un fichier contenant les macros, LeBateau
Tu veux garder Pincemoi ouvert
Ce code ferme d'abord tous les fichier SAUF Pincemoi,
la dernière ligne fermant ensuite LeBateau...
Qu'est-ce qu'il reste...

Oui, en cette fin de semaine, je craque !