Fenêtre "Enregistrer sous"

JCGL

XLDnaute Barbatruc

• 30 Août 2009

• #2

Re : Fenêtre "Enregistrer sous"

Bonjour à tous,

Peux-tu essayer avec :

Code:

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

A+ à tous

 

Dernière édition: 30 Août 2009

Vote positif 0 Vote négatif

L

Leskwal

XLDnaute Occasionnel

• 30 Août 2009

• #3

Re : Fenêtre "Enregistrer sous"

Merci à tous,

j'essaie ça.

@ +

Pascal

 

Vote positif 0 Vote négatif

L

Leskwal

XLDnaute Occasionnel

• 31 Août 2009

• #4

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

 

Pièces jointes

• Exemple_Enregistrer sous.xls

  43.5 KB · Affichages: 35
• Exemple_Enregistrer sous.xls

  43.5 KB · Affichages: 33
• Exemple_Enregistrer sous.xls

  43.5 KB · Affichages: 35

Vote positif 0 Vote négatif

Mytå

XLDnaute Occasionnel

• 31 Août 2009

• #5

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

Cliquez pour agrandir...

Mytå

 

Vote positif 0 Vote négatif

L

Leskwal

XLDnaute Occasionnel

• 31 Août 2009

• #6

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

 

Pièces jointes

• Exemple_Enregistrer sous.xls

  43.5 KB · Affichages: 40
• Exemple_Enregistrer sous.xls

  43.5 KB · Affichages: 41
• Exemple_Enregistrer sous.xls

  43.5 KB · Affichages: 46

Vote positif 0 Vote négatif

L

Leskwal

XLDnaute Occasionnel

• 31 Août 2009

• #7

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

 

Pièces jointes

• Exemple_Enregistrer sous2.xls

  44.5 KB · Affichages: 43

Vote positif 0 Vote négatif

Mytå

XLDnaute Occasionnel

• 31 Août 2009

• #8

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

Cliquez pour agrandir...

Mytå

 

Vote positif 0 Vote négatif

L

Leskwal

XLDnaute Occasionnel

• 31 Août 2009

• #9

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

 

Vote positif 0 Vote négatif