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

glnmchl Messages postés 23 Date d'inscription   Statut Membre Dernière intervention   -  
glnmchl Messages postés 23 Date d'inscription   Statut Membre Dernière intervention   -
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

1 réponse

Patrice33740 Messages postés 8561 Date d'inscription   Statut Membre Dernière intervention   1 780
 
Couper / coller c'est déplacer (move).
Avec le fso, utilises move ou movefile.
1
glnmchl Messages postés 23 Date d'inscription   Statut Membre Dernière intervention  
 
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 8561 Date d'inscription   Statut Membre Dernière intervention   1 780
 
Re,
Toutes les explications ici :
https://warin.developpez.com/access/fichiers/
0
glnmchl Messages postés 23 Date d'inscription   Statut Membre Dernière intervention  
 
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