XL 2013 Avec une macro: Enregistrer le fichier suivant le nom d'une cellule

[nyto01]

Bonjour, je voudrai enregistrer automatiquement le fichier client.xlsm par la valeur de la cellule nommé NOM dans la feuille
Cette macro est faite par le générateur excel2013

Sub sauve_fichier()
'
' sauve_fichier Macro
'
Application.Goto Reference:="export_origine"
ActiveWorkbook.SaveAs Filename:= _
"E:\adtrava_tony\Informatique\miao_MDE\client.xlsm", FileFormat:= _
xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
ActiveWorkbook.Save
End Sub

Comment remplacer client.xlsm par nom de cellule (nom).xlsm

Merci
Tony

 

[Compte Supprimé 979]

Re : Avec une macro: Enregistrer le fichier suivant le nom d'une cellule

Bonsoir nyto01

En remplaçant "TOTO" par le nom de la feuille et "NOM" par le nom de la cellule,
essaye ceci

Sub sauve_fichier()'
' sauve_fichier Macro
'
Application.Goto Reference:="export_origine" ' Ca je ne sais pas ce que c'est !?
' Sauvegarder le classeur actif sous un nouveau nom
ActiveWorkbook.SaveAs Filename:=ActiveWorkbook.Sheets("Toto").Range("Nom").value & ".xlsm", _
	FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End Sub

A+

 

[nyto01]

Re : Avec une macro: Enregistrer le fichier suivant le nom d'une cellule

Merci BrunoM45, J'ai essayé sans succès: mon soucis, je ne connais pas le le VBA et la synthaxe.
Je vais me rapprocher d'un ami qui doit mieux connaître le VBA
Merci

 

[Robert]

Re : Avec une macro: Enregistrer le fichier suivant le nom d'une cellule

Bonjour le fil, bonjour le forum,

Je pense que le code ci-dessous devrait suffire :

Sub sauve_fichier()
Application.Goto Reference:="export_origine"
ActiveWorkbook.SaveAs Filename:= _
"E:\adtrava_tony\Informatique\miao_MDE\" & Range("Nom").Value & ".xlsm", FileFormat:= _
xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
ActiveWorkbook.Save
End Sub

 

[nyto01]

Re : Avec une macro: Enregistrer le fichier suivant le nom d'une cellule

Bonjour Robert
je viens d'essayer ta formule, c'est super!
Un grand merci
Tony