High-Tech Santé Médecine Droit-Finances

Auto-Entrepreneur

Comment faire ?

Rechercher : dans
Par :

Excel BVA "enregistrer sous"

Dernière réponse le 28 déc 2005 à 17:02:22 Mimi, le 27 déc 2005 à 19:42:48 
 Signaler ce message aux modérateurs

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

Meilleures réponses pour « Excel BVA "enregistrer sous" » dans :
[Word] Impossible de rétablir une liaison DDE avec Excel VoirLors d'un publipostage à partir d'un fichier Excel généré par Access, Word affiche le message suivant :"Impossible de rétablir une liaison DDE avec MICROSOFT EXCEL pour achever la tâche en cours" Pour contourner ce problème, il suffit d'enregistrer...
Enregistrement d’un fichier VoirEnregistrement d’un fichier Dans le menu du logiciel concerné, choisissez Fichier > Enregistrer. S’il s’agit du premier enregistrement de ce fichier, la boîte de dialogue Enregistrer sous s’affiche. Naviguez jusqu’à l’emplacement de stockage...
Posez votre question Répondre

1

JvDo, le 28 déc 2005 à 01:18:12
  • +1

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

   
Répondre à JvDo

2

Armojax, le 28 déc 2005 à 09:12:01

Mets True en fin de ta commande SaveAs...

   
Répondre à Armojax

3

Lupin, le 28 déc 2005 à 15:46:18

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

   
Répondre à Lupin

4

 Mimi, le 28 déc 2005 à 17:02:22

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

   
Répondre à Mimi
Posez votre question Répondre
Ils ont besoin de votre aide