Enregistrement auto fermeture ou bouton

[Fony]

Bonjour,
On m'a donné qlq lignes de code pour enregistrer à la fermeture d'un classeur avec création de dossier et fichier :

Sub test()
Dim Chemin$, Client$, Fichier$
Chemin = "D:\Clients et Fournisseurs\"
Client = Range("AI4")
Fichier = Range("AG17") & (" ") & Range(" H15") & (" ") & Range("AI4") & ".xls"

If Dir(Chemin & Client, 16) = "" Then MkDir Chemin & Client
ActiveWorkbook.SaveAs Chemin & Client & "\" & Fichier
End Sub

Cela fonctionne parfaitement si le dossier n'existe pas mais si on ouvre à nouveau le classeur, à la fermeture, il demande "... voulez-vous le remplacer "
"
Le problème avec oui, il pose 3 x question! et avec non erreur "400" aussi 3 x ! A la longue cela est désagréable et long.
Merci de votre aide et agréable journée à vous
Fony
PS: je connais très peu le VBA et pas l'anglais, soyer svp indulgent...

 

[Paritec]

Re : Enregistrement auto fermeture ou bouton

Bonjour Fony,
oui rajoutes
Application.DisplayAlerts = false
cela ira mieux
essaye et dis nous
a+
papou

 

[Fony]

Re : Enregistrement auto fermeture ou bouton

Merci Papou pour ta rapide réponse et la bonne solution: maintenant plus de problème, tout est Ok
Sub test()
Dim Chemin$, Client$, Fichier$
Chemin = "D:\Clients et Fournisseurs\"
Client = Range("AI4")
Fichier = Range("AG17") & (" ") & Range(" H15") & (" ") & Range("AI4") & ".xls"
Application.DisplayAlerts = False
If Dir(Chemin & Client, 16) = "" Then MkDir Chemin & Client
ActiveWorkbook.SaveAs Chemin & Client & "\" & Fichier

End Sub
Bonne journée
Fony

 

[jeanpierre]

Re : Enregistrement auto fermeture ou bouton

Bonjour Fony, Papou,

Toutefois, peut-être remettre à True avant de sortir de la macro....

Je ne sais plus si Excel en conserve la mémoire, si oui tu aurais des petits soucis dans tes autres fichiers.

Bonne journée.

Jean-Pierre

 

[Fony]

Re : Enregistrement auto fermeture ou bouton

Bonjour Jean-Pierre,
Merci pour le conseil, les autres fichiers avaient un comportement "normal" mais c'est plus de sécurité en remettant à True.
Bonne fin de journée,
Fony