VBA : Couper/coller des fichiers d'un dossier vers un autre

Fermé
glnmchl Messages postés 23 Date d'inscription jeudi 26 février 2015 Statut Membre Dernière intervention 19 janvier 2018 - Modifié par glnmchl le 21/04/2015 à 13:31
glnmchl Messages postés 23 Date d'inscription jeudi 26 février 2015 Statut Membre Dernière intervention 19 janvier 2018 - 22 avril 2015 à 09:27
Bonjour à toutes et à tous !
Je galère un peu dans le traitement de la formulation vba.
Mon but est de sauvegarder des fichiers générés pas mon code dans un dossier de sauvegarde. Cela j'y arrive.
Cependant, j'aimerais, avant que les fichiers se sauvegardent dans le dossier, exercer un "couper/coller" automatique de l'ensemble des fichiers précédents (du mois précédent par ex) , et les sauvegarder dans un dossier archive.
En gros, la démarche de sauvegarde serait :
=> Couper les anciens fichiers du dossier Sauvegarde / Coller dans Archives / Sauvegarder les nouveaux fichiers dans le dossier sauvegarde.
Je ne sais pas si je suis très clair, n'hésitez pas à me poser des questions pour plus d'information.


Merci ! :)


Glnmchl
A voir également:

1 réponse

Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 778
21 avril 2015 à 13:38
Couper / coller c'est déplacer (move).
Avec le fso, utilises move ou movefile.
glnmchl Messages postés 23 Date d'inscription jeudi 26 février 2015 Statut Membre Dernière intervention 19 janvier 2018
21 avril 2015 à 13:53
Bonjour Patrice,
Merci pour ta réponse,
Je mets le chemin du dossier de sauvegarde / Move / Et chemin du dossier archive ?
0
Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 778
21 avril 2015 à 15:47
Re,
Toutes les explications ici :
https://warin.developpez.com/access/fichiers/
0
glnmchl Messages postés 23 Date d'inscription jeudi 26 février 2015 Statut Membre Dernière intervention 19 janvier 2018
Modifié par glnmchl le 22/04/2015 à 09:28
Merci !
Je tente plusieurs manip' , mais c'est vrai que je ne m'y retrouve pas J'ai essayé ca
Dim oFSO As Scripting.FileSystemObject
Dim oDrv As Scripting.Drive
'Instanciation du FSO
Set oFSO = New Scripting.FileSystemObject
'Instanciation d'un objet enfant
Set oDrv = oFSO.Drives(1)
oFSO.MoveFile "V:\Commun7\Sauvegardes Relances Mois en cours", "V:\Commun7\Archives"


Pourrais tu m'éclairer s'il te plait ?
0