Macro enregister sous

Attila451 · 27 Janvier 2018

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 · 27 Janvier 2018

Bonjour Attila451,

Comme ceci

VB:

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 · 27 Janvier 2018

Bonjour

ou comme ceci

VB:

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 · 27 Janvier 2018

bonjour,
merci à vous !

Macro enregister sous

Attila451

XLDnaute Occasionnel

cp4

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Attila451

XLDnaute Occasionnel

Discussions similaires