Discussion :

[IRAD]

Bonjour,
Je voudrais écrire une macro LibreOffice permettant de déplacer tous les fichiers du dossier "C:\Temp\Dossier1\" vers le dossier "C:\Temp\Archive\". L'équivalent en VBA (MS Office) est le suivant :

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
16
 
Sub Deplacer(FichierSource As String, DossierCible As String)
  On Error GoTo err
  Const OverwriteExisting = True
  Set objFSO = CreateObject("Scripting.FileSystemObject")
  'objFSO.CopyFile FichierSource, FichierCible, OverwriteExisting
  'objFSO.MoveFile "C:\FSO\*.txt" , "D:\Archive\"
  objFSO.MoveFile FichierSource, DossierCible
  Exit Sub
 
err:
  Select Case err.Number
    Case 53: MsgBox "Le fichier est introuvable"
    Case Else: MsgBox "Erreur inconnue"
  End Select
End Sub

Est-ce que vous avez une proposition? Merci

[zoom61]

Un début de réponse ici (dans la FAQ)...

[IRAD]

Merci pour le tuyau.
J'ai combiné les procédures de liste des fichiers dans un dossier et de copie de fichier et ça a donné ceci, qui marche:

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
 
Sub DeplacerFichiersDuRepertoire(Source,Destination)
	' 
	'Déplace tous les fichiers du répertoire "Source" vers le répertoire "Destination"
	'Les fichiers masqués sont pris en compte 
	'Cet exemple permet aussi de vérifier si le répertoire est vide 
	' 
    Dim CheminSource As String ,CheminDestination As String
    Dim FichierSource As String ,FichierDestination As String 
	Dim Direction As String  
	Dim oSFA As Object
 
	CheminSource = Source 
	CheminDestination = Destination
 
	'Indiquez le répertoire cible 
	'(La procédure ne renvoie pas d'erreur si le dossier n'existe pas)
	Direction=Dir(CheminSource & "*.*",0) 
	' 
	'------ 
	'Un autre exemple pour lister uniquement les fichiers de type PDF : 
	'Direction=Dir("C:\Documents and Settings\michel\dossier\general\*.pdf",0) 
	'------ 
	oSFA = createUNOService ("com.sun.star.ucb.SimpleFileAccess")
	If Resultat="" then 
      MsgBox "Le répertoire est vide."
	Else	
	  Do While Len(Direction) > 0 
 
        Msgbox Direction
        FichierSource = CheminSource & Direction
        FichierDestination = CheminDestination & Direction
        oSFA.move(FichierSource, FichierDestination)
		Direction=Dir() 
	  Loop 
	End If 
End Sub

La procédure est ensuite appelée comme suit :

Code :

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

1
2
 
 DeplacerFichiersDuRepertoire("C:\Temp\Dossier1\", "C:\Temp\Dossier2\")

Merci infiniment.