Discussion :

[jayroom]

Bonsoir le forum !

Je cherche à forcer un nom d'enregistrement pour un modèle excel (xlt) :
Mon modèle xlt propose directement d'"enregistrer sous" et non pas d'enregistrer sur mon fichier d'origine.
Je souhaiterais aller un peu plus loin :
Lorsque la fenêtre "enregistrer sous" apparaît, je souhaiterai que le nom d'enregistrement du fichier soit pré-rempli.
Ce nom d'enregistrement fait référence à des cellules de mon fichier.

A force de fouiller un peu, j'ai trouvé ce code que j'ai adapté à mes besoins :

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub Enregistrer_sous()
    info1 = Sheets("Prêt>20k€").Range("AK26")
    info2 = Sheets("Prêt>20k€").Range("AK27")
    info3 = Sheets("Prêt>20k€").Range("AK28")
    info4 = Sheets("Prêt>20k€").Range("AO12")
    info5 = Sheets("Prêt>20k€").Range("BK12")
    info6 = Sheets("Prêt>20k€").Range("O12")
    enregistre = ActiveWorkbook.Path & "\" & "Fiche d'analyse" & "_" & info2 & " - " & info3 & "_" & info4 & ".xls"
    ThisWorkbook.SaveAS (enregistre)
    End Sub

Par contre, ce code me pose deux problèmes :
- il faut le lancer manuellement(il ne fonctionne pas en cliquant sur l'icone disquette, ni en faisant "fichier-enregistrer" ou "fichier-enregistrer sous".
- cette macro enregistre mon fichier ainsi renommé dans le répertoire où se trouve le fichier source.

Pensez-vous qu'il est possible :
- d'adapter cette macro pour la lancer automatiquement (en cliquant sur l'icône disquette par exemple) ?
- d'ouvrir le pop-up "enregistrer sous" et surtout de laisser aux utilisateurs la possibilité d'enregistrer le fichier dans le répertoire de leur choix ?

Un grand merci d'avance à tous ceux qui pourront m'accorder un peu de leur temps.
-

[Invité]

Bonjour

Lorsque tu cliques sur la disquette tu déclenches l'évènement Workbook_BeforeSave du classeur.

C'est là que tu dois mettre ton code.

Philippe

[jayroom]

Bonjour Philippe, le forum !

Merci pour ta réponse : j'ai rajouter la fonction Beforesave dans ma macro (j'aurai peut-être également dû faire part de mon niveau en vba : débutant motivé !) :

Code :

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

1
2
3
4
5
6
7
8
 Option Explicit
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    info2 = Sheets("Prêt>20k€").Range("AK27")
    info3 = Sheets("Prêt>20k€").Range("AK28")
    info4 = Sheets("Prêt>20k€").Range("AO12")
    enregistre = ActiveWorkbook.Path & "\" & "Fiche d'analyse" & "_" & info2 & " - " & info3 & "_" & info4 & ".xls"
    ThisWorkbook.SaveAS (enregistre)
End Sub

En fait, ce que je souhaiterais, c'est qu'en cliquant sur l'icône de la disquette, la fenêtre "enregistrer sous" s'ouvre.
J'ai réussi à le faire simplement en enregistrant mon fichier xls en xlt.
Par contre, le code suivant m'enregistre directement mon fichier à un endroit (celui où se trouve le dossier source) :

Code :

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

 enregistre = ActiveWorkbook.Path & "\" & ..............

Sais-tu s'il est possible de laisser à l'utilisateur le choix de l'endroit d'enregistrement tout en proposant quand même un nom d'enregistrement pour le fichier ?
Par exemple en renommant enregistre = par name = ?

D'avance, merci beaucoup !

[jayroom]

Bonjour Philippe, le forum,
je viens de trouver la réponse à ma question donc je clôture mon post.
Merci à Philippe pour son aide ainsi qu'à Job75 qui m'a permis d'avancer grâce à son code.

Pour ceux que ça pourrait intéresser, voici le code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    If Sheets("Prêt>20k€").Range("AK27") = "" Or _
        Sheets("Prêt>20k€").Range("AK28") = "" Or _
        Sheets("Prêt>20k€").Range("AO12") = "" Then
        MsgBox "Afin de pouvoir enregistrer votre fichier, vous devez renseigner les éléments suivants dans la FA : Enseigne et ville du PDV, Structure juridique"
        Sheets("Prêt>20k€").Range("AK27").Select
        Cancel = True
    Else
        Nom = "Fiche d'analyse" & "_" & Sheets("Prêt>20k€").Range("AK27") & " - " & Sheets("Prêt>20k€").Range("AK28") & "_" & Sheets("Prêt>20k€").Range("AO12") & ".xls"
        If ThisWorkbook.Path = "" Then SendKeys Nom
    End If
End Sub

Bonne journée à tous et à bientôt,
jayroom