salut a vous

Voila , jaimerais a la fin de mon projet fermer mon classeur de travail et ouvrir le resultat du devis .
En fait mon projet ecrit un devis qu'il enregistre ensuite dans le dossier ou il se trouve sous le nom du client selon :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
Sub Enregistrer()
Dim stRep As String
     Sheets("devis").Copy
       stRep = ThisWorkbook.Path & "\Devis\"
     For Each s In ActiveSheet.Shapes 
     If s.Type = msoFormControl Then
       s.Delete
     End If
Next
     ActiveWorkbook.SaveAs stRep & Replace(Range("G4"), " ", "-") & Format(Now, "-ddmmyy")
     ActiveWorkbook.Close savechanges:=False
End Sub
Par contre a la fin du projet ( sur mon bouton quitter) j'ai ecrit ca :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
Private Sub CommandButton1_Click()
ThisWorkbook.Close savechanges = False
Workbooks.Open "chemin_nom_classeur.xls"
End Sub
le probleme et que je ne sais pas coment ecrire le chemin et nom du classeur a ouvrir qui est fonction du client ( voir 1er code)


donc comment integrer : "ActiveWorkbook.SaveAs stRep & Replace(Range("G4"), " ", "-") & Format(Now, "-ddmmyy")" dans mon code d'ouverture

merci a vous