Fermer excel

j'ai bien reçu votre réponse concernant ma précédente question (envoyer des données vers excel et imprimer) mais j'ai trouvé un moyen tout simple pour y arriver , la voici:

' ouverture du fichier excel (en le cachant) et affectation des 'valeurs
fic = Shell("c:\program files\microsoft office\office\excel.exe _C:\test.xls", vbHide)
Set source = GetObject("C:\test.xls")
source.Sheets("Feuil1").range("B1").Value = valeur

' impression du fichier excel
source.Sheets("Feuil1").PrintOut Copies:=1

Mon problème concerne maintenant la façon de quitter excel
source.Application.Quit

Le problème c'est qu'en faisant ça, excel m'affiche un message me demandant si je veux enregistrer les modifications effectuées (comme à chaque fois que l'on quitte une application après modifications).
Or il faudrait que cette boîte de dialogue ne s'affiche pas, c'est à dire que je voudrais quitter sans sauvegarder et surtout sans qu'excel me le demande (pour des raisons que je ne peux expliquer car ce serait trop long).
Y'a-t-il un moyen d'y arriver?
Merci d'avance.