[VBA EXCEL]Sauvegarde classeur

Bonjour,
J'aimerai proposer un chemin par défaut pour la sauvegarde, lorsque l'on enregistre un fichier pour la première fois.
J'étais partie pour faire ça:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Dim strFile As String Dim intSem As Integer Dim intAnnee As Integer   ' Si le fichier n'a jamais était enregistré If ThisWorkbook.Path = "" And ThisWorkbook.Saved = False Then ' On annule l'enregistrement Cancel = True   ' Récup des élément pour le nom de fichier intSem = Worksheets("Equipe").Range("J6").Value intAnnee = Worksheets("Equipe").Range("S6").Value   ' Récup du fichier voulu pour l'enregistrement strFile = Application.GetSaveAsFilename("S:\gesplus\Equipe\" & intAnnee & "\sem" & intSem & ".xls") ' Sauvegarde ThisWorkbook.SaveAs strFile End If End Sub

---

Alors, d'une part ça sauvegarde pas. Mais cela n'est pa grave, ce n'était qu'une ébauche.
Mais je me suis rendu compte qu'en faisant comme ça, je perdais les options du style (protéger en écriture).
Je souhaiterai donc, la vrai boite de dialogue d'excel, mais ouverte avec un chemin par défaut.
Ma question est donc:
Comment proposer un fichier par défaut lors d'une demande de sauvegarde, tout en aillant toujours les options de sauvegarde d'Excel?
Merci.

Code:

---

1 2 3

ChDrive "C" ChDir "c:\winNT\system" Application.Dialogs(xlDialogSaveAs).Show

---

Merci, pour vos réponse.

Bidou, pour ta solution ca marche, mais comme le dit escalon, je perd la propostition du nom de fichier (mais ce n'est pas très grave)

Escalon, le code que tu m'as mis sauvegarde avec avec le nom et les options voulues, mais ce que je veux c'est faire une proposition.
Il se peut que l'on veuille changer, et donc il faut afficher la boite de dialogue (ce que ne fait pas ton code).
Pour le ActiveWorkbook.Close, cela m'affichera la boite de dialogue, mais ne proposera pas le chemin et le nom de fichier.

En tout cas merci pour ces piste, je pense utiliser la méthode de Bidou.