OVH Cloud OVH Cloud

Enregistrer sous + oui

3 réponses
Avatar
Sim
Bonjours a tous,
j'ai la formule suivante
ChDir "Z:\"
ActiveWorkbook.SaveAs Filename:="Z:\T-M Rapport Heures 2005(simon).xls",
_
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWorkbook.Close

comment faire pour que sa reponde oui automatiquement ?? la je suis oubliger
de reponde oui avant de le fermer :(

Merci de votre aide

3 réponses

Avatar
Michael
sendkeys (o) à la fin de ta sub ?

A plouch !
Avatar
Herve78
Je pencherai pour un DisplayAlerts :

Application.DisplayAlerts = False
Workbooks(NomClasseur).SaveAs FileName:=Repertoire & NomClasseur,
AddToMru:úlse
Application.DisplayAlerts = True

Le AddToMru:úlse permet de ne pas inscrire li fichier dans la liste des
récemment ouvert (voir Aide pour plus d'info)

Hervé


Bonjours a tous,
j'ai la formule suivante
ChDir "Z:"
ActiveWorkbook.SaveAs Filename:="Z:T-M Rapport Heures 2005(simon).xls",
_
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:úlse, CreateBackup:úlse
ActiveWorkbook.Close

comment faire pour que sa reponde oui automatiquement ?? la je suis oubliger
de reponde oui avant de le fermer :(

Merci de votre aide





Avatar
Sim
Merci a vous deux

"Sim" a écrit dans le message de news:

Bonjours a tous,
j'ai la formule suivante
ChDir "Z:"
ActiveWorkbook.SaveAs Filename:="Z:T-M Rapport Heures
2005(simon).xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:úlse, CreateBackup:úlse
ActiveWorkbook.Close

comment faire pour que sa reponde oui automatiquement ?? la je suis
oubliger de reponde oui avant de le fermer :(

Merci de votre aide