Enregistrement fichier invisible

[fanic]

Bonjour à tous,

J'enregistre automatiquement un fichier lors de sa fermeture à un endroit spécifique grace à une macro.
Je voudrai que l'utilisateur ne voit pas le chemin ou le fichier s'enregistre.
Le probleme c'est que lors de l'enregistrement, une fenetre s'ouvre avec
"Enregistrement en cours: Enregistrement sous......" avec l'endroit ou le fichier va s'enregistrer !
Y a t il un moyen de masquer cette fenetre ?

J'ai essayé avec la commande Application.ScreenUpdating mais ca na marche pas.

Avez vous une idée ?

Merci d'avance.

 

[James007]

Re : Enregistrement fichier invisible

Bonjour,

As tu essayé :

Application.DisplayAlerts=False

juste avant la sauvegarde ... et bien sûr le remettre juste après ..

A +

 

[Papou-net]

Re : Enregistrement fichier invisible

Bonjour fanic,

Peut-être avec :

Application.DisplayAlerts = False
...
Application.DisplayAlerts = True

En début et en fin de ta macro de sauvegarde.

Espérant avoir répondu.

Cordialement.

Edit : bonjour James007, tu as tiré le premier !

 

[fanic]

Re : Enregistrement fichier invisible

Merci pour vos réponses...

Je viens de tester, mais ce na fonctionne pas.

 

[James007]

Re : Enregistrement fichier invisible

Re,

Pour que les contributeurs du Forum puissent t'aider avec précision, n'hésites pas à poster ton code et à indiquer la ligne qui "cloche" ...


A +

 

[Papou-net]

Re : Enregistrement fichier invisible

Re

Alors, ce doit être un message affiché par la macro, mais comme on ne l'a pas sous les yeux, difficile de faire plus.

A te lire.

Cordialement.

 

[fanic]

Re : Enregistrement fichier invisible

Voici la ligne de code qui enregistre le fichier:

<ActiveWorkbook.SaveAs Filename:= _
        "\\Serveur\Dossier_cachee\" & Range("G18") & ".xls", FileFormat:=xlNormal, Password:="xxxx", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False>

Ci joint le message en question...

merci

 

[James007]

Re : Enregistrement fichier invisible

Re,

A priori .. c'est surprenant ...car ce code devrait fonctionner ...

Application.DisplayAlerts = [COLOR="Red"]False[/COLOR]
  ActiveWorkbook.SaveAs Filename:= .....
Application.DisplayAlerts = [COLOR="red"]True[/COLOR]

A +