Réponse message automatiquement avec code

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,

Salut,

en plaçant ton application.displayalerts = false au début de ta macro, et en mettant un application.displayalerts = true à la fin

tel un barbare et croise les doigts

Hello,

Tant qu'à faire

Sub oCode()

Workbooks.Open("R:\\Guillaume\Au 310715\Fichier de base.xls") 'Ouverture du classeur et chemin
Workbooks.Open("R:\\Guillaume\Au 310715\Anthony.xlsm") 'Ouverture du classeur et chemin

Application.DisplayAlerts = False 'Desactive les pop-ups
             ActiveWorkbook.SaveAs("R:\ESPACE PERSONNEL\ANTHONY\ANTHONY.xls", FileFormat:=xlExcel8)
Application.DisplayAlerts = True 'Réactive les pop-ups

Activeworkbook.Close True 'Ferme le classeur et l'enregistre (=True)

End sub

Oui ça marchait !

Mais là ça devient cohérent, donc plus sûr et un petit peu plus rapide [@SoumZoum ]

et ça se lit sans avoir à supputer entre diverses interprétations...

Salut à tous

Ferrand