Problème copie de fichiers

Question

Boujour &#224; tous,
j'ai un petit probl&#232;me li&#233; &#224; la copie de fichiers dans un dossier. Lorsque j'execute le code, il s'interrompt et affiche un message d'erreur "Permission refus&#233;e" alors que lorsque je le fais manuellement, il n'y a aucun probl&#232;me. Est-ce que qqn pourrait me venir en aide?
Voil&#224; le code:

--------------------------------------------------------------------------------------------
Private Sub Copier_Fichiers()
    Dim fs, rs As DAO.Recordset, Path As String, Lien As String
    
    Set rs = CurrentDb.OpenRecordset("FG Journal Filtr&#233;", dbOpenDynaset)
    Set fs = CreateObject("Scripting.FileSystemObject")
    
    With rs
    
        .MoveFirst
        Do While Not .EOF


        If Not IsNull(rs![R&#233;f&#233;rence 1]) Then
            Path = HyperlinkPart(![R&#233;f&#233;rence 1], acAddress)
            fs.CopyFile Path, "c:\ittang\Temp\Fichiers"
        End If


        If Not IsNull(rs![R&#233;f&#233;rence 2]) Then
            Path = HyperlinkPart(![R&#233;f&#233;rence 2], acAddress)
            fs.CopyFile Path, "c:\ittang\Temp\Fichiers"
        End If


        If Not IsNull(rs![R&#233;f&#233;rence 3]) Then
            Path = HyperlinkPart(![R&#233;f&#233;rence 3], acAddress)
            fs.CopyFile Path, "c:\ittang\Temp\Fichiers"
        End If


        If Not IsNull(rs![R&#233;f&#233;rence 4]) Then
            Path = HyperlinkPart(![R&#233;f&#233;rence 4], acAddress)
            fs.CopyFile Path, "c:\ittang\Temp\Fichiers"
        End If


        If Not IsNull(rs![R&#233;f&#233;rence 5]) Then
            Path = HyperlinkPart(![R&#233;f&#233;rence 5], acAddress)
            fs.CopyFile Path, "c:\ittang\Temp\Fichiers"
        End If


        If Not IsNull(rs![R&#233;f&#233;rence 6]) Then
            Path = HyperlinkPart(![R&#233;f&#233;rence 6], acAddress)
            fs.CopyFile Path, "c:\ittang\Temp\Fichiers"
        End If


        .MoveNext
    Loop
  End With


End Sub
--------------------------------------------------------------------------------------------

Merci

cs_ITALIA · Answer

ou est ce que ca plante ?

It@li@

fgiuliano · Answer

Au moment o&#249; il effectue la commande:
fs.CopyFile Path, "c:\ittang\Temp\Fichiers"
et alors il affiche un message d'erreur.

cs_ITALIA · Answer

Et Avec :

fs.CopyFile Path, "c:\ittang\Temp\Fichiers" & ""

It@li@

fgiuliano · Answer

Alors j'ai essay&#233; et &#231;a marche pour le premier passage dans la boucle mais sit&#244;t qu'on passe une deuxi&#232;me fois dans la boucle, un message d'erreur s'affiche:
Fichier introuvable
...
Je comprends pas vu qu'il fait exactement la m&#234;me chose qu'au premier passage...

cs_ITALIA · Answer

Verifie bien que c'est le Bon Ordre : object.CopyFile source, destination
et que la Source contient "\*.*" &#224; la fin par exemple

Set FSys = CreateObject("Scripting.FileSystemObject")


Set Db = OpenDatabase("C:\TaBase.mdb")
Set Req = Db.OpenRecordset("SELECT * FROM [FG Journal Filtr&#233;]")
If Req.Recordcount <> 0 Then
    Do Until Req.EOF
        If Not IsNull(Req("R&#233;f&#233;rence 1")) Then
            FSys.CopyFile Req("R&#233;f&#233;rence 1"), "c:\ittang\Temp\Fichiers"
        End If
        If Not IsNull(Req("R&#233;f&#233;rence 2")) Then
            FSys.CopyFile Req("R&#233;f&#233;rence 2"), "c:\ittang\Temp\Fichiers"
        End If
        If Not IsNull(Req("R&#233;f&#233;rence 3")) Then
            FSys.CopyFile Req("R&#233;f&#233;rence 3"), "c:\ittang\Temp\Fichiers"
        End If
        If Not IsNull(Req("R&#233;f&#233;rence 4")) Then
            FSys.CopyFile Req("R&#233;f&#233;rence 4"), "c:\ittang\Temp\Fichiers"
        End If
        If Not IsNull(Req("R&#233;f&#233;rence 5")) Then
            FSys.CopyFile Req("R&#233;f&#233;rence 5"), "c:\ittang\Temp\Fichiers"
        End If
        If Not IsNull(Req("R&#233;f&#233;rence 6")) Then
            FSys.CopyFile Req("R&#233;f&#233;rence 6"), "c:\ittang\Temp\Fichiers"
        End If
    Req.Movenext
    Loop
End If
Set Req = Nothing
Set Db = Nothing

It@li@

Problème copie de fichiers

5 réponses

Discussions similaires