Modifier nom de classeur par défaut

[NewNewbie]

Bonjour à tous,

Après de nombreuses heures de vaines recherches, y compris sur ce forum, je n'arrive pas à obtenir la solution à un problème qui me paraissait simple au départ...

Comment modifier le nom de fichier qui apparaît par défaut lorsque l'utilisateur utilise la fonction enregistrer ou enregistrer sous?
En effet, en lieu et place de 'classeur 1', je préfèrerais avoir 'Nom_Fichier ' & 'Num_Semaine'... et ce sans afficher la boîte de dialogue via VBA mais par le menu enregistrer sous..

Merci d'avance à quiconque pourra éclairer ma lanterne.
@ +
NewNewbie

 

[Dan]

Bonsoir,

En allant dans VBA - Thisworkbook, tu peux placer cette macro :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayAlerts = False
Application.Dialogs(xlDialogSaveAs).Show
End Sub

Elle te permettra d'ouvrir la boite de dialogue 'Enregistrer sous' et tu pourras mettre le nom de fichier que tu souhaites puis fermera automatiquement le fichier en cours.

Est-ce que cela peut te convenir ?

 

[NewNewbie]

Bonsoir Dan,

J'avais déjà envisagé cette possibilité, mais elle oblige à passer par une commande autre que 'Fichier\\Enregistrer sous\\' ou 'Fichier\\Enregistrer' alors que mon besoin est juste de modifier le nom par défaut au moment ou l'opérateur décide d'enregistrer son fichier.

Merci quand même

NewNewbie

 

[julos08]

essaie ca

Sub fermer()
Dim NomFic As String
Dim Rep As String
Dim Nom As String
Application.DisplayAlerts = False
With Sheets('feuil1')
'renome la feuille si besoin
NomFic = .Range('D7')
'le nom du fichier sera le meme que tas cellule D7 mais tu peux changer
End With
Nom = strPath & '\\' & NomFic
ActiveWorkbook.SaveAs FileName:=Nom
Application.DisplayAlerts = True
End Sub

@++
julos08

 

[NewNewbie]

Ok Julos,

Mais ça oblige à suvegarder le fichier sous le nom que tu as défini.
Pour préciser un peu plus mon besoin, ce que je voudrais réaliser c'est un remplissage par défaut du nom de ficbier dans la boîte de dialogue 'Enregistrer' ou 'Enregister sous' avec un format type. Mais si l'utilisateur préfère un autre nom, alors il doit pouvoir le modifier.

@+

 

[julos08]

essaie ca

Sub fermer()
Dim NomFic As String
Dim Rep As String
Dim Nom As String
Application.DisplayAlerts = True
With Sheets('feuil1')
'renome la feuille si besoin
NomFic = .Range('D7')
'le nom du fichier sera le meme que tas cellule D7 mais tu peux changer
End With
With Application
.SendKeys '{TAB} {DOWN 0} ~ {TAB}', True
.Dialogs(xlDialogSaveAs).Show NomFic
End With
End Sub

@++
julos08

 

[NewNewbie]

Ok Julos,

Mais cette procédure ne se lance pas quand j'utilise la commande du menu Fichier, Enregistrer sous.
Elle nécessite le rajout d'un bouton pour exécuter la procédure, chose que je voudrais si possible éviter...

@+

 

[julos08]

A part une macro moi je ne vois pas au pire tu crée une icone.

Bon courage


@++
julos08

 

[NewNewbie]

Meric pour ton aide ...

@+