Enregister sous - Nom de 2 cellules et emplacement défini

Bonjour,

J'ai un souci avec mon code VBA il ne fonctionne pas, il reprend bien le nom et prénom dans les cellules pour nommer le document, par contre l'emplacement ne correspond pas et il bug à l'enregistrement.

Voici mon code:

Sub enregister()

ChDrive "C:"

ChDir "C:\Users\cyber\Desktop"

SaveFileName = [b3] & " " & [b4]

Set REP = Application.FileDialog(msoFileDialogSaveAs)

With REP

.AllowMultiSelect = False

.InitialFileName = SaveFileName

If .Show = -1 Then

FichierProtoMaster.SaveAs Filename:=SaveFileName, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

End If

End With

End Sub

Merci d'avance de votre aide

Bonjour,

apparement le code est recopié

FichierProtoMaster.SaveAs Filename:=SaveFileName, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False[/code

Donc supprimer déjà cette partie

Bonjour M12,

Merci de ta réponse rapide mais j'ai cliquer sur la touche code dans le forum, le "[/code" n'apparait pas dans mon code vba !

Une autre idée ?

Merci d'avance

Re,

A tester

Sub test()

ChDrive "C:\"
ChDir "C:\Users\cyber\Desktop"
SaveFileName = CurDir & "\" & [b3] & " " & [b4] & ".xlsm"

Set REP = Application.FileDialog(msoFileDialogSaveAs)
    With REP
        .AllowMultiSelect = False
        .InitialFileName = SaveFileName
        .FilterIndex = 2
        If .Show = -1 Then
            SaveAs Filename:=SaveFileName, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
        End If
    End With

End Sub

Un grand merci !!!!

Manquait juste "ActiveWorkbook" pour que le code fonctionne.

Meilleures salutations

ActiveWorkbook.SaveAs Filename:=SaveFileName, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False