Enregistrement automatique d'un fichier dans un dossier ?????

[lmylvc]

Bonjour à tous 😀

Etant une bille en VBA, je me permets de vous solliciter afin
de savoir comment enregistrer automatiquement
-un fichier à son ouverture, "exemple :nom = "test"
- dans un dossier précis exemple :G\enregistrement\etc....
En le nomant à l'identique mais en le faisant précédé de la date du jour au
format AA_MM_JJ_test

J'ai bien touvé un bout de code, mais celui-ci enregistre le fichier tout les x minutes
Private Sub Workbook_Open()

debut:

Start = Timer
intervalle = 300

Do While Timer < Start + intervalle
DoEvents ' Donne le contrôle à d'autres processus.
Loop

ChDir "C:\22\"

fname = "TEST - " & Day(Date) & "-" & Month(Date) & "-" & Year(Date) & " - " & Hour(Time) & "H" & Minute(Time) & "m" & Second(Time) & "s"

ActiveWorkbook.SaveAs Filename:=fname

GoTo debut

End Sub

Merci d'avance pour votre aide

Vincent

 

[camarchepas]

Re : Enregistrement automatique d'un fichier dans un dossier ?????

Re,
L'on se croise , a la lumière de ta copie écran , il manque :

Private Sub Workbook_Open()

en début de bloc

 

[lmylvc]

Re : Enregistrement automatique d'un fichier dans un dossier ?????

Salut cCmarchepas

Mon pb vient peut être du fait que je sois sur un réseau
mais j'ai réalisé lexportation de la copie vers c:\temp et cela n'a pas fonctionné
Est-ce que mon code est correctement inscrit, quelqu'un peutil le vérifier

Merci

Vincent

 

[Alyrio]

Re : Enregistrement automatique d'un fichier dans un dossier ?????

Bonjour tout le monde, lmylvc

par hasard il ne te manquerait pas le début de ta procédure à savoir :

Private Sub Workbook_Open() pour déclencher la sauvegarde à l'ouverture du classeur

ou bien

Private Sub Workbook_BeforeClose(Cancel As Boolean) pour la déclencher juste avant la fermeture ?

Bon après-midi à tous !

P.S.
Salut Camarchepas tu m'as devancé 🙂

 

[camarchepas]

Re : Enregistrement automatique d'un fichier dans un dossier ?????

Re , Bonjour Alyrio,

Et oui , l'on ce croise sur ce fil sans voir ce que l'autre poste , alors fatalement , lol.

Oui , tu as tout à fait raison , l'un ou l'autre , tout dépend de quand il veut faire la sauvegarde , voir les 2 aprés tout lol

 

[Alyrio]

Re : Enregistrement automatique d'un fichier dans un dossier ?????

Re,

Tiens je ne sais pas pour toi mais j'ai des horaires de messages qui date d'aujourd'hui 11h40 soit 2 heures de moins. C'est étrange non 😕

Re , Bonjour Alyrio,

Et oui , l'on ce croise sur ce fil sans voir ce que l'autre poste , alors fatalement , lol.

Oui , tu as tout à fait raison , l'un ou l'autre , tout dépend de quand il veut faire la sauvegarde , voir les 2 aprés tout lol

 

[camarchepas]

Re : Enregistrement automatique d'un fichier dans un dossier ?????

Alyrio,

C'est ton fuseau horaire qui est mal réglé , il faut choisir enfin si tu es en France :

Fuseau horaire GMT +2

 

[Benjy]

Re : Enregistrement automatique d'un fichier dans un dossier ?????

Sauf erreur de ma part la France est sur le fuseau horaire GMT + 1. Le complément c'est l'heure d'été.

 

[Pierrot93]

Re : Enregistrement automatique d'un fichier dans un dossier ?????

Re,

et que te donnes l'horloge dans la barre des tâches.....

 

[camarchepas]

Re : Enregistrement automatique d'un fichier dans un dossier ?????

Et oui tout juste Alyrio. + 1 pour l'heur d'été

 

[GBI]

Re : Enregistrement automatique d'un fichier dans un dossier ?????

Très bon code (dont je n'ai pas encore trouvé d'utilité particulière mais que je met dans un coin de ma bibliotheque)
J'ai ajouté le nom du fichier en automatique ainsi que le nom de l'utilisateur (c'est plus simple si l'on travaille sur un espace partagé). Cependant ca risque de vite couter cher en stockage 🙂

Private Sub Workbook_Open()
'A insérer dans "This Workbook"
'A chaque ouverture il enregistre une sauvegarde du fichier dans la destination choisie au format: Nom d'utilisateur - JJMMAA - HHMM_NOM DU FICHIER
ThisWorkbook.SaveCopyAs Filename:="U:\Divers\Ressources\Codes VBA\" & Environ("username") & " - " & Format(Now, "ddmmyy - hhnn") & "_" & ActiveWorkbook.Name

End Sub

 

[camarchepas]

Re : Enregistrement automatique d'un fichier dans un dossier ?????

Bonjour GBI,

Et oui , là c'est le top du top , peut être à mettre dans l'évenementiel Workbook_BeforeSave et là c'est le fin des fins .....

 

[lmylvc]

Re : Enregistrement automatique d'un fichier dans un dossier ?????

Hello les amis

Enfin sorti de mes réunions de travail, un petit break une douche et me revoici

J'ai pu essayer les différents codes et tous fonctionnent à présent.
Quand je me suis lancé, j'avais pas la tête froide aussi j'ai fait n'importe quoi.
Pour preuve j'avais oublié d'inscrire "Private Sub"
Donc, soyons bref, mais à la hauteur

Merci à vous tous pour votre patience, votre dévouement et bravo pour votre savoir-faire

Grace à vous c'est la fin des sauvegardes manuelles qui sont contraignantes
mais imposées dans mon entreprise.

Bye les amis

A+ sur le fil
😉🙂😀

Vincent