Modifier nom de classeur par défaut

Dan

XLDnaute Barbatruc

• 7 Mars 2005

• #2

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 ?

 

Vote positif 0 Vote négatif

N

NewNewbie

Guest

• 7 Mars 2005

• #3

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

 

Vote positif 0 Vote négatif

J

julos08

Guest

• 7 Mars 2005

• #4

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

 

Vote positif 0 Vote négatif

N

NewNewbie

Guest

• 7 Mars 2005

• #5

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.

@+

 

Vote positif 0 Vote négatif

J

julos08

Guest

• 7 Mars 2005

• #6

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

 

Vote positif 0 Vote négatif

N

NewNewbie

Guest

• 7 Mars 2005

• #7

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

@+

 

Vote positif 0 Vote négatif

J

julos08

Guest

• 7 Mars 2005

• #8

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

Bon courage


@++
julos08

 

Vote positif 0 Vote négatif

N

NewNewbie

Guest

• 7 Mars 2005

• #9

Meric pour ton aide ...

@+

 

Vote positif 0 Vote négatif