Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
Rebonjour,
J'ai finalement opté pour :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayAlerts = False
If Not Me.Saved Then Me.Save
Me.SaveAs "D:\Mes documents\" & "Monfichier", 51
'51 => fichier .xlsx
End Sub
Mon fichier est copié en .xlsx sur un autre répertoire...
Bonjour,
Merci pour votre réponse mais malheureusement, ça ne marche toujours pas. En effet, lorsque j'ouvre la copie de mon fichier :
Si je nomme le fichier monfichier.xlsx --> message d'erreur sur le format/extension
Si je nomme le fichier monfichier.xlsm --> toujours une erreur VBA
Merci...
Bonjour,
Je souhaite pouvoir copier mon fichier Excel dans un autre répertoire au moment où je quitte mon fichier excel.
J'ai utilisé ceci :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.SaveCopyAs Filename:="D:\Mes Documents\" & "monfichier.xlsm"
End Sub
Malheureusement...
Merci. Pouvez-vous me dire comment je l'intègre dans ma macro, car ceci ne fonctionne pas :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWorkbook.SaveCopyAs Filename:= _
"Z:\chemin\TOTO.xlsx"
FileFormat:= xlOpenXMLWorkbook
End Sub
Bonjour,
J'ai, dans un fichier toto.xlm la macro suivante :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWorkbook.SaveCopyAs Filename:= _
"Z:\chemin\TOTO.xlsx"
End Sub
Je pensais que de forcer un enregistrement en .xlsx permettait que les macros ne s'exécutent pas sur...
Bonjour à tous.
Passée depuis peu sous Excel 2016 (après 2010) je suis assez surprise de tous les changements... J'avais une macro sur la version 2010 dont je me servais et qui me permettait, à l'enregistrement d'un fichier, de le copier également dans un autre répertoire de sauvegarde.
J'ai...
Ce site utilise des cookies pour personnaliser le contenu, adapter votre expérience et vous garder connecté si vous vous enregistrez.
En continuant à utiliser ce site, vous consentez à notre utilisation de cookies.