' tri_adv Macro
' Macro modifiée le 26/01/2012 par Lopes-Gu
'
Dim Monfichier, Jour, Question, Client, Datevisite, Objet
Application.CutCopyMode = False
Client = Range("d8")
Datevisite = Format(Range("k12"), "dd-mm-yyyy")
'demande d'enregistrement d'automatique
Question = MsgBox("Voulez vous enregistrer automatiquement le fichier?", vbYesNo + vbQuestion + vbDefaultButton2, "")
If Question = 6 Then
On Error Resume Next
MkDir "P:\Mes documents\Compte rendu de visites\" & Client 'si le repertoire n'existe pas, la creation se fait
On Error GoTo 0
Monfichier = "P:\Mes documents\Compte rendu de visites\" & Client & "\" & Client & " - " & Datevisite ' je lui indique que le fichier sera appeler sous vba Monfichier, voir plus haut la déclaration de variable dim"
Monfichier = Monfichier & ".xls" ' definition de l'extension .xls
Objet = Client & "-" & Datevisite
ThisWorkbook.SaveCopyAs Monfichier
MsgBox "Sauvegarde terminée."