OVH Cloud OVH Cloud

sauvegarde automatique fichier renommé

1 réponse
Avatar
sai sai
bonjour,
Je sauvegarde un nouveau fichier excel ("toto") sur le r=E9pertoire
"C:\USERS\Local... qui porte d=E9j=E0 un m=EAm fichier "toto". pour cela =
=E0
la fin de la proc=E9dure j'utilise le code suivant :

ActiveWorkbook.SaveAs Filename:=3D"C:\USERS\Local\toto.xls", FileFormat
_
:=3DxlNormal, password:=3D"", WriteResPassword:=3D"",
ReadOnlyRecommended:=3D _
False, CreateBackup:=3DFalse

ActiveWorkbook.Close

Mais comme le fichier existe d=E9j=E0, il ya un message box qui s'affiche
et demande si on veut remplacer le fichier car il existe d=E9j=E0. On est
oblig=E9 de selectionner YES,NO, CANCEL.
Est ce que l'on peut saiuvegarder automatiquement le nouveau fichier
avec le m=EAme nom sans obtenir ce message box ?

Merci d'avance

1 réponse

Avatar
Daniel
Bonjour.
Essaie avec :
Application.displayalertsúlse
avant la sauvegarde
et rétablit à "true" après.
Sinon utilise l'instruction "kill" pour supprimer le fichier.
Cordialement.
Daniel
"sai sai" a écrit dans le message de news:

bonjour,
Je sauvegarde un nouveau fichier excel ("toto") sur le répertoire
"C:USERSLocal... qui porte déjà un mêm fichier "toto". pour cela à
la fin de la procédure j'utilise le code suivant :

ActiveWorkbook.SaveAs Filename:="C:USERSLocaltoto.xls", FileFormat
_
:=xlNormal, password:="", WriteResPassword:="",
ReadOnlyRecommended:= _
False, CreateBackup:úlse

ActiveWorkbook.Close

Mais comme le fichier existe déjà, il ya un message box qui s'affiche
et demande si on veut remplacer le fichier car il existe déjà. On est
obligé de selectionner YES,NO, CANCEL.
Est ce que l'on peut saiuvegarder automatiquement le nouveau fichier
avec le même nom sans obtenir ce message box ?

Merci d'avance