Sauv. dans un autre classeur

[flaneur]

Bonsoir le forum,

Vous serait il possible de m’aider ?
J’ai une feuille de saisie remplissant en auto (VBA) des tableaux de données,
dans le même classeur .
L’opérateur ouvre un classeur placé en raccourci sur le bureau ,saisie des données
qui sont archivées dans une autre feuille du meme classeur puis quitte par un bouton macro

Application.DisplayAlerts = False
ThisWorkbook.Save
Application.DisplayAlerts = True
Application.Quit
End Sub
Ces données sont très importantes, est il possible de sauvegarder dans deux classeurs différents lors de la fermeture du bouton macro quit ?
Classeur 1 ; celui qui sert aujourd’hui à la saisie.
Classeur 2 ; un classeur de sauvegarde
Toutes les idées et suggestions seront plus que bienvenues…

Merci.

 

[evelynetfrancois]

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

 

[Flaneur]

Bonsoir et merci pour ta solution.

je vais immédiatement l'essayer !!!

merci..

 

[Evelynetfrancois]

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

 

[Flaneur]

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

 

[Flaneur]

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

 

[Evelynetfrancois]

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