IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

OpenOffice & LibreOffice Discussion :

Macro pour déplacer des fichiers [LibreOffice][Tableur]


Sujet :

OpenOffice & LibreOffice

  1. #1
    Nouveau membre du Club
    Inscrit en
    Juillet 2004
    Messages
    34
    Détails du profil
    Informations forums :
    Inscription : Juillet 2004
    Messages : 34
    Points : 30
    Points
    30
    Par défaut Macro pour déplacer des fichiers
    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

  2. #2
    Rédacteur

    Avatar de zoom61
    Homme Profil pro
    ...
    Inscrit en
    Janvier 2005
    Messages
    9 429
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Haute Vienne (Limousin)

    Informations professionnelles :
    Activité : ...
    Secteur : Industrie

    Informations forums :
    Inscription : Janvier 2005
    Messages : 9 429
    Points : 58 609
    Points
    58 609
    Billets dans le blog
    11
    Par défaut
    Un début de réponse ici (dans la FAQ)...
    N'oubliez pas le Tag afin de faciliter la recherche, et en votant cela permet de mieux la cibler.

    Je ne réponds pas aux messages privés s'ils sont liés à une question technique

  3. #3
    Nouveau membre du Club
    Inscrit en
    Juillet 2004
    Messages
    34
    Détails du profil
    Informations forums :
    Inscription : Juillet 2004
    Messages : 34
    Points : 30
    Points
    30
    Par défaut
    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.

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Réponses: 0
    Dernier message: 11/11/2010, 09h30
  2. Création d'un .bat pour déplacer des fichiers
    Par harmonia1981 dans le forum Scripts/Batch
    Réponses: 2
    Dernier message: 31/10/2009, 13h45
  3. utiliser ls et xargs pour déplacer des fichiers
    Par walrus_55 dans le forum Shell et commandes GNU
    Réponses: 3
    Dernier message: 06/04/2007, 11h22
  4. Problème pour déplacer des fichiers
    Par kurul1 dans le forum C++Builder
    Réponses: 16
    Dernier message: 07/03/2007, 17h25
  5. Réponses: 1
    Dernier message: 15/09/2006, 17h23

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo