Microsoft 365 Vérifier code

Marvin57 · 7 Novembre 2023

Bonjour tout le monde,

j'ai une question concernant le code ci-joint.

VB:

Sub QUITTE_ET_BACKUP_BTA() ' Ferme le programme et fait une sauvegarde BACKUP
Application.DisplayAlerts = False
ActiveWorkbook.Save
ActiveWorkbook.SaveCopyAs "E:\BACKUP BTA\" + ActiveWorkbook.Name
Application.DisplayAlerts = True
Application.Quit
End Sub

Ce code sert à fermer et créer une sauvegarde de mon fichier.

Il me remplace à chaque fermeture du fichier, le fichier sauvegardé sur le support E.

Alors ma question est la suivante;

Est ce que ce code est bien écrit d'après vous ou non. Moi j'ai l'impression qu'il est lent car il lui faut bien 13, 14 secondes pour le tout .
Mon fichier à une taille de 5,4 Mo.

Merci d'avance pour vos avis.

Cordialement Marvin57

Compte Supprimé 979 · 7 Novembre 2023

Re,
Comment voulez-vous qu'on vous aide si vous n'indiquez pas le message

Edit : vu, erreur d'exécution 70 : permission refusée... c'est nouveau...
Voici une version testée qui fonctionne

VB:

Sub QUITTE_ET_BACKUP_BTA() ' Ferme le programme et fait une sauvegarde BACKUP
  Dim FsO As Object
  Application.DisplayAlerts = False
  Application.StatusBar = "Veuillez patienter, sauvegarde en cours...."
  ActiveWorkbook.Save
  ' Copier le fichier enregistré
  Set FsO = CreateObject("Scripting.FileSystemObject")
  FsO.CopyFile ActiveWorkbook.FullName, "E:\BACKUP BTA\" & ActiveWorkbook.Name, True
  Application.DisplayAlerts = True
  Application.Quit
End Sub

Mais la prochaine fois soyez plus EXPLICITE

Compte Supprimé 979 · 7 Novembre 2023

Bonjour Marvin57

13s pour une fichier de 5,4Mo sauvegardé 2 fois, ça ne me parait pas long du tout
Il suffirait d'ajouter une petite fenêtre d'information à la rigueur

A+

Marvin57 · 7 Novembre 2023

BrunoM45 à dit:
Bonjour Marvin57

13s pour une fichier de 5,4Mo sauvegardé 2 fois, ça ne me parait pas long du tout
Il suffirait d'ajouter une petite fenêtre d'information à la rigueur

A+

Bonjour BrunoM45,

Merci pour votre retour. Vous voulez dire quoi par "Il suffirait d'ajouter une petite fenêtre d'information à la rigueur" ?

Compte Supprimé 979 · 7 Novembre 2023

Re,

La réponse est : Oui
mais vous pouvez peut-être gagner du temps en copiant simplement le fichier plutôt que de l'enregistrer sous

A tester

VB:

Sub QUITTE_ET_BACKUP_BTA() ' Ferme le programme et fait une sauvegarde BACKUP
  Application.DisplayAlerts = False
  Application.StatusBar = "Veuillez patienter, sauvegarde en cours...."
  ActiveWorkbook.Save
  ' Copier le fichier enregistré
  FileCopy ActiveWorkbook.FullName, "E:\BACKUP BTA\" & ActiveWorkbook.Name
  Application.DisplayAlerts = True
  Application.Quit
End Sub

A+

Marvin57 · 7 Novembre 2023

BrunoM45 à dit:
Re,

La réponse est : Oui
mais vous pouvez peut-être gagner du temps en copiant simplement le fichier plutôt que de l'enregistrer sous

A tester

VB:

Sub QUITTE_ET_BACKUP_BTA() ' Ferme le programme et fait une sauvegarde BACKUP Application.DisplayAlerts = False Application.StatusBar = "Veuillez patienter, sauvegarde en cours...." ActiveWorkbook.Save ' Copier le fichier enregistré FileCopy ActiveWorkbook.FullName, "E:\BACKUP BTA\" + ActiveWorkbook.Name Application.DisplayAlerts = True Application.Quit End Sub

