Probléme de maco pour une sauvegarde

Fermé
BD - 22 mai 2014 à 13:14
Bonjour,

Je charge un fichier que j'appelle "matrice" qui se trouve dans un répertoire donné, depuis un autre répertoire (non constant). Par macro , je veux sauvegarder cette matrice, sous un nom Test1 dans le répertoire ou je me trouve. La sauvegarde se fait bien sous le nouveau nom, mais soit dans le répertoire d'origine, soit dans Document de la bibliothèque Je n'arrive pas à programmer le nom du fichier comme étant le fichier actif, du style :

Activeworkbook.Name = Test remplaçant ainsi le nom actuelle "matrice"

Sub SAUVG()

Fichier = Range("V5")
Vérif = Range("V4")
Mat = ActiveWorkbook.Name
If Vérif = "" And Mat = "MATRICE NOTES.xlsm" Then Fichier = Mat
If Fichier = "" Then
MsgBox "Pas de nom de fichier saisi !", vbOKOnly, " Sauvegarde Impossible!"
Exit Sub
End If
If Fichier <> Mat Then
Range("F4:G4").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("F7").Select
End If
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveSheet.EnableSelection = xlUnlockedCells
Application.DisplayAlerts = Fals

'ActiveWorkbook.Filename = "" & Fichier
'ActiveWorkbook.Save
'ActiveWorkbook.SaveAs Filename:="" & Fichier, CreateBackup:=False

ActiveWorkbook.SaveAs Filename:="" & Fichier, _
FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
Quit = MsgBox(" VOULEZ-VOUS QUITTER CE FICHIER ?", vbYesNo, "")
If Quit = 7 Then Exit Sub
Application.Run "Quitte"
End Sub

Si quelqu'un peut d'aider... d'avance, merci