OVH Cloud OVH Cloud

Message "Remplacer fichier"

2 réponses
Avatar
jdel
Bonjour,
J'ai une Macro sous Excel 97 qui remplace un fichier existant
ActiveWorkbook.SaveAs FileName:="C:\WINDOWS\Bureau\Toto.xls",
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False

Cela affiche un message "Le fichier "Toto.xls" existe déjà, voulez-vous le
remplacer ?
Il faut cliquer sur oui à chaque fois pour que la macro continue
Existe-t-il du code permettant que ce message ne s'affiche pas et que
l'enregistrement se fasse d'office

Merci

2 réponses

Avatar
LSteph
Bonsoir Jdel,

le principe est le suivant:, désactiver les alertes avant et les réactiver
après

Sub regit()
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:="toto.xls"
Application.DisplayAlerts = True
End Sub


'lSteph
"jdel" a écrit dans le message de news:
430dff10$0$993$
Bonjour,
J'ai une Macro sous Excel 97 qui remplace un fichier existant
ActiveWorkbook.SaveAs FileName:="C:WINDOWSBureauToto.xls",
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:úlse, CreateBackup:úlse

Cela affiche un message "Le fichier "Toto.xls" existe déjà, voulez-vous le
remplacer ?
Il faut cliquer sur oui à chaque fois pour que la macro continue
Existe-t-il du code permettant que ce message ne s'affiche pas et que
l'enregistrement se fasse d'office

Merci




Avatar
jdel
Merci LSteph c'est juste ce qu'il me fallait
LSteph a écrit dans le message :
#
Bonsoir Jdel,

le principe est le suivant:, désactiver les alertes avant et les réactiver
après

Sub regit()
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:="toto.xls"
Application.DisplayAlerts = True
End Sub


'lSteph
"jdel" a écrit dans le message de news:
430dff10$0$993$
Bonjour,
J'ai une Macro sous Excel 97 qui remplace un fichier existant
ActiveWorkbook.SaveAs FileName:="C:WINDOWSBureauToto.xls",
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:úlse, CreateBackup:úlse

Cela affiche un message "Le fichier "Toto.xls" existe déjà, voulez-vous
le


remplacer ?
Il faut cliquer sur oui à chaque fois pour que la macro continue
Existe-t-il du code permettant que ce message ne s'affiche pas et que
l'enregistrement se fasse d'office

Merci