Excel BVA "enregistrer sous" Fermé

Question

Bonjour à tous !
J'ai une macro qui charge un fichier txt et le sauvegarde en xls
Mais quand je lance la macro, j'ai la boite de dialogue m'informant que le fichier existe déjà et me demandant de cliquer sur oui pour confirmer.
Comment dire à la macro de confirmer la sauvegarde sous xls automatiquement ?

Merci d'avance pour votre aide

Mimi

Lupin · Accepted Answer

Bonjour,

Autre astuce !

Désactiver les messages d'alerte lors de la sauvegarde, et réactiver ensuite.

    Application.DisplayAlerts = False

    ActiveWorkbook.SaveAs Filename:="C:\VPLog.xls", FileFormat:=xlNormal, _
        Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False

    Application.DisplayAlerts = True

Lupin

JvDo · Answer

bonsoir,

pour éliminer le problème de l'existence du fichier, je ferais bien un truc (pas très fin) du genre :
If Dir(DestinationFile) <> "" Then
Kill (DestinationFile)
End If

ensuite j'enchainerais avec ton code (qui doit ressembler à ça) :
ActiveWorkbook.SaveAs Filename:=DestinationFile, FileFormat:= xlNormal

DestinationFile représente ton fichier excel cible.

cordialement

Armojax · Answer

Mets True en fin de ta commande SaveAs...

Mimi · Answer

Je vous remercie tous pour votre aide (Jvdo, Armojax et Lupin)
Ca marche !

J'avais commencé ma macro par "Kill d:\toto.xls"qui renommais ensuite toto.txt en toto.xls
Merci JvDo !

Puis j'ai utilisé la fonction "application.displayAlerts = false"
et à la fin "application.displayAlerts = true" comme indiqué par Lupin.
Merci Lupin !

Merci aussi à toi Armojax mais je n'ai pas trouvé à quelle option mettre le "true" dans la commande :
ActiveWorkbook.SaveAs Filename:="C:\VPLog.xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
Et je ne sais pas si c'est possible avec "SaveAs"

Mimi