Enregistrement d'un nouveau fichier Excel

Bonjour a tous,

Je viens de créer un programme qui génère un document excel.

Je souhaiterais que, en appuyant sur un bouton sur mon excel de départ, le nouveau document excel soit généré et enregistré en format .xlsx dans le dossier "Appli/Notation/" sous le nom "RatingYYYYMMDD"

Pourriez vous m'aider s'il vous plait ?

Merci

Bonjour,

Il manque quelques détails donc il faudra ajuster en adpatant le nom de la feuille "Feuilleacopier", le chemin précis (variable dossier dans le code) et notamment le lecteur sur lequel se trouve Appli\Notation (j'ai supposé C:), et la date à mettre au formt YYYMMDD (j'ai supposé que c'était la date du jour) :

Sub NouveauFichier()

Dim dossier$, fichier$

dossier = "C:\Appli\Notation\" '<<< adapter
fichier = "Rating" & format(Now, "YYYMMDD") & ".xlsx" '<<< adapter now par range("celluleousetrouveladate").value

Sheets("Feuilleacopier").copy '<<< adpater nom de feuille
Activeworkbook.close savechanges:=true, filename:=dossier & fichier

end sub

Cdlt,

Bonjour JeannedL,

Avez-vous cherché un tout petit peu ?

En cherchant deux secondes, j'ai trouvé un code que j'ai modifié en fonction de votre demande :

 'Enregistrement du nom dans la variable myFile et du chemin dans myPath              
myPath = "C:\\Users\jeanne\Appli\Notation\" 'En fct de la disposition de votre dossier
myFile = "RatingYYYYMMDD"
ActiveWorkbook.SaveAs Filename:=myPath & myFile, FileFormat:=xlWorkbookDefault

À modifier selon votre chemin réseau.

Bonne journée,

Baboutz

EDIT : Devancé par 3GB que je salue !

En combinant le code de 3GB et le mien :

On ouvre un fichier, l'enregistre et on le ferme

Sub EnregistrerFichier()

    'On déclare les variables
    Dim myPath, MyFile As String
    Dim NewBook As Workbook

    'Enregistrement du nom dans la variable myFile et du chemin dans myPath
    myPath = "C:\\Users\jeanne\Appli\Notation\" 'En fct de la disposition de votre dossier
    MyFile = "Rating" & Format(Now, "YYYYMMDD")

    'On ouvre un nouveau classeur
    Set NewBook = Workbooks.Add

    'On l'enregistre et on le ferme
    NewBook.SaveAs Filename:=myPath & MyFile, FileFormat:=xlWorkbookDefault
    NewBook.Close

End Sub

Le fichier :

Baboutz