Macro Excel deplacer des fichiers

kl112 Messages postés 1 Statut Membre -  
gbinforme Messages postés 14930 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour à tous,
Voila, je traite des masses de documents et pour "automatiser" le travail je voudrais savoir si qqun a une idée afin de copier des fichiers PDF d'un répertoire windows a un autre a partir d'une liste excel:

exemple:
|objet n°|Caractéristique 1|caractéristique 2| Caractéristique 3||Condition|
| 1 | X | A | 2 | Y
| 2 | U | B | 6 | Y
| 3 | N | B | 8 | Y
| 4 | S | B | 8 | N

Si dans la case "condition" c'est "Y", alors je veux que le fichier C1 actuellement dans le répertoire "caractéristique 1" soit copier dans un autre répertoire "caractéristique 1 Y" mais pas effacer du répertoire d'origine

Voila j'espère avoir été clair!
Merci d'avance pour l'aide!
Configuration: Windows XP
Firefox 3.0.4
EXCEL 2007

1 réponse

  1.
    gbinforme Messages postés 14930 Date d'inscription   Statut Contributeur Dernière intervention   4 744
     
    bonjour

    Je ne sais pas si tu as trouvé une solution, je te propose celle-ci.

    Dans la feuille concernée, (mode d'emploi) tu mets cette macro 
    Private Sub Worksheet_Change(ByVal sel As Range)
If Not Intersect(sel, [E:E]) Is Nothing Then
    If sel.Value = "Y" Then
        FileCopy Cells(sel.Row, "B").Value & "\" & Cells(sel.Row, "A").Value, _
        Cells(sel.Row, "C").Value & "\" & Cells(sel.Row, "A").Value
    End If
End If
End Sub

    Le nom de ton classeur est en colonne A
    Le nom du répertoire de départ est en colonne B (ex : C:\monrépertoire )
    Le nom du répertoire de copie est en colonne C (idem)

    Dès que tu saisis Y en colonne E la copie s'effectue.
    0