Bonjour tous le monde

j'ai un petit probleme sur la manipulation de mes fichiers

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
    Dim nom_fichier As String
 
    nom_fichier = Format(Date, "yyyymmdd")
    nom_fichier = "C:\Documents and Settings\laborder\Bureau\SAV" & nom_fichier & ".xls"
 
    FileCopy "C:\Documents and Settings\laborder\Bureau\assmat.xls", nom_fichier
 
    Open "C:\Documents and Settings\laborder\Bureau\assmat_valide.csv" For Append As #1
 
    With ActiveSheet
        For i = 2 To .Cells(2, 1).End(xlDown).Row + 1
            mon traitement de donnée
            assmat_valide = Cells(i, "A") & ";" & Cells(i, "B") & ";" & Cells(i, "C") & ";" & Cells(i, "D") & ";" & Cells(i, "E") & ";" & Cells(i, "F") & ";" & Cells(i, "G") & ";" & Cells(i, "H") & ";" & Cells(i, "I")
            Write #1, assmat_valide
 
        Next i
    End With
 
    Close #1
l'orsque je veux exécuter la macro, il me dit :
erreur d'éxécution 70
permission refusée

et si je clique sur debogage c la ligne de filecopy qui est designer

je ne comprend pas pourquoi

comment resoudre se probleme
merci de votre aide