Copier coller de fichiers a partir d'une condition

[kl112]

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!

 

[zeb]

Bonjour,

Nous ne ferons pas ton boulot à ta place, c'est stipulé dans le règlement que je t'invite à bien lire :

Vous devez être connecté pour voir les liens.

Néanmoins, je ne ferme pas.
Ici, nous nous entraidons entre développeurs : si tu as un bout de code à proposer, nous en débattrons et tu obtiendras de l'aide sans problème.

 

[kl112]

Bonjour à tous!
Bon alors je me suis plongé dedans ce matin et j'ai décomposé ce que je voulais! mais voila depuis que j'ai mis tout mes lignes dans une boucle ça ne fonctionne plus! donc la si vous pouviez m'aider... La 4 fonctionne avec i constant mais pas la 3


Sub macro3()

Dim fs As Object
Dim oldPath As String, newPath As String
Dim i As Long

For i = 1 To i = 3600

Cells(i, 1).Select
contenu = ActiveCell.Value
If contenu <> 0 Then
oldPath = "C:\origine"
newPath = "C:\copy"
Set fs = CreateObject("Scripting.FileSystemObject")
fs.CopyFile oldPath & "\" & contenu & ".pdf", newPath & "\" & contenu & ".pdf"
Set fs = Nothing
Else: End If
Next i

End Sub


Sub macro4()

Dim fs As Object
Dim oldPath As String, newPath As String
Dim i As Long

i = 1

Cells(i, 1).Select
contenu = ActiveCell.Value
If contenu <> 0 Then
oldPath = "C:\origine"
newPath = "C:\copy"
Set fs = CreateObject("Scripting.FileSystemObject")
fs.CopyFile oldPath & "\" & contenu & ".pdf", newPath & "\" & contenu & ".pdf"
Set fs = Nothing
Else: End If


End Sub


ça me balance erreur 1004 "erreur définie par l'application ou par l'objet" La honnêtement je suis perdu! j'ai fais ça a partir de vieux souvenir de l'iut ça date déjà de 5/6 ans!

 

[kl112]

Yavé une erreur sur le "for i=1 to i=3600" fallait ecrie "for i=1 to 3600"
Voila!
Vu que mon repas m'a porté conseil je met qd meme la solution! Bonne journee a tous!

 

[zeb]

Ton code est illisible, va lire le règlement de "programmation" ! [:zeb:4]
La prochaine fois, tu obtiendras de l'aide plus rapidement.

Sauf si à chaque fois, tu trouves par toi-même ce qui est la meilleure façon de faire Merci d'avoir publié la solution.