Dim ChDir As String
Dim NomFichier As String
Dim NomCompletFichier As String
Dim Site As String
Dim Annee As String 'nom perqsonne
Dim Matricule As String
ChDir = Application.ActiveWorkbook.Path 'Chemin courant
'ChDir = "M:\base devis\"
Site = Me.Range("b5").Value
'Site = Me.Range("A1").Value
Annee = "2012"
Matricule = Me.Range("B7").Value
'Matricule = Me.range("A2").Value qui est le numéro de devis initial
NomFichier = Site & "_" & Annee & "_" & Matricule
'Ligne définitive :
'NomCompletFichier = ChDir & "\" & NomFichier
'Pour les tests, on ajoute l'heure au nom de fichier ; ainsi, il n'y a pas de doublon de noms
Dim stHeureExport As String
stHeureExport = "_" & _
Format(Hour(Time), "00") & "" & Format(Minute(Time), "00") & "" & _
Format(Second(Time), "00")
NomCompletFichier = ChDir & "\" & NomFichier & stHeureExport
'Copie de la feuille courante dans un nouveau classeur et enregistrement
Sheets(Array("Proposition", "Cotation")).Copy
ActiveWorkbook.SaveAs Filename:=NomCompletFichier
ActiveWorkbook.Close
MsgBox "le fichier a été enregistré sous le nom : " & vbCrLf & NomCompletFichier
CommandButton2.Enabled = True 'je permet la mise en place des prix