Sujet Précédent Sujet Suivant

Excel BVA "enregistrer sous"

Fermé
Mimi - 27 déc. 2005 à 19:42
 Miro - 1 sept. 2010 à 10:18
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
A voir également:

4 réponses

Réponse 1 / 4
Lupin
28 déc. 2005 à 15:46
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
7
Miro
1 sept. 2010 à 10:18
Merci Lupin,

C'est grâce à toi que j'ai pu terminer mon script!!!
0
Réponse 2 / 4
JvDo Messages postés 1978 Date d'inscription mercredi 27 juillet 2005 Statut Membre Dernière intervention 28 septembre 2020 856
28 déc. 2005 à 01:18
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
2
Réponse 3 / 4
Mimi
28 déc. 2005 à 17:02
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
2
Miro
1 sept. 2010 à 10:17
Merci Mimi c'est super ! Cela m'a sauvé!!!!
0
Réponse 4 / 4
Armojax Messages postés 1858 Date d'inscription mercredi 19 janvier 2005 Statut Membre Dernière intervention 22 mars 2024 1 528
28 déc. 2005 à 09:12
Mets True en fin de ta commande SaveAs...
0