Discussion :

[Glnmchl]

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.
J'ai essayé de faire, mais ca ne marche pas : J'en suis ici

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
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"

Je ne sais pas si je suis sur le bon chemin
Je ne sais pas si je suis très clair, n'hésitez pas à me poser des questions pour plus d'information.


Merci !


Glnmchl

[Promethee25]

Bonjour,

Tu pourrais aussi utiliser Dir() pour boucler sur les fichiers du dossier et Name <ancienCheminAbsolu> As <nouveauCheminAbsolu> pour déplacer ces fichiers.

[Glnmchl]

Merci Promethee25,
Je ne comprends pas trop comment l'appliquer dans le code...
Pourrais-tu m'aider s'il te plait Je débute mais je pense que ca doit être usant pour les habitués.

[Promethee25]

Voici un exemple très simple pour t'aider:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub toto()
    Dim fileName As String
    Dim oldPath As String
    Dim newPath As String
 
    oldPath = "C:\Users\ppp\Desktop\tmp"
    newPath = "C:\Users\ppp\Desktop\tmp2"
    fileName = Dir(oldPath & "\*.txt", vbNormal) 'Applique ici le filtre qui va bien sur le nom de fichier (les fichiers .txt dans mon exemple)
 
    Do While fileName <> ""
        Name oldPath & "\" & fileName As newPath & "\" & fileName
 
        fileName = Dir()
    Loop
End Sub

[Glnmchl]

Promethee25,
Ça marche très bien !
Je l'ai adapté à mon fichier et ca tourne hyper bien !

Merci beaucoup en tout cas