jayroom
XLDnaute Nouveau
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 :
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.
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:
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.