Bonjour le forum et bonne année à tous,
je me sers de la macro suivante pour sauvegarder un document et j'en suis très content. Je voudrais juste la compléter afin que la nouvelle copie que je veux sauvegarder dans le fichier dont le chemin est indiqué vienne remplacer la sauvegarde précédente au lieu de s'y ajouter (au bout d'un moment, le dossier est "encombré".
J'ai pensé à 2 possibilités :
- soit la nouvelle sauvegarde remplace automatiquement l'ancienne
- soit la boîte de dialogue qui me demande si je veux sauvegarder ce fichier me propose également si je veux que cette sauvegarde remplace la précédente ou pas.
Je prendrai celle qui me sera proposée.
Quelqu'un sait-il comment compléter la macro et à quel endroit insérer cette partie de code ?
Merci à tous ceux qui voudront bien m'aider.
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim strDate As String, Fichier As String, Chemin As String
Msg = "Désirez-vous sauvegarder ce fichier ?"
Réponse = MsgBox(Msg, vbYesNo)
If Réponse = vbYes Then
strDate = Format(Date, "dd-mm-yy") & "_" & Hour(Time) & "h" & Minute(Time)
Fichier = Sheets("Menu").Range("E8")
Chemin = "\\Ventoux\Documents communs\CNDS\" & Fichier
If Dir(Chemin, vbDirectory) = "" Then MkDir Chemin 'crée le répertoire s'il n'existe pas
ActiveWorkbook.SaveAs Chemin & "\" & "fichier du_" & strDate & ".xlsm"
End If
End Sub
je me sers de la macro suivante pour sauvegarder un document et j'en suis très content. Je voudrais juste la compléter afin que la nouvelle copie que je veux sauvegarder dans le fichier dont le chemin est indiqué vienne remplacer la sauvegarde précédente au lieu de s'y ajouter (au bout d'un moment, le dossier est "encombré".
J'ai pensé à 2 possibilités :
- soit la nouvelle sauvegarde remplace automatiquement l'ancienne
- soit la boîte de dialogue qui me demande si je veux sauvegarder ce fichier me propose également si je veux que cette sauvegarde remplace la précédente ou pas.
Je prendrai celle qui me sera proposée.
Quelqu'un sait-il comment compléter la macro et à quel endroit insérer cette partie de code ?
Merci à tous ceux qui voudront bien m'aider.
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim strDate As String, Fichier As String, Chemin As String
Msg = "Désirez-vous sauvegarder ce fichier ?"
Réponse = MsgBox(Msg, vbYesNo)
If Réponse = vbYes Then
strDate = Format(Date, "dd-mm-yy") & "_" & Hour(Time) & "h" & Minute(Time)
Fichier = Sheets("Menu").Range("E8")
Chemin = "\\Ventoux\Documents communs\CNDS\" & Fichier
If Dir(Chemin, vbDirectory) = "" Then MkDir Chemin 'crée le répertoire s'il n'existe pas
ActiveWorkbook.SaveAs Chemin & "\" & "fichier du_" & strDate & ".xlsm"
End If
End Sub