Discussion :

[Tan]

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 :

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
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.

[bidou]

Code :

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

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

[Tan]

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.