Bonjour,
Ci dessous une macro qui marche bien. Elle prend un onglet de mon fichier, le copie colle en valeur et l enregistre sur l ordinateur. Mon seul probleme est que la sauvegarde ne se fait jamais dans le meme dossier, une fois je retrouve l excel cree dans MES DOCUMENTS, l autre fois dans le meme dossier que le fichier de base. Est ce que quelqu un pourrait m eclairer la dessus?
Merci.
Martinj75
Range("E6").Select
Set Sales_rep = ActiveCell
Range("A8").Select
Rows("9:500").Select
Sheets("copy").Visible = True
Selection.Copy
Sheets("copy").Select
Range("A2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("copy").Select
Application.CutCopyMode = False
Sheets("copy").Copy
ActiveWorkbook.SaveAs Filename:="BAR SR_" & Sales_rep & "_" & Date$ & ".xls", FileFormat _
:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
False, CreateBackup:=False
ActiveWindow.Close
Selection.ClearContents
Sheets("copy").Select
ActiveWindow.SelectedSheets.Visible = False
Sheets("BAR").Select
Range("A2").Select
Ci dessous une macro qui marche bien. Elle prend un onglet de mon fichier, le copie colle en valeur et l enregistre sur l ordinateur. Mon seul probleme est que la sauvegarde ne se fait jamais dans le meme dossier, une fois je retrouve l excel cree dans MES DOCUMENTS, l autre fois dans le meme dossier que le fichier de base. Est ce que quelqu un pourrait m eclairer la dessus?
Merci.
Martinj75
Range("E6").Select
Set Sales_rep = ActiveCell
Range("A8").Select
Rows("9:500").Select
Sheets("copy").Visible = True
Selection.Copy
Sheets("copy").Select
Range("A2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("copy").Select
Application.CutCopyMode = False
Sheets("copy").Copy
ActiveWorkbook.SaveAs Filename:="BAR SR_" & Sales_rep & "_" & Date$ & ".xls", FileFormat _
:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
False, CreateBackup:=False
ActiveWindow.Close
Selection.ClearContents
Sheets("copy").Select
ActiveWindow.SelectedSheets.Visible = False
Sheets("BAR").Select
Range("A2").Select