Macro Excel deplacer des fichiers Fermé

Question

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!

gbinforme · Answer

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.

Macro Excel deplacer des fichiers

1 réponse

Discussions similaires