A+

Re,

alors je viens d'essayer le code, mais il me place la ligne "

FileCopy ActiveWorkbook.FullName, "E:\BACKUP BTA\" + ActiveWorkbook.Name

en jaune et je ne sais pas si on devrait voir cela mais il n'affiche pas le texte de la StatusBar "

Veuillez patienter, sauvegarde en cours....

Merci A+

Compte Supprimé 979 · 7 Novembre 2023

Re,
J'ai laissé la cagade que vous aviez mis, désolé
La concaténation de texte se fait avec le "&" et non le "+" à remplacer donc

Marvin57 · 7 Novembre 2023

BrunoM45 à dit:
Re,
J'ai laissé la cagade que vous aviez mis, désolé
La concaténation de texte se fait avec le "&" et non le "+" à remplacer donc

cela ne change rien !toujours la même ligne en jaune

Compte Supprimé 979 · 7 Novembre 2023

Re,
Comment voulez-vous qu'on vous aide si vous n'indiquez pas le message

Edit : vu, erreur d'exécution 70 : permission refusée... c'est nouveau...
Voici une version testée qui fonctionne

VB:

Sub QUITTE_ET_BACKUP_BTA() ' Ferme le programme et fait une sauvegarde BACKUP
  Dim FsO As Object
  Application.DisplayAlerts = False
  Application.StatusBar = "Veuillez patienter, sauvegarde en cours...."
  ActiveWorkbook.Save
  ' Copier le fichier enregistré
  Set FsO = CreateObject("Scripting.FileSystemObject")
  FsO.CopyFile ActiveWorkbook.FullName, "E:\BACKUP BTA\" & ActiveWorkbook.Name, True
  Application.DisplayAlerts = True
  Application.Quit
End Sub

Mais la prochaine fois soyez plus EXPLICITE

Marvin57 · 8 Novembre 2023

BrunoM45 à dit:
Re,
Comment voulez-vous qu'on vous aide si vous n'indiquez pas le message

Edit : vu, erreur d'exécution 70 : permission refusée... c'est nouveau...
Voici une version testée qui fonctionne

VB:

Sub QUITTE_ET_BACKUP_BTA() ' Ferme le programme et fait une sauvegarde BACKUP Dim FsO As Object Application.DisplayAlerts = False Application.StatusBar = "Veuillez patienter, sauvegarde en cours...." ActiveWorkbook.Save ' Copier le fichier enregistré Set FsO = CreateObject("Scripting.FileSystemObject") FsO.CopyFile ActiveWorkbook.FullName, "E:\BACKUP BTA\" & ActiveWorkbook.Name, True Application.DisplayAlerts = True Application.Quit End Sub

Mais la prochaine fois soyez plus EXPLICITE

Bonjour BrunoM45,

je suis vraiment désolé, je pensais que mon explication suffisait ! Oups !
C'est promis la prochaine fois je m'appliquerai.

J'ai mis en place votre code modifié et tout fonctionne très bien maintenant.

Je vous Remercie pour votre aide et votre patience.

A une prochaine fois peut-être.

Marvin57

Compte Supprimé 979 · 8 Novembre 2023

Re, merci,

Mais je veux rectifier une chose... je ne suis absolument pas patient en général

Alors soyez explicite les prochaines fois

Marvin57 · 8 Novembre 2023

BrunoM45 à dit:
Re, merci,

Mais je veux rectifier une chose... je ne suis absolument pas patient en général

Alors soyez explicite les prochaines fois

Re,

c'est bien noté, je vais essayer de m'améliorer.

A+
Marvin57

Microsoft 365 Vérifier code

Marvin57

XLDnaute Occasionnel

Compte Supprimé 979

Compte Supprimé 979

Guest

Marvin57

XLDnaute Occasionnel

Compte Supprimé 979

Guest

Marvin57

XLDnaute Occasionnel

Compte Supprimé 979

Guest

Marvin57

XLDnaute Occasionnel

Compte Supprimé 979

Guest

Marvin57

XLDnaute Occasionnel

Compte Supprimé 979

Guest

Marvin57

XLDnaute Occasionnel

Discussions similaires