Copier coller de fichiers a partir d'une condition

Bonjour,

Nous ne ferons pas ton boulot à ta place, c'est stipulé dans le règlement que je t'invite à bien lire : http://www.presence-pc.com/forum/ppc/Programmation/Quel...
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.

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!

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!

Ton code est illisible, va lire le règlement de "programmation" !
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.