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:

VBA : Couper/coller des fichiers d'un dossier vers un autre
Mkdir vba ✓ - Forum VB / VBA
Vba récupérer valeur cellule ✓ - Forum VB / VBA
Excel compter cellule couleur sans vba - Guide
Vba range avec variable ✓ - Forum VB / VBA
Vba dépassement de capacité ✓ - Forum Excel

1 réponse

Réponse 1 / 1

Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 779
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 ?

Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 779
21 avril 2015 à 15:47

Re,
Toutes les explications ici :
https://warin.developpez.com/access/fichiers/

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 ?

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

Erreur d'exécution 13 Incompatibilité de type

ouverture d'un fichier excel à partir d'un code VBA

Méthode find dans VBA - Recherche de données sous Excel

appliquer une pause dans une macro vba excel