Excel BVA "enregistrer sous"

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

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

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

Mets True en fin de ta commande SaveAs...