nommé un fichier

[Mouchty85]

bonjour a tous,
je suis toujours sur mon petit programme et j'ai encore un probleme.
quand j'ouvre la boite de dialogue " enregistrer sous j'aimerai que le nom du fichier soit déja inscrit dedans. il correspond au nom de la presonne qu'elle a saisie dans une page précédente du multipage.

Merci de votre aide

 

[MichelXld]

Re : nommé un fichier

bonjour

tu peux tester

Application.Dialogs(xlDialogSaveAs).Show "NomParDefaut.xls"

Bonne journée
MichelXld

 

[dg62]

Re : nommé un fichier

Bonjour Mouchty85


je ne suis pas venu depuis quelques temps et je ne connais donc pas ton petit prog. Mais voilà une solution à adapter à ton cas.

Sub enregistre()

    ActiveWorkbook.SaveAs Filename:="C:\" & Range("A1").Value, FileFormat:= _
        xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
        , CreateBackup:=False
End Sub

Bonne journée

 

[Mouchty85]

Re : nommé un fichier

merci c'est exactement ce que je voulais

 

[andreaG]

Re : nommé un fichier

Bonjour dg62
j'ai repris ta macro qui facilite l'enregistrement sous mais je rencontre un probleme d'ecriture en remplaçant l'adresse:
je voudrais replacer "c:\: par
\\Stargate\Labo2\M\base de données\fax \g
et là ça ne fonctionne pas sauf si j'enlève Range ("A1")
Peux tu m'aider
merci
AndreaG

 

[andreaG]

Re : nommé un fichier

problème résolu
Merci à tous et bon week end