Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion lmylvc
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
L

lmylvc

XLDnaute Occasionnel
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
 
Dernière édition:
Trier par date Trier par votes
Re : Enregistrement automatique d'un fichier dans un dossier ?????

Hello Camarchepas 😉

J'ai testé et j'adopte, incroyable qu'un code aussi petit puisse
générer une telle action.

Je te remercie chaudement.
Si tu savais le nombre de manip journalières que tu m'évite de devoir réalisé
tu comprendrais toute ma joie.

A+ sur le fil

Vincent
😀
 
Vote positif 0 Vote négatif
Re : Enregistrement automatique d'un fichier dans un dossier ?????

Petit complément d'information

et si je souhaite faire précéder la date et l'heure d'enregistrement
ce code peut-il fonctionner ?

Private Sub Workbook_Open()
ThisWorkbook.SaveCopyAs Filename:="C:\modèle outlook\" & Replace(Date, "/", "_")\" & Replace(Time, ":", " ") & "_" & "MonFichier.xls"
End Sub

Merci

Vincent
 
Vote positif 0 Vote négatif
Re : Enregistrement automatique d'un fichier dans un dossier ?????

Bon, là c'est sans détour que je te remercie amicalement
Je te remercie de t'être donné ce mal pour mon petit pb qui va grandement changer mon quotidien.
Merci. Merci, Merci
Vincent

😀
 
Vote positif 0 Vote négatif
Re : Enregistrement automatique d'un fichier dans un dossier ?????

Salut,
J'aurais mis ce code avant la fermeture d'excel au lieu de le mettre à l'ouverture car sinon tu ne sauvegarde pas sur la copie....
 
Vote positif 0 Vote négatif
Re : Enregistrement automatique d'un fichier dans un dossier ?????

Bonjour à tous

pour la date et heure, l'autre solution est d'utiliser la fonction "now" en y appliquant le format voulu :

Code: 
MsgBox Format(Now, "dd_mm_yyyy hhnnss")


bonne journée
@+
 
Vote positif 0 Vote négatif
Re : Enregistrement automatique d'un fichier dans un dossier ?????

Hello Pierrot et Joney

Pierrot
Peux-tu STP expliciter ton idée, où dois-je mettre le code que tu me proposes ??

Joney

Ta suggestion est pertinente, cela sous-entend que chaque fois que l'on fermera le fichier, une copie de sauvegarde sera réalisée.

Dans mon cas je me demande s'il ne serait pas encore plus judicieux de ne créer une copie qu'en cas d'enregistrement

Merci d'avance pour vos réponses

Bye

Vincent
 
Vote positif 0 Vote négatif
Re : Enregistrement automatique d'un fichier dans un dossier ?????

Re,

comme ceci :

Code: 
ThisWorkbook.SaveCopyAs Filename:="C:\modèle outlook\" & Format(Now, "dd_mm_yyyy hhnnss") & "_" & "MonFichier.xls"

@+
 
Vote positif 0 Vote négatif
Re : Enregistrement automatique d'un fichier dans un dossier ?????

Merci Pierrot 93

Je fais le test en fin de journée car mon agenda est chargé
A+ sur le fil
Et encore bravo pour toute l'aide que vous apportez tous sur ce forum

Bye

Vincent
 
Vote positif 0 Vote négatif
Re : Enregistrement automatique d'un fichier dans un dossier ?????

Pierrot93
J'ai inséré le code dans la fenêtre vba de la manière suivant mais ca ne fonctionne pas.
Je suis certain d'avoir fais une boulette

Peux-tu encore m'aider

Merci

Vincent


ThisWorkbook.SaveCopyAs Filename:="C:\" & Format(Now, "dd_mm_yyyy hhnnss") & "_" & "Pertes LP.xls"
End Sub
 
Vote positif 0 Vote négatif
Re : Enregistrement automatique d'un fichier dans un dossier ?????

Re,

chez moi, dans le dossier spécifié par le chemin, le fichier de sauvegarde existe bien.... Où as tu placé ton code ? As tu bien vérifié dans le dossier concerné ?
 
