Sauv. dans un autre classeur

bonsoir flaneur

voici une partie de la procedure que j utilise pour sauvegarde un double de mon classeur nommé 'sortie journalieres'sur C : sous un autre nom 'SortiesCycleHiverJM.xls'
a adapte a ton classeur evidement
bonne soirée
E et F

Sub sauvegarde()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
retour = MsgBox('Créé une copie de sauvegarde de la totalité du classeur !' & vbCrLf & ' ' & vbCrLf & ' Patienter.............. ! ', 4 + vbDefaultButton2 + vbExclamation, ' Sauvegarde sorties journalières ')
If retour = vbYes Then
Sheets('accueil').Range('K19').Value = Now
'place la date en k19'de la feuille d accueil
' ActiveWorkbook.Save


ActiveWorkbook.SaveAs Filename:= _
'C:\\SortiesCycleHiverJM.xls', FileFormat _
:=xlNormal, Password:='', WriteResPassword:='', ReadOnlyRecommended:= _
False, CreateBackup:=True
Application.ScreenUpdating = True

MsgBox 'Sauvegarde d'une copie du classeur effectuée avec succés !'' ' & vbCrLf & ' ' & vbCrLf & 'Emplacement: C:\\Sorties Cycle HiverJM.xls''', vbInformation, ' Sauvegarde sorties journalières '
GoTo fin:
End If
ActiveWorkbook.Save
MsgBox 'Aucune sauvegarde n'a eté effectuée ! ' & vbCrLf & 'Cependant le classeur a été enregistré ', vbCritical, ' Sauvegarde sorties journalières '
fin:
Application.DisplayAlerts = False
Application.Quit
End Sub

Bonsoir et merci pour ta solution.

je vais immédiatement l'essayer !!!

merci..

en fait ces lignes vont te suffir

ActiveWorkbook.SaveAs Filename:= _
'C:mon classeur', FileFormat _
:=xlNormal, Password:='', WriteResPassword:='', ReadOnlyRecommended:= _
False, CreateBackup:=True

bonne soirée
E et F

merci, cela me parait bien plus simple,
à adapté !!

Merci !!!!
Evelyne et Francois, merci impecccable.
Comme quoi, deux neurones valent mieux qu'un !!
vous m'avez vraiment bien aidé, merci encore.

bonjour le forum !!

oui biensur flaneur
pour info ,dans ma procedure (ici imcomplete )je fais apparaitre une barre de deffilement (10,20,30.......100%)pour la convivialité et agrementer cette sauvegarde!!!ainsi que des boites d infos !msgbox!
j aime les applications abouties lol
bon travail

E et F