Macro enregister sous

[Attila451]

Bonjour,
J'ai un fichier type pour la facturation que j'enregistre sous le n° de dossier facturé.
Le numéro de dossier est saisi en B1.
Je veux qu'à chaque nouveau dossier facturé, le fichier prenne le nom du dossier.

J'ai cette macro mais qui plante:
Sub enregistrement ()

Dim nomdefichier as long
nomdefichier =worksheets("Matrice calculs").cells(1,2)

jusque la tout va bien, la variable prend en compte le n° du dossier, mais après, ca plante pour l'enregistrer:

ActiveWorkbook.SaveAs"nomdefichier"

Quelqu'un peut il m'orienter svp ?
Merci d'avance pour votre aide !

 

[cp4]

Bonjour Attila451,

Comme ceci

Sub Save_As()
Dim NomFichier As String
NomFichier = Worksheets("Matrice calculs").Cells(1, 2)
  ActiveWorkbook.SaveAs Filename:="C:\Users\DELL\Desktop\" & NomFichier & ".xlsm", _
  FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End Sub

 

[Staple1600]

Bonjour


ou comme ceci 😉

Sub Save_As_enModeCompression()
Dim NomFichier$
NomFichier = "C:\Users\DELL\Desktop\" & Worksheets("Matrice calculs").Cells(1, 2) & ".xlsm"
ActiveWorkbook.SaveAs NomFichier, 52
End Sub

(lol)

cp4: tu as mon dernier message dans ton fil?

 

[Attila451]

bonjour,
merci à vous !