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.