Enregistrement en VBA

Bonjour,

J'ai récupéré ce code sur le net et il fonctionne bien mais, il m'enregistre le fichier en entier alors que moi, je ne veux que la première page.

Je vous propose ce code et vous verrez que ma feuille est nommée DEVIS mais, elle s'ouvre sur la feuille ACCUEIL et donc, pas bon.

J'ai modifié le code selon les préconisations de 3GB mais ça ne fonctionne pas.

Voici le code :

'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 = Sheets("DEVIS").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

MERCI A TOUS;

Bonjour,

Un essai ...

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 = Sheets("DEVIS").Range("F5") & " " & Day(Date) & "-" & Month(Date) & _
                "-" & Format(Time, "hh") & " " & Format(Time, "mm") & ".xlsm"

   'On sauvegarde le fichier de backup

   Sheets("DEVIS").Activate   
   Sheets("DEVIS").Copy
   ActiveWorkbook.SaveAs Filename:=NomDossier & NomFichier, _
                         FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
   ActiveWindow.Close

   '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

ric

Bonsoir et merci mais ça ne change rien, le classeur s'enregistre entièrement et je ne veux que la première page...

Je continu de chercher l'erreur.

Bonne soirée.

Bonjour,

Quand tu mentionnes " je ne veux que la première page. " ...

Est-ce que tu veux dire le premier onglet qui se nomme Devis ? > c'est cela que ma macro fait ...

Ou tu veux dire la première page qui s'imprime ???

ric

Non, la page DEVIS qui est sur mon classeur la page 3 et qui se nomme aussi Feuil3....c'est a se niveau qu'il doit se passer un hic.....

Bonjour,

Pour la feuille complète (l'onglet) > si elle se nomme DEVIS ...

   Sheets("DEVIS").Activate   
   Sheets("DEVIS").Copy

Si tu préfères utiliser son numéro > qui serait le 3 > Feuil3 ..

   Feuil3.Activate   
   Feuil3.Copy

J'ai testé le code avant de te le proposer ...

ric

Nikel ric.

Merci beaucoup...très sympa.

Bonne fin de soirée.

ric