OVH Cloud OVH Cloud

Paramètre de Save AS

4 réponses
Avatar
FRED
Bonjour,

Je lance un script, qui me permet d'ouvrir un classeur Excel, et de rentrer
des informations dessus.
A la fin de ce script, je souhaiterai pouvoir faire "enregistrer sous" pour
que ce classeur, nouvellement crée, s'enregistre dans un répertoire.
Mon problème est qu'à chaque fois, la boîte de dialogue de demande de
confirmation d'enregistrement s'affich, empêchant ainsi l'automatisation de
cette tâche...

Existe-t-il un moyen d'ignorer cette demande de confirmation?

Merci.

FRED.

4 réponses

Avatar
Fred
Dans son message %23Bk$
FRED nous dit :

Bonjour,

Je lance un script, qui me permet d'ouvrir un classeur Excel, et de
rentrer des informations dessus.
A la fin de ce script, je souhaiterai pouvoir faire "enregistrer
sous" pour que ce classeur, nouvellement crée, s'enregistre dans un
répertoire. Mon problème est qu'à chaque fois, la boîte de dialogue de
demande de
confirmation d'enregistrement s'affich, empêchant ainsi
l'automatisation de cette tâche...

Existe-t-il un moyen d'ignorer cette demande de confirmation?

Merci.

FRED.


Bonjour,
Quelques souvenirs :
Application.DisplayAlerts = False
Mais sinon, regarde s'il n'y a pas un booléen de forçage dans le Save.

--
Fred
http://www.cerbermail.com/?3kA6ftaCvT

Avatar
FRED
Bonjour,

le problème est que je ne trouve pas les paramètres de l'option Save...

FRED.

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

Dans son message %23Bk$
FRED nous dit :

Bonjour,

Je lance un script, qui me permet d'ouvrir un classeur Excel, et de
rentrer des informations dessus.
A la fin de ce script, je souhaiterai pouvoir faire "enregistrer
sous" pour que ce classeur, nouvellement crée, s'enregistre dans un
répertoire. Mon problème est qu'à chaque fois, la boîte de dialogue de
demande de
confirmation d'enregistrement s'affich, empêchant ainsi
l'automatisation de cette tâche...

Existe-t-il un moyen d'ignorer cette demande de confirmation?

Merci.

FRED.


Bonjour,
Quelques souvenirs :
Application.DisplayAlerts = False
Mais sinon, regarde s'il n'y a pas un booléen de forçage dans le Save.

--
Fred
http://www.cerbermail.com/?3kA6ftaCvT




Avatar
Fred
Dans son message
FRED nous dit :

Bonjour,

le problème est que je ne trouve pas les paramètres de l'option
Save...


Effectivement, il n'y en a pas avec Save. As-tu essayé avec le
DisplayAlerts ?
Quel est l'avertissement que tu reçois ? Je n'en ai aucun avec le petit
essai ci dessous sauf si le fichier existe déjà auquel cas la ligne :
xlApp.DisplayAlerts = False
est nécessaire.

Set xlApp = CreateObject("Excel.Application")
xlApp.DisplayAlerts = false
Set xlWrkBk = xlApp.Workbooks.Add
xlWrkBk.WorkSheets(1).Cells(1,1).Value = "Titi"
xlWrkBk.SaveAs "toto.xls"
xlWrkBk.Close
xlApp.Quit

--
Fred
http://www.cerbermail.com/?3kA6ftaCvT

Avatar
FRED
Je vais essayer, merci et bon week-end.


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

Dans son message
FRED nous dit :

Bonjour,

le problème est que je ne trouve pas les paramètres de l'option
Save...


Effectivement, il n'y en a pas avec Save. As-tu essayé avec le
DisplayAlerts ?
Quel est l'avertissement que tu reçois ? Je n'en ai aucun avec le petit
essai ci dessous sauf si le fichier existe déjà auquel cas la ligne :
xlApp.DisplayAlerts = False
est nécessaire.

Set xlApp = CreateObject("Excel.Application")
xlApp.DisplayAlerts = false
Set xlWrkBk = xlApp.Workbooks.Add
xlWrkBk.WorkSheets(1).Cells(1,1).Value = "Titi"
xlWrkBk.SaveAs "toto.xls"
xlWrkBk.Close
xlApp.Quit

--
Fred
http://www.cerbermail.com/?3kA6ftaCvT