Fenêtre "Enregistrer sous"

[Leskwal]

Bonjour à tous

Comment
- faire apparaitre la fenêtre "enregistrer sous" ?

- Afficher un nom automatique dans la fenêtre fichier.
EX : Fichier.xlsm

Il ne restera qu'à l'utilisateur de choisir le chemin ...

Merci d'avance

Pascal

 

[JCGL]

Re : Fenêtre "Enregistrer sous"

Bonjour à tous,

Peux-tu essayer avec :

Workbooks.Open Application.GetSaveAsFilename("Fichier XL2007 (*.xlsm), *.xlsm")

A+ à tous

 

[Leskwal]

Re : Fenêtre "Enregistrer sous"

Merci à tous,

j'essaie ça.

@ +

Pascal

 

[Leskwal]

Re : Fenêtre "Enregistrer sous"

Bonsoir

Je dois m'y prendre mal. 😀

En fichier joint, ma demande.

Encore Merci pour le coup de main

Pascal

 

[Mytå]

Re : Fenêtre "Enregistrer sous"

Salut le forum

Un code pour Excel 2007

Sub Utilisation_FileDialog_Sauvegarde()
Dim objSaveBox As FileDialog

'Définit la fenêtre "Enregistrer sous"
Set objSaveBox = Application.FileDialog(msoFileDialogSaveAs)

With objSaveBox
'Définit un nom par défaut dans le champ "Nom de fichier".
.InitialFileName = "Nom fichier.xlsm"

'Définit le type de fichier par défaut:
.FilterIndex = 2 'Fichier xlsm

'Affiche la boîte de dialogue
.Show
'Enregistre
.Execute
End With

End Sub

Mytå

 

[Leskwal]

Re : Fenêtre "Enregistrer sous"

Bonjour à tous, bonjours le Québec

Merci Mytå pour votre réponse.

J'ai complété ma demande dans le fichier exemple.

Merci de vous pencher sur mon cas.

Pascal

 

[Leskwal]

Re : Fenêtre "Enregistrer sous"

Re à tous

J'ai tenté d'adapter vos solutions dans le fichier exemple joint.

Bah, j'ai vraiment du mal... 😎

MERCI d'avance pour votre aide.

Pascal

 

[Mytå]

Re : Fenêtre "Enregistrer sous"

Re le forum

Dans ton cas la cellule A85 est vide, donc pas de nom, remplace par

NomAction = Sheets("Feuil1").Range("B2").Value

Mytå

 

[Leskwal]

Re : Fenêtre "Enregistrer sous"

Je vérifie ça.

J'ai tellement la tête dans le guidon que je ne me suis même pas aperçue de l'erreur.
😀

Merci à toi

Pascal