Copier les valeurs d'une feuille dans un nouveau classeurs

[Eagle4_92]

Bonjour,

J'essaie depuis quelques temps de faire une macro sous excel pour extraire des valeurs d'un classeurs et les partager sur un réseau.

Pour l'instant j'ai lu pas mal de chose sur internet et cherché sur plusieurs forum mais je n'arrive pas à tout mettre bout à bout.

Je vous explique donc ce qu'il me faut :

Je voudrais qu'à la fermeture de mon fichier X.xlsm une macro exécute ceci :

Je dispose d'un fichier X.xlsm avec plusieurs feuilles.

Je dois copier les valeurs de plusieurs colonnes de la feuille 1 et les enregistrer dans un nouveau classeur qui s'appelle Y.xls

Il faudrait que tout ceci soit transparent (pas de demande de sauvegarde).

Voici ce que j'ai pour le moment mais j'imagine que le mieux serait de partir de zéro vu les résultats que j'obtiens...

Public Dossier

Dim Nom

Sub Sauve()

'Code réalisé avec enregistrement

Sheets("En cours").Select

ActiveSheet.Buttons.Add(225.75, 6, 91.5, 27.75).Select

ActiveSheet.Buttons.Add(37.5, 7.5, 91.5, 24.75).Select

Sheets("En cours").Copy

ActiveWorkbook.Close (False)

Nom = "Y"

ThisWorkbook.SaveCopyAs Filename:=Dossier & Nom & ".xls"

ActiveWorkbook.Close (False)

End Sub

Function GetDirectory(Optional Msg) As String

GetDirectory = "C:\Users\*******\Desktop" 'choix du dossier de sauvegarde

Dossier = GetDirectory & "\"

End Function

Merci de votre aide