Fermer plusieurs classeurs

[Thierry37]

Bonjour à tous,

Voilà, j'ai un fichier Excel trop volumineux en liens qui buggait pour des raisons d'allocations mémoires...
Je l'ai donc scindé en 2 fichiers :

1er : TBP 2005
2ème : TBP 2005 psp

Entre les 2 j'ai fait des liens hypertextes.

Dans le premier, dans le menu accueil des liens hypertextes renvoient vers le 2ème et du 2ème des liens renvoient vers l'accueil.

Mon problème c'est que je voudrais par un bouton macro du menu principal :

fermer le 2ème sans qu'il y ait un message demandant à l'utilisateur de sauvegarder.
Et quitter le classeur principal.

J'ai fait ce truc mais ça ne fonctionne pas...

Sub Quit()
'
' Quit Macro
' Macro enregistrée le 20/10/2005 par TCP
'
Private Sub workbook_beforeclose()
For Each classeur In Workbooks
If classeur.Name = 'TBP 2005 psp' Then
;claseur.close savechanges:=false

End If
Next
End Sub

'
End Sub

Pouvez-vous m'aider ?
Merci à tous,
A bientôt,

Thierry

 

[Philippe NOSS]

Bonsoir
La boucle for Each ne s'impose pas
Mais attention, le nom du classeur est certainement 'TBP 2005 psp.xls'
attention encore à l'eeurr de syntaxe Claseur.false ( manque un 's') :whistle:
Attention aussi à false qui ferme le classeur sans message mais aussi sans mise à jour

Peut etre la syntaxe suvante serait mieux
Private Sub workbook_beforeclose()
on error resume next
Workbooks('TBP 2005 psp').close
End Sub

pour sauvegarder le classeur avant de le femer inserer
Workbooks('cf.xls').Save

Philippe