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