Discussion :

[direct83]

Bonjour,

Je reviens sur ce forum après une longue absence

J'ai un petit souci

J'ouvre mon classeur excel nommé Courrier Arrivée situé sur un lecteur réseau Z dans un dossier nommé Courrier Arrivée
Je souhaite à sa fermeture l'enregistrer dans ce même dossier sous le nom Courrar avec la date et l'heure d'enregistrement
Comment faire
Merci de votre aide

[jfontaine]

Bonjour,

Une proposition

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
ThisWorkbook.SaveAs ThisWorkbook.Path & "\Courar" & Format(Now, "ddmmyyyy hhmmss") & ".xls"

[kiki29]

Salut, à tester

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Option Explicit
 
Private Sub Sauvegarde()
Dim sChemin As String
Dim sDate As String
Dim sFichier As String
Dim sNom As String
 
    sChemin = ThisWorkbook.Path
    sDate = Format(Now, "yyyymmdd_hhmmss")
    sNom = "Courrar_" & sDate
    sFichier = sChemin & "\" & sNom
    ThisWorkbook.SaveAs Filename:=sFichier, FileFormat:=xlNormal
End Sub
 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Sauvegarde
End Sub

[direct83]

Bonjour,

Merci à Jfontaine, cela fonctionne très bien