macro enregistrer sous

[gregory]

Bonjour a tout le forum

eh oui le we est fini il va falloir bosser
A ce propos j'ai besoins de votre je suis sur un fichier excel, j'aimerai mettre une macro me permettant d'ouvrir la boite de dialogue enregistrer sous, le petit pb est que j'aimerai qu'elle me selectionne uniquemment la feuille sur laquelle je travaille et non tout le classeur deplus j'aimerai qu'elle selectionne une cellule de cette feuille qu'elle la copie dans le nom du fichier bref beaucoup de chose

voici ci dessous un debut de macro que j'ai recupere

FileSaveName = Application.GetSaveAsFilename( _
initialfilename:=Nom_fich, fileFilter:="Fichiers Excel *.xls,*.xls,Tous Fichiers *.*,*.*", Title:="Enregister l'offre sous")


je n'arrive pas a fire la suite

merci pour votre aideet encore bonnne journee a+ tard

 

[Alex]

EnregistrerSous:
FichierEnregistrerSous = Application.GetSaveAsFilename(NomEtChemin, fileFilter:="Fichiers Microsoft Excel (*.xls), *.xls")
If FichierEnregistrerSous <> False Then
Affichage = MsgBox("Vous allez enregistrer " & NomFichier & " sous :" & Chr(10) & Chr(10) & FichierEnregistrerSous, , "Enregistrement du fichier")
Else
GoTo LaFin
End If

If Dir(FichierEnregistrerSous) <> "" Then
Affichage = MsgBox("Un fichier du même nom existe déjà à cet emplacement." & _
Chr(10) & Chr(10) & "Renommez le ou supprimer le.", vbExclamation, "NDLR")
GoTo EnregistrerSous
End If

ActiveWorkbook.SaveAs FileName:=FichierEnregistrerSous, FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=True


LaFin:
End Sub


FichierEnregistrerSous et NomEtChemin sont des variables.
Ce bout de macro ouvre la boite "Enregistrer sous" mais n'enregistre pas.
Ensuite je teste s'il y a un fichier du même nom présent.
Et pour finir et si tout le monde est d'accord, j'enregistre à l'endroit et sous le nom récupérer par la boite "Enregistrer sous".

 

[gregory]

Merci alex pour macro
elle fontionne nickel j'ai toutefois encore une petite question s'avez vous comment affecter le texte d'une cellule de la feuiile que l'on a copie au nom du fichier ds la boite de dialog enregistrer sous

merci encore pour tout

 

[Pascal76]

Salut

Voici un code qui attribue comme nom à ton fichier la valeur de la celluel A1

Sub essai()

MonFichier = Range("A1").Value

ChDir "C:\Mes Documents"
ActiveWorkbook.SaveAs Filename:= _
"C:\Mes Documents\" & MonFichier & ".xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False

End Sub

Bon courage

Pascal