Bonjour à tous,
voici mon code :
Macro2 Macro
'
'
Workbooks.Open Filename:= _
"R:\\Guillaume\Au 310715\Fichier de base.xls"
Workbooks.Open Filename:= _
"R:\\Guillaume\Au 310715\Anthony.xlsm"
Sheets("Paramètres").Select
Sheets("CA").Select
Sheets("Marge").Select
Sheets("Volume").Select
ActiveWorkbook.Save
ChDir "R:\ESPACE PERSONNEL\ANTHONY"
ActiveWorkbook.SaveAs Filename:= _
"R:\ESPACE PERSONNEL\ANTHONY\ANTHONY.xls", FileFormat:= _
xlExcel8, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
ActiveWindow.Close
Je sais, il est pas joli joli mais ça marche ... lol par contre je voudrai éviter d'avoir à appuyer sur ok a chaque fois pour enregistrer, remplacer le fichier etc...
J'ai penser mettre le code Application.DisplayAlerts = True mais je sais pas ou le placer, j'ai essayer mais que neni rien à faire !!!
Pouvez vous m'aider svp,
Merci par avance,
voici mon code :
Macro2 Macro
'
'
Workbooks.Open Filename:= _
"R:\\Guillaume\Au 310715\Fichier de base.xls"
Workbooks.Open Filename:= _
"R:\\Guillaume\Au 310715\Anthony.xlsm"
Sheets("Paramètres").Select
Sheets("CA").Select
Sheets("Marge").Select
Sheets("Volume").Select
ActiveWorkbook.Save
ChDir "R:\ESPACE PERSONNEL\ANTHONY"
ActiveWorkbook.SaveAs Filename:= _
"R:\ESPACE PERSONNEL\ANTHONY\ANTHONY.xls", FileFormat:= _
xlExcel8, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
ActiveWindow.Close
Je sais, il est pas joli joli mais ça marche ... lol par contre je voudrai éviter d'avoir à appuyer sur ok a chaque fois pour enregistrer, remplacer le fichier etc...
J'ai penser mettre le code Application.DisplayAlerts = True mais je sais pas ou le placer, j'ai essayer mais que neni rien à faire !!!
Pouvez vous m'aider svp,
Merci par avance,