Chemin enregistrement par cellule Excel

Bonjour,

j'aimerai pouvoir changer les chemin d'enregistrement par apport à une cellule d'Excel

pour : O:\Rapport activité\6-Macro\MCVS.xlsm la cellule se trouve dans l'onglet MCVS en A51

pour : O:\Rapport activité\6-Macro\Sauvegarde\SauvMCVS.xlsm la cellule se trouve dans l'onglet MCVS en A52

voir la macro en dessous

Private Sub Workbook_BeforeClose(Cancel As Boolean)

'

Application.DisplayAlerts = False

ActiveWorkbook.SaveAs "O:\Rapport activité\6-Macro\MCVS.xlsm"

Application.Quit

Application.DisplayAlerts = False

ActiveWorkbook.SaveAs "O:\Rapport activité\6-Macro\Sauvegarde\SauvMCVS.xlsm"

Application.Quit

'

End Sub

merci et bonne soirée

Bonsoir

As-tu essayé sans la première sauvegarde ?

Private Sub Workbook_BeforeClose(Cancel As Boolean)
'
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs "O:\Rapport activité\6-Macro\Sauvegarde\SauvMCVS.xlsm"
Application.Quit
'
End Sub

bonsoir Bonzai64

oui mes 2 chemin fonctionne mais je voudrai pouvoir les changer a volonté juste en les changeant dans les cellule A51 et A52 de l'onglet MCVS

c'est à dire au lieu de

ActiveWorkbook.SaveAs "O:\Rapport activité\6-Macro\MCVS.xlsm"

avoir

ActiveWorkbook.SaveAs Filename:=[MCVS!A51]&"MCVS.xlsm"

car O:\Rapport activité\6-Macro se trouve en A51 de l'onglet MCVS

mas cela ne fonctionne pas

cordialement

Bonsoir

Tu veux définir les chemins dans 2 cellules : N'oublies pas le dernier "\"

Essayes

Private Sub Workbook_BeforeClose(Cancel As Boolean)

  Application.DisplayAlerts = False
  'ActiveWorkbook.SaveAs "O:\Rapport activité\6-Macro\MCVS.xlsm"
  ActiveWorkbook.SaveAs Sheets("MCVS").Range("A51") & "MCVS.xlsm"
  Application.Quit

  Application.DisplayAlerts = False
  'ActiveWorkbook.SaveAs "O:\Rapport activité\6-Macro\Sauvegarde\SauvMCVS.xlsm"
  ActiveWorkbook.SaveAs Sheets("MCVS").Range("A52") & "SauvMCVS.xlsm"
  Application.Quit

End Sub

Merci Bonzaï

c'est ok

re Banzai,

j'ai encore un petit PB

le fichier Sauvegarde est OK SauvMCVSm.xlsm

mais le fichier d'enregistrement MCVSm.xlsm ne prend pas en compte à la fermeture les dernière mise à jour

cordialement

Bonsoir

Vérifies si cette méthode te convient

Private Sub Workbook_BeforeClose(Cancel As Boolean)

  Application.DisplayAlerts = False
  ActiveWorkbook.SaveCopyAs Sheets("MCVS").Range("A51") & "MCVS.xlsm"

  ActiveWorkbook.SaveCopyAs Sheets("MCVS").Range("A52") & "SauvMCVS.xlsm"

End Sub

Ok Banzai

c'est good je n'ai plus que le message voulez vous enregistrer MCVS

mais les 2 fichiers "MCVS et SauvMCVS " sont identiques

merci encore de ta gentillesse

cordialement

Bonsoir

Maurice37 a écrit :

mais les 2 fichiers "MCVS et SauvMCVS " sont identiques

Avant aussi non ?

J'ai raté un épisode ?

non c'est moi qui suis aller trop v ite c'est bon merci