Macro pour enregistrer sous un nom précis

M

myDearFriend

Guest

• 28 Juin 2004

• #2

Bonsoir Masteur907,

Soit le code ci-dessous rattaché à un bouton (voir fichier ci-joint en exemple) :

Private Sub btnSauv_Click()
Application.Dialogs(xlDialogSaveAs).Show CStr(ThisWorkbook.ActiveSheet.Range("B2").Value)
End Sub



Cordialement,
Didier_mDF

 

Pièces jointes

• PourMasteur907.zip

  8.4 KB · Affichages: 84

Vote positif 0 Vote négatif

M

masteur907

Guest

• 29 Juin 2004

• #3

Je suis surpris par deux choses :

La premiere la vitesse de réponse
La deuxième c'est éxactement ce que je cherchais

Pour résumer Félicitation et Encore MERCI

 

Vote positif 0 Vote négatif

O

Ouin-Ouin

Guest

• 30 Juin 2004

• #4

Bonsoir à tous,

ma demande va dans l même sens sauf que je charche comment faire pour que le save.as me propose par défaut les cinq premières lettres du TextBox3 de mon USF

merci de votre aide toujours fort apprécié et @plus
bonne nuit
Oui-Ouin

 

Vote positif 0 Vote négatif

O

Ouin-Ouin

Guest

• 2 Juillet 2004

• #5

Merci Didier_mDF

La réponse que j'ai reçu de sa part est:

Application.Dialogs(xlDialogSaveAs).Show (pour afficher la boite de dialogue "Sauvegarder sous....) Left(ComboBox1.Text, 5) (pour les 5 premiers caractères de la valeur du ComboBox1)& Format(Date, "dd-mm-yyyy") (pour la date du jour )

En clair:
Application.Dialogs(xlDialogSaveAs).Show Left(ComboBox1.Text, 5) & Format(Date, "dd-mm-yyyy")

Bonne soirée à tous
Ouin-Ouin

 

Vote positif 0 Vote négatif