Sauvegarder un fichier exel avec la date et heure. Fermé

Question

Bonjour, 

Bonjour. 

 J'aimerai avoir la commande pour un fichier.bat pour sauvegarder un fichier exel avec la date et heure de la sauvegarde et sur un autre lecteur.

 Je l'ai déjà fait pour une sauvegarde mais sans la date et heure.

 Merci de votre aide.

 Papoux 



Configuration: Windows 7 / Mozilla 11.0

Raymond PENTIER · Answer

Je suis persuadé que tu vois très bien ce que tu veux faire.
Mais nous, en te lisant, c'est beaucoup moins évident ...

Papoux123 · Answer

Bonsoir.

Je vais m'expliquer autrement.

J'entre des données de production dans un fichier Exel. J'aimerai faire une sauvegarde automatique a une heure précise en utilisant le gestionnaire de tâches et c'est pourquoi j'aimerai avoir la commande pour sauvegarder le fichier en question sur un lecteur et dans un fichier untel avec le nom du fichier ainsi que la date et l'heure de la sauvegarde dans le nom du fichier. C'est pour cette raison que j'utilise un fichier.BAT que j'active a l'aide du gestionnaire de tâches.

Est-ce que c'est plus clair ainsi ?? :)

Raymond PENTIER · Answer

Oui, plus clair ... mais trop ardu pour mes modestes compétences !

eriiic · Answer

Bonjour,

En vbs, c'est plus simple :
Dim oFSO
Set oFSO = CreateObject("Scripting.FileSystemObject")
oFSO.CopyFile "d:	mp\classeur2.xls", "d:	mp\classeur2 " & year(date) & Right("0" & Month(date),2) & Right("0" & day(date),2) & " " & Right("0" & Hour(now()),2) & Right("0" & minute(now()),2) & Right("0" & second(now()),2)  & ".xls", True

eric

Papoux123 · Answer

Je vais essayer ça en VBS et je vous reviens la dessus.

Un gros merci !

Papoux123

Papoux123 · Answer

Présentement j'utilise ce code .

CopyFile("C:\Documents and Settings\XPMUser\Mes documents\Profileuse\Data source\Invdb.XLS","C:\Documents and Settings\XPMUser\Mes documents\Profileuse\Data source\Invdb2.XLS")

Et voici celui qu'on m'as fournis. Je n'ai pu mettre les deux première ligne, mon logiciel ne les reconnais pas. Il y à une grosse ressemblance entre les deux codes, le premier marche mais le second me donnes des fautes de syntaxe a partir de l'année.


CopyFile("C:\Documents and Settings\XPMUser\Mes documents\Profileuse\Data source\Invdb.XLS","C:\Documents and Settings\XPMUser\Mes documents\Profileuse\Data source\Invdb" & year(date) & Right("0" & Month(date),2) & Right("0" & day(date),2) & " " & Right("0" & Hour(now()),2) & Right("0" & minute(now()),2) & Right("0" & second(now()),2)  & ".xls", True

C'est ajouté dans mon logiciel CX-Supervisor et comme mentionné, le premier code fonctionne.

Papoux123

Papoux · Answer

Voici le code que j'ai écrit comme spécifié avec Bloc Note et sauvegardé sur ce nom oFSO.vbs, c'est bien cela que je dois faire ?

Dim oFSO
Set oFSO = CreateObject("Scripting.FileSystemObject")
oFSO.CopyFile("C:\Documents and Settings\XPMUser\Mes documents\Profileuse\Data source\Invdb.XLS","C:\Documents and Settings\XPMUser\Mes documents\Profileuse\Data source\Invdb" & year(date) & Right("0" & Month(date),2) & Right("0" & day(date),2) & " " & Right ("0" & Hour(now()),2) & Right("0" & minute(now()),2) & Right("0" & second(now()),2)  & ".xls", TrueDim oFSO

Je clique ensuite sur mon fichier VBS et une fenêtre apparaît une fraction de seconde mais rien n'est transcrit dans le fichier Data source en question. Est-ce que je procèdes de la bonne façon ? Et le fichier VBS je peut le mettre n'importe ou sur le lecteur ?

La ligne 2, dois-je la modifier ou l'écrire t'elle qu'elle ?

Merci de bien vouloir m'aider

Papoux

Sauvegarder un fichier exel avec la date et heure.

7 réponses

Discussions similaires