Vote positif 0 Vote négatif
Re : Enregistrement automatique d'un fichier dans un dossier ?????

Hello Pierrot 93

J'ai placé mon code dans ThisWorkbook de vb
je tinvite à voir une copie d'écran


J'ai revérifié dans le dossier de destination et le fichier n'y est pas

Merci

Vincent
 

Pièces jointes

  • explic.jpg
    39.7 KB · Affichages: 613
  • explic.jpg
    39.7 KB · Affichages: 609
Vote positif 0 Vote négatif
Re : Enregistrement automatique d'un fichier dans un dossier ?????

Bonjour Pierrot, Vincent et Joney,

J'ai essayé ta syntaxe :
ThisWorkbook.SaveCopyAs Filename:="C:\" & Format(Now, "dd_mm_yyyy hhnnss") & "_" & "Pertes LP.xls"
Cliquez pour agrandir...
, elle marche bien aussi sur ce poste.
Es-tu sous Vista ? , si c'est le cas, tu n'as pas le droit d'écrire sur la racine du disque système.(Vive Vista)
Essais en visant un répertoire c:\temp par exemple
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

S
  • Question Question
XL 2019 Enregistrer plusieurs feuilles excel en un fichier PDF dans un dossier portant le nom d'une cellule
Réponses
4
Affichages
2 K
Phil69970
L
  • Question Question
XL 2016 Code pour Enregistrement d'un fichier dans un dossier
Réponses
0
Affichages
640
Le novice
L
H
  • Question Question
XL 2016 [RESOLU] Enregistrer un fichier dans un dossier réseau changeant
Réponses
9
Affichages
4 K
Hynnuh
H
A
  • Question Question
Sauvegarde dans un dossier précis
Réponses
2
Affichages
616
AzoR
A
I
  • Question Question
Enregistrement automatique du nom de fichier
Réponses
4
Affichages
929
Igor
I
A
  • Question Question
Fenêtre chemin d'enregistrement
Réponses
4
Affichages
1 K
AzoR
A
L
  • Question Question
HELP!! - Enregistrer dans un dossier voulu un document en PDF avec macro
Réponses
4
Affichages
1 K
lanoria
L
C
  • Question Question
Pbm d'exécution - copie d'une page dans un nouveau fichier avant chaque sauvergarde
Réponses
7
Affichages
1 K
Modeste
S
  • Question Question
Excel macro : Enregistrement du fichier suivant dossier indiqué dans cellules
Réponses
5
Affichages
2 K
Snoopy6102000
S
R
  • Question Question
Sauvegarder sous un fichier Excel au fiormat sans macros
Réponses
11
Affichages
2 K
job75
S
  • Question Question
Sauvegarde d'un fichier selon la valeur du combobox
Réponses
0
Affichages
37 K
Squoltahthx94
S
  • Question Question
VBA : enregistrement CSV sous 2003 avec "," au lieu de ";"
2
Réponses
16
Affichages
3 K
miguelangelo
B
  • Question Question
Macro de sauvegarde avec critère
Réponses
4
Affichages
1 K
bougy
B
B
  • Question Question
macro enregistrement automatique
2
Réponses
23
Affichages
7 K
vadelacaisse
V
B
  • Question Question
Enregistrement automatique rectification
Réponses
5
Affichages
910
bobafric
B
G
  • Question Question
Génération Fichier + Format Date
Réponses
2
Affichages
916
Gaffy84
G
  • Question Question
bouton pour aller d'un fichier excel vers une diapo power point
Réponses
2
Affichages
2 K
emsec72
  • Question Question
Copie de sauvegarde automatique fichier excel
Réponses
4
Affichages
4 K
matrix
M
  • Question Question
Enregistrer sous et vider un formulaire
Réponses
0
Affichages
1 K
Matjul
M
G
  • Question Question
VBA sauvegarde clef USB récalcitrante
2 3 4
Réponses
47
Affichages
5 K
ninbihan
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…