enregistrer sous

bonjour,

On Error GoTo errhandler
essai:
response = Application.InputBox(prompt:="entrer nom du fichier sans
extension", Type:=2)
If response = False Then MsgBox "Fin programme": Exit Sub


ActiveWorkbook.SaveAs Filename"C:Documents and SettingsAdministrateurMes
documentsffe price archive" & response & ".xls"

errhandler:
If Err.Number <> 0 Then
Err.Clear
MsgBox "le nom spécifié pour le fichier n'est pas correct. Caractères
interdits.Ressayez"
Resume essai
End If

Bonjour

J’ai la macro suivante et j’aimerais lors de son exécution qu'elle me
demande seulement le nom du fichier avant d’enregistrer. Afin que
l’utilisateur n’est qu’à inscrire le nouveau nom du fichier à enregistrer.

Merci de votre support


Sub copie()
'
ActiveWorkbook.SaveAs Filename:= _
"C:Documents and SettingsAdministrateurMes documentsffe price
archiveUnit 146-1.xls" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:úlse, CreateBackup:úlse
End Sub

Bonjour,

Nom=InputBox("Nom du fichier sous la syntaxe Nom.Xls")
ActiveWorkbook.SaveAs Filename:= _
"C:Documents and SettingsAdministrateurMes
documentsffe price archive" & Nom _
, FileFormat:=xlNormal

Camille

-----Message d'origine-----
Bonjour

Jâ?Tai la macro suivante et jâ?Taimerais lors de son
exécution qu'elle me

demande seulement le nom du fichier avant dâ?
Tenregistrer. Afin que

lâ?Tutilisateur nâ?Test quâ?TÃ inscrire le nouveau nom
du fichier à enregistrer.

Merci de votre support


Sub copie()
'
ActiveWorkbook.SaveAs Filename:= _
"C:Documents and SettingsAdministrateurMes
documentsffe price

archiveUnit 146-1.xls" _
, FileFormat:=xlNormal, Password:="",
WriteResPassword:="", _

ReadOnlyRecommended:=False, CreateBackup:=False
End Sub

.

Bonjour.

Il y a la boite de dialogue Enregister sous...

Sub EnregistrerSous()
Application.Dialogs(xlDialogSaveAs).Show "TestFichier", 1&, "Lecture", True, "Ecriture", True
'Arg1 Nom du fichier
'Arg2 Type de fichier
' 1 Classeur Microsoft Excel(*.xls)
' 2 SYLK (*.slk) (*.slk)
' 3 Texte (séparateur: tabulation) (*.txt) (*.txt)
' 4 WKS (1-2-3) (*.wks)
' 5 WK1 (1-2-3) (*.wk1)
' 6 CSV (séparateur: point-virgule) (*.csv)
' 7 DBF 2 (dBase II) (*.dbf)
' 8 DBF 3 (dBase III) (*.dbf)
' 9 DIF (*.dif)
' 10 SYLK (*.slk) (*.slk)
' 11 DBF 4 (dBase IV) (*.dbf)
' 15 WK3 (1-2-3) (*.wk3)
' 16 Feuille de calcul Microsoft Excel 2.1 (*.xls)
' 17 Modèle (*.xlt)
' 18 Classeur Microsoft Excel(*.xls)
' 19 Texte (Macintosh) (*.txt)
' 20 Texte (séparateur: tabulation) (*.txt) (*.txt)
' 21 Texte (DOS) (*.txt)
' 22 CSV (Macintosh) (*.csv)
' 23 CSV (séparateur: point-virgule) (*.csv)
' 24 CSV (DOS) (*.csv)
' 29 Feuille de calcul Microsoft Excel 3.0 (*.xls)
' 30 WK1,FMT (1-2-3) (*.wk1)
' 31 WK1,ALL (1-2-3) (*.wk1)
' 32 WK3,FM3 (1-2-3) (*.wk3)
' 33 Feuille de calcul Microsoft Excel 4.0 (*.xls)
' 34 WQ1 (QuattroPro/DOS) (*.wq1)
' 35 Classeur Microsoft Excel 4.0 (*.xlw)
' 36 Texte (séparateur: espace) (*.prn)
' 38 WK4 (1-2-3) (*.wk4)
' 39 Classeur Microsoft Excel 5.0/95 (*.xls)
' 42 Texte Unicode (*.txt)
' 43 Classeur Microsoft Excel 97-2002 & 5.0/95 (*.xls)
' 44 Page Web (*.htm; *.html)
' 45 Archive Web (*.mht; *.mhtml)
' 46 Feuille de calcul XML (*.xml)
'Arg3 Mot de passe pour l'ouverture
'Arg4 Créer une copie de sauvegarde
' True Cochée
' False Non cochée
'Arg5 Mot de passe pour l'écriture
'Arg6 Lecture seule recommandée
' True Cochée
' False Non cochée
End Sub

Alain CROS

"jack" <jack@discussions.microsoft.com> a écrit dans le message de news: FE495BC3-197B-40AA-85A6-6EDA20FA3B03@microsoft.com...

Bonjour

J'ai la macro suivante et j'aimerais lors de son exécution qu'elle me
demande seulement le nom du fichier avant d'enregistrer. Afin que
l'utilisateur n'est qu'à inscrire le nouveau nom du fichier à enregistrer.

Merci de votre support


Sub copie()
'
ActiveWorkbook.SaveAs Filename:= _
"C:Documents and SettingsAdministrateurMes documentsffe price
archiveUnit 146-1.xls" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:úlse, CreateBackup:úlse
End Sub