Enregistrement en VBA

Bonjour à tous,

Je revisne vers vous pour un coup de pouce.

J'ai récupéré ce code sur le net qui marche bien d'ailleurs mais je voudrais qu'in ne m'enregistre que la première page et pas tout le fichier et, je n'y arrive pas.

Pouvez_vous me donner un coup de pouce.

Merci à tous.

Voici le code en question.

'Procédure permettant de réaliser un fichier de sauvegarde

Sub FichierSauvegarde1234()

'Déclaration des variables
Dim NomDossier As String
Dim NomFichier As String

'Affectation des variables
NomDossier = "D:\Mes Documents\Sauvegarde_xlsm\"
'Désactiver les messages d'alertes
Application.DisplayAlerts = False
'On créé le nom du fichier de sauvegarde (Date + Nom)
NomFichier = Range("F5") & " " & Day(Date) & "-" & Month(Date) & "-" & Format(Time, "hh") & " " & Format(Time, "mm") & ".xlsm"
'On sauvegarde le fichier de backup
ActiveWorkbook.SaveCopyAs NomDossier & NomFichier
'On affiche un message de confirmation
MsgBox "Votre fichier de sauvegarde intitulé : " & NomFichier & vbNewLine & _
"dans le dossier suivant : " & NomDossier, vbOKOnly + vbInformation, "CONFIRMATION"
'On quitte Excel
'Application.Quit

End Sub

Bonjour,

Voici un essai avec un format AAMMJJ pour avoir un tri chronologique :

Sub FichierSauvegarde1234()

Dim NomDossier$, NomFichier$, chemin$

NomDossier = "D:\Mes Documents\Sauvegarde_xlsm\"
NomFichier = Range("F5") & " " & format(Now, "YYMMDD-HHMM") & ".xlsm"
chemin = NomDossier & NomFichier

Sheets(1).copy 'copie feuille 1 dans nouveau classeur (devient classeur actif)
'Application.DisplayAlerts = False 'Désactiver les messages d'alertes
ActiveWorkbook.Close savechanges:=true, filename:=chemin 'fermeture et sauvegarde au nom défini avant
'Application.DisplayAlerts = True 'Réactiver les messages d'alertes

MsgBox "Votre fichier de sauvegarde intitulé : " & NomFichier & vbNewLine & _
"dans le dossier suivant : " & NomDossier, vbOKOnly + vbInformation, "CONFIRMATION"

End Sub

Je ne suis pas certain que désactiver les alertes soit utile dans ce cas.

Le mieux serait de préciser la feuille de la cellule F5 permettant de nommer le fichier : Sheets("nomfeuille").range("F5")

Cdlt,

Bonjour,

A+