Excel BVA "enregistrer sous"
Mimi
-
Miro -
Miro -
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
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:
- Excel BVA "enregistrer sous"
- Audacity enregistrer son pc - Guide
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Déplacer colonne excel - Guide
- Si ou excel - Guide
4 réponses
Bonjour,
Autre astuce !
Désactiver les messages d'alerte lors de la sauvegarde, et réactiver ensuite.
Lupin
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
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
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
C'est grâce à toi que j'ai pu terminer mon script!